>*** Form Init event >oGrid.Column1.DynamicFontUnderline = "thisform.WhenModify()" > >*** WhenModify method > oGrid.Column1.Button1.CAPTION = V_Resident.cetats >RETURN .f. >>
>> BINDEVENT( oGrid.Column1.Text2 ,"Refresh" , oGrid , "WhenModify" , 1 ) >> BINDEVENT( oGrid.Column1 ,"Refresh" , oGrid , "WhenModify" , 1 ) >>>>
>>LOCAL laObjects(1),; >> loEventSource >> >>AEVENTS( laObjects, 0) >>loEventSource = laObjects(1) >> >>WITH loEventSource >> >> DO CASE >> >> *----------------------------------------------------------------- >> CASE INLIST( .T. , 'text2' $ LOWER( .NAME ) , .BASECLASS <> 'Commandbutton') >> >> loEventSource.CAPTION = V_Resident.cetats >> >> >> OTHERW >> ENDCASE >> >> >>ENDWITH >> >>