Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Add a ctrl source to a commandbutton
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01543604
Message ID:
01543609
Views:
96
This message has been marked as the solution to the initial question of the thread.
Try to use DynamicFontUnderline:
*** Form Init event
oGrid.Column1.DynamicFontUnderline = "thisform.WhenModify()"

*** WhenModify method
 oGrid.Column1.Button1.CAPTION = V_Resident.cetats
RETURN .f.
>Hi dragan,
>
>i try
>
>
>
> BINDEVENT( oGrid.Column1.Text2 ,"Refresh" , oGrid , "WhenModify" , 1 )
>   BINDEVENT( oGrid.Column1 ,"Refresh" , oGrid , "WhenModify" , 1 )
>
>
>and a method whenmodify
>
>
>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
>
>
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform