HMG 3.3.1 Patch 2

This patch include:

– <ParentWindowName>.<GridControlName>.HeaderDYNAMICFONT ( nCol ) := {|| {cFontName, nFontSize, [ lBold,
lItalic, lUnderline, lStrikeOut ]} }
– <ParentWindowName>.<GridControlName>.HeaderDYNAMICFORECOLOR ( nCol ) := {|| aColor }
– <ParentWindowName>.<GridControlName>.HeaderDYNAMICBACKCOLOR ( nCol ) := {|| aColor } // implemented but not work ???

Demo :

#include "hmg.ch"

Function Main

 aItems := {}

 AADD (aItems, {"Carrot", 5, "A"})
 AADD (aItems, {"Cauliflower", 0, "B"})
 AADD (aItems, {"Corn", 15, "C"})
 AADD (aItems, {"Tomato", 0, "D"})
 AADD (aItems, {"Zucchini", 20, "E"})

 DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 600 ;
      HEIGHT 400 ;
      MAIN 

      @ 10,10 GRID Grid_1 ;
        WIDTH 550 ;
        HEIGHT 330 ;
        HEADERS {'Product','Stock','Supplier'} ;
        WIDTHS {250,150,100};
        ITEMS aItems;
        EDIT;
        CELLNAVIGATION;
        COLUMNCONTROLS { NIL, {'TEXTBOX','NUMERIC'}, NIL }
 
     Form_1.Grid_1.ColumnJUSTIFY (2) := GRID_JTFY_RIGHT
     Form_1.Grid_1.ColumnJUSTIFY (3) := GRID_JTFY_CENTER

     aFont := ARRAY FONT "Calibri" SIZE 11 BOLD ITALIC
     Form_1.Grid_1.ColumnDYNAMICFONT (1) := {|| IF ( Form_1.Grid_1.CellEx(This.CellRowIndex,2) == 0, aFont,
                                            NIL) }
     Form_1.Grid_1.ColumnDYNAMICFONT (2) := {|| IF ( Form_1.Grid_1.CellEx(This.CellRowIndex,2) == 0, aFon
                                           , NIL) }


     // Dynamic Header
     Form_1.Grid_1.HeaderDYNAMICFONT (1) := {|| ARRAY FONT "Arial" SIZE 12 ITALIC UNDERLINE }
     Form_1.Grid_1.HeaderDYNAMICFONT (3) := {|| ARRAY FONT "Calibri" SIZE 12 BOLD }
 
     Form_1.Grid_1.HeaderDYNAMICFORECOLOR (1) := {|| HeaderForeColor() }
     Form_1.Grid_1.HeaderDYNAMICFORECOLOR (2) := {|| HeaderForeColor() }
     Form_1.Grid_1.HeaderDYNAMICFORECOLOR (3) := {|| HeaderForeColor() }

 END WINDOW

 CENTER WINDOW Form_1

 ACTIVATE WINDOW Form_1


 Return


Function HeaderForeColor
Local aColor
 IF This.CellColIndex == 1
    aColor := BLUE
 ELSEIF This.CellColIndex == 2
    aColor := RED
 ELSE
    aColor := NIL
 ENDIF
Return aColor



GoVisitBlue324x48
DL_PatchFrHMGForum312x48
DL_PatchFrGogDrive312x48
Advertisements

One response to “HMG 3.3.1 Patch 2

  1. Pingback: HMG News | Viva Clipper !

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s