// C:\FWH1905\SAMPLES\WHENGET.PRG
#include "FiveWin.ch"
FUNCTION Main()
Dlg_Get_When()
RETURN NIL
FUNCTION Dlg_Get_When() // .F.
LOCAL oDlg, oSay, oBrush, lTest := .T. , oCbx, oFont, oSay2, oSay3
LOCAL oGet, cName := "ToolTip: como llamar con WHEN( .F. )?"
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -26 BOLD
DEFINE BRUSH oBrush GRADIENT { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) }, ;
{ 0.6, nRGB( 24, 61, 118 ), nRGB( 50, 95, 158 ) } }
DEFINE DIALOG oDlg TITLE "This a Test de ToolTip con GET .F." ;
SIZE 400, 400 PIXEL BRUSH oBrush TRANSPARENT
oDlg:lHelpIcon := .F.
@ 2, 2 GROUP TO 100, 130 of oDlg pixel COLOR CLR_YELLOW, CLR_BLACK ;
PROMPT "ToolTip: como llamar con WHEN( .F. )?"
@ 25, 15 SAY oSay PROMPT "This a Test de ToolTip con GET .F." of oDlg ;
SIZE 140, 12 COLOR CLR_WHITE PIXEL transparent adjust
@ 35.5, 15 GET oGet VAR cName OF oDlg SIZE 110, 10 PIXEL
oGet:Disable()
oGet:lBtnTransparent := .t. // transparent button get oGet3
oGet:lAdjustBtn := .t. // Button Get Adjust Witdh oGet3
oGet:lDisColors := .f. // Deactive disable color
oGet:nClrTextDis := CLR_WHITE // Color text disable status
oGet:nClrPaneDis := CLR_BLUE // Color Pane disable status
oGet:lReadOnly := .T.
oGet:lUpdate := .T.
oGet:cToolTip := OemToAnsi( "ToolTip de Antonio Linares Ca¤as con WHEN(.F.) no Muestra" )
@ 125, 15 SAY oSay2 PROMPT "Fuerza Linares jájájájá" OF oDlg FONT oFont ;
SIZE 150, 20 COLOR CLR_YELLOW, CLR_BLACK PIXEL TRANSPARENT ADJUST
@ 145, 15 SAY oSay2 PROMPT "TooTip con GET .F., Como?" OF oDlg FONT oFont ;
SIZE 150, 20 COLOR CLR_HRED, CLR_BLACK PIXEL TRANSPARENT ADJUST
@ 10, 150 button "Test" pixel action( oDlg:End() ) CANCEL
ACTIVATE DIALOG oDlg CENTERED
oBrush:End()
oFont:End()
RETURN NIL
// FIN