HEADER a Color en GRID

[jorge_rivero]

Alguien sabe como poner color y tamaño en el Header de un GRID??
Si tienen un ejemplo seria genial.
Gracias

[gfilatov]

Alguien sabe como poner color y tamaño en el Header de un GRID??
Si tienen un ejemplo seria genial.
Gracias

Jorge,

Please take a look for the following forum message:

viewtopic.php?p=69713#p69713

BTW It is possible with Minigui Extended Version (look at the image below).

capture.png (18.24 KiB) Viewed 1644 times

The actual code is below:

Code: Select all

...
      bColor := {|| iif ( This.CellRowIndex / 2 == Int( This.CellRowIndex / 2 ), { 128, 128, 128 }, { 192, 192, 192 } ) }
      fColor := {|| iif ( This.CellRowIndex / 2 == Int( This.CellRowIndex / 2 ), BLUE, RED ) }


      CellNavigationColor ( _SELECTEDCELL_FORECOLOR, BROWN )
      CellNavigationColor ( _SELECTEDCELL_BACKCOLOR, GREEN )
      CellNavigationColor ( _SELECTEDCELL_DISPLAYCOLOR, .T. )


      CellNavigationColor ( _SELECTEDROW_FORECOLOR, YELLOW )
      CellNavigationColor ( _SELECTEDROW_BACKCOLOR, BROWN )
      CellNavigationColor ( _SELECTEDROW_DISPLAYCOLOR, .T. )


      @ 50, 15 GRID Grid_1 ;
         WIDTH 750 ;
         AUTOSIZEHEIGHT 7 ;
         HEADERS { 'Last Name', 'First Name', '*--- Phone ----------------*', 'Row', 'Date' } ;
         WIDTHS { 140, 140, 40, 140, 140 } ;
         ITEMS aRows ;
         BACKCOLOR BLACK ;
         FONTCOLOR WHITE ;
         BOLD ;
         COLUMNCONTROLS { NIL, NIL, NIL, { 'SPINNER', 0, 50 }, { "DATEPICKER", "UPDOWN" } } ;
         VALUE 1 EDIT ;
         DYNAMICBACKCOLOR { bColor, bColor, bColor, bColor, bColor } ;
         DYNAMICFORECOLOR { fColor, fColor, fColor, fColor, fColor } ;
         TOOLTIP 'Editable Grid Control' ;
         CELLNAVIGATION

      Form_1.Grid_1.PAINTDOUBLEBUFFER := .T.

      Form_1.Grid_1.ColumnHEADER ( 1 ) := "--- Last Name ---"
      Form_1.Grid_1.ColumnWIDTH ( 1 ) := 100
      Form_1.Grid_1.ColumnJUSTIFY ( 1 ) := GRID_JTFY_CENTER
      Form_1.Grid_1.ColumnCONTROL ( 1 ) := { 'TEXTBOX', 'CHARACTER', '@!' }
      Form_1.Grid_1.ColumnDYNAMICFORECOLOR ( 1 ) := {|| BLACK }
      Form_1.Grid_1.ColumnDYNAMICBACKCOLOR ( 1 ) := {|| PURPLE }
      Form_1.Grid_1.HeaderDYNAMICFORECOLOR ( 1 ) := {|| BROWN }
      Form_1.Grid_1.HeaderDYNAMICBACKCOLOR ( 1 ) := {|| GREEN }
      FOR n := 2 TO 5
         Form_1.Grid_1.HeaderDYNAMICFORECOLOR ( n ) := {|| BLACK }
         Form_1.Grid_1.HeaderDYNAMICBACKCOLOR ( n ) := {|| { 192, 192, 192 } }
      NEXT
      Form_1.Grid_1.ColumnVALID ( 1 ) := {|| NIL }
      Form_1.Grid_1.ColumnWHEN ( 1 ) := {|| .F. }
      Form_1.Grid_1.ColumnONHEADCLICK ( 1 ) := {|| MsgInfo ( Form_1.Grid_1.ColumnHEADER( 1 ) ) }

      Form_1.Grid_1.AddItem ( { 'lolo', 'JUAN', '333-9999', 21, Date() } )
      Form_1.Grid_1.AddItem ( { 'Lolo', 'LOLO', '999-9999', 22, Date() - 1 }, NIL ) // Added this item in the END of the GRID
      Form_1.Grid_1.AddItem ( { 'hmg' , 'JUAN', '333-9999', 23, Date() - 1 },   3 ) // Added this item in Row 3

Hope that useful