It is easy, to include a sample from the FWH-samplefolder.
I explain how to include the original FWH-sample < [color=#0000FF:1lwjyjo5][b:1lwjyjo5]changrad.prg[/b:1lwjyjo5][/color:1lwjyjo5] > to the first window-section
don*t define any window !!!
[img:1lwjyjo5]http://www.pflegeplus.com/IMAGES/Sample15.jpg[/img:1lwjyjo5]
1.
open < [color=#0000FF:1lwjyjo5]Code_4.prg [/color:1lwjyjo5]>
2.
select the first function < [color=#0000FF:1lwjyjo5]GRPC4_SEC1() [/color:1lwjyjo5]>
3.
add from original FWH-sample < [b:1lwjyjo5]changrad.prg[/b:1lwjyjo5] >
[color=#0000FF:1lwjyjo5]LOCAL oChoose, oBtn1, bChoose
bChoose = {| oG | ChangeGrad1( oG, oBtn1 ) }[/color:1lwjyjo5]
4.
add and adjust :
[color=#0000FF:1lwjyjo5]@ 130, 130[/color:1lwjyjo5] RBBTN oBtn1 PROMPT "&Aceptar" OF [color=#0000FF:1lwjyjo5]oWnd1 SIZE 120, 50 FONT oSFont [/color:1lwjyjo5];
ACTION ChooseGradient( oBtn1:aGradiant, bChoose, , {| oChoose | CancelGrad( oChoose, oBtn1 ) } )[/color]
5. add the original functions
[color=#0000FF:1lwjyjo5]ChangeGrad( oGrad, oBtn )
ChangeGrad1( oGrad, oBtn )
CancelGrad( oChoose, oBtn )[/color:1lwjyjo5]
[b:1lwjyjo5]Test : selecting the first gray radio ( window-section ) and the button < from code >[/b:1lwjyjo5]
regards
Uwe
↧