*-- Onpostsetdynamiccolor LOCAL lcHost,; loControl,; nNbrCol lcHost = THIS.chostname THISFORM.LOCKSCREEN = .T. WITH THIS.PARENT.&lcHost && I intentionally do not keep this reference in the object property && to avoid the possibility of dangling object references FOR EACH loControl IN .COLUMNS *-- 05/2005 BUG ! un space( X ) à la fiN d'1 dynamicxxxxxx donne rien ! *-- Si on désire un DynamicBackolor (12) nNbrCol = loControl.COLUMNORDER IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_BK_COL_ADV12] ) = "C" loControl.DYNAMICBACKCOLOR = ; ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_BK_COL_ADV12] ) ENDIF *!* IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_BK_COL_ADV12] ) = "C" *!* loControl.DYNAMICBACKCOLOR = ; *!* "My_color(" + ICASE( .lWantAllBar , '.T.' , '.F.' ) + ',' +; *!* ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_BK_COL_ADV12] ) + ',' +; *!* "This.parent.GridhighLighter1.nRecno, This.parent.GridhighLighter1.cHighBackColor)" *!* ENDIF *-- Si on désire un DynamicForeColor (13) IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_FR_COL_ADV13] ) = "C" loControl.DYNAMICFORECOLOR = ; ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_FR_COL_ADV13] ) ENDIF *-- Si on désire un DynamicFont (14) IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_FONBLD_ADV14] ) = "C" loControl.DYNAMICFONTBOLD = ; ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_FONBLD_ADV14] ) ENDIF *-- Si on désire un DynamicFontItalic (16) IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,16] ) = "C" loControl.DYNAMICFONTITALIC = ; ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,16] ) ENDIF *-- Si on désire un DYNAMICFONTSTRIKETHRU (17) IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,17] ) = "C" loControl.DYNAMICFONTSTRIKETHRU = ; ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,17] ) ENDIF *-- Ctrl Actif ds une colonne (18). IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_CURR_ADV18] ) = "C" loControl.DYNAMICCURRENTCONTROL = ; ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_CURR_ADV18] ) *-- 12/2006 Pour que le fond du cmd soit Gris. loControl.DYNAMICBACKCOLOR = [RGB(212,208,200)] ENDIF *-- DynamicInputMask (20). IF VARTYPE( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_INPUTMSK_ADV20] ) = "C" loControl.DYNAMICINPUTMASK = ; ALLTRIM( .oCustomAdvisorgrid.aCol[ nNbrCol ,DYN_INPUTMSK_ADV20] ) ENDIF ENDFOR .oCustomAdvisorgrid.lPresente( THIS.PARENT.&lcHost ) ENDWITH THISFORM.LOCKSCREEN = .F.>Hi Bernhart,