Page 1 of 1
ERROR EN TSAY !!!
Posted: Wed May 26, 2021 4:37 pm
by Ariel
buen dia,
Tengo un SAY ... BORDER ...,, que no hace caso ni al BORDER ni al BOX, en este caso lo pone igual q el get. Ej:
nRow:=nRow+50
@ nRow,25 SAY oObj["sTelefon"] PROMPT "Teléfono" OF oDlg SIZE nW-50,35 PIXEL COLOR nRGB(AZUL_SAM),nRGB(240,240,240) VCENTER BORDER
nRow:=nRow+35
@ nRow,25 GET oObj["telefono"] VAR ::cTelefono OF oDlg SIZE nW-50,35 PIXEL
Lo logico es q si pongo border me haga un recuadro completo del say y si le pongo BOX me pone un recuadro GRIS y me oculta el texto
Gracias.
Re: ERROR EN TSAY !!!
Posted: Wed May 26, 2021 6:13 pm
by karinha
Ariel, mira se ayuda:
Code: Select all | Expand
// \SAMPLES\ARIEL.PRG.#Include "FiveWin.ch"#Define CLR_LGREEN nRGB
( 190,
215,
190 )#Define CLR_SOFTYELLOW nRGB
( 255,
251,
225 )FUNCTION ARIEL_SAY
() LOCAL oSayFone AS OBJECT
LOCAL oDlg AS OBJECT
LOCAL oSay AS OBJECT
LOCAL oFont AS OBJECT
LOCAL oFnt AS OBJECT
LOCAL oBtn1 AS OBJECT
LOCAL oGet1 AS OBJECT
LOCAL cTitle, aGrad, aGet := ARRAY
(5) LOCAL cTelefono :=
"+55 11 9.5150-7341(Whats) " SetBalloon
( .T.
) // Balloon shape required for tooltips SkinButtons
() SetGetColorFocus
( CLR_LGREEN
) tGet
():
lDisColors := .F.
tGet
():
nClrTextDis := CLR_HBLUE
tGet
():
nClrPaneDis := CLR_SOFTYELLOW
cTitle :=
"TEST SAY Para Ariel -> FiveWin The Best" DEFINE FONT oFont
NAME "Ms Sans Serif" SIZE 00,
-14 BOLD
DEFINE FONT oFnt
NAME "Ms Sans Serif" SIZE 00,
-12 BOLD
aGrad :=
{ { 0.30, CLR_WHITE, CLR_WHITE
},
{ 0.50, CLR_WHITE, CLR_WHITE
} } DEFINE DIALOG oDlg
TITLE cTitle
SIZE 400,
400 PIXEL GRADIENT aGrad
oDlg:
lHelpIcon := .F.
@
25,
15 SAY oSay
PROMPT "THIS A TEST" OF oDlg
SIZE 50,
14 ;
COLOR CLR_CYAN, CLR_WHITE
PIXEL TRANSPARENT
CENTER ADJUST FONT oFnt
@
40,
15 SAY oSayFone
PROMPT "Teléfono: " OF oDlg
SIZE 50,
14 ;
COLOR CLR_CYAN, CLR_WHITE
PIXEL TRANSPARENT BORDER
CENTERED ADJUST ;
FONT oFont
oSayFone:
cToolTip :=
"Teléfono: +55 11 9.5150-7341(Whats)" IF Set
( _SET_INSERT, ! Set
( _SET_INSERT
) ) Set
( _SET_INSERT, ! Set
( _SET_INSERT
) ) ENDIF @
60,
15 GET oGet1
VAR cTelefono
OF oDlg
PIXEL SIZE 130,
12 ;
COLORS CLR_BLACK, CLR_WHITE
FONT oFont
// NOBORDER oGet1:
cToolTip :=
"Informe Teléfono Para Ariel, Porfa" @
10,
120 BUTTON oBtn1
PROMPT "Teste" PIXEL ;
ACTION oSay:
SETTEXT( "CAMBIAR TEXT") CANCEL
oBtn1:
cTooltip :=
"Teste de SAY con BORDER y CENTER/ADJUST" SET
FONT OF oBtn1
TO oFont
ACTIVATE DIALOG oDlg
CENTERED IF Set
( _SET_INSERT, ! Set
( _SET_INSERT
) ) Set
( _SET_INSERT, ! Set
( _SET_INSERT
) ) ENDIF oFnt:
End() oFont:
End()RETURN NIL// FIN / END - kapiabafwh@gmail.com - Joao Santos - Sao Paulo-Brazil.
Regards, saludos.
Re: ERROR EN TSAY !!!
Posted: Thu May 27, 2021 11:14 am
by Ariel
Karina,
gracias x tu tiempo y x responder, pero el efecto q muestras no dibuja un marco uniforme, que es lo q planteo, si pongo BORDER o BOX deberia hacer el recuadro del mismo grosor en todo el campo.
Saludos.
Re: ERROR EN TSAY !!!
Posted: Thu May 27, 2021 1:10 pm
by karinha
Re: ERROR EN TSAY !!!
Posted: Fri May 28, 2021 11:38 pm
by Ariel
Karina,
claro, pero tenes que hacer un lio para definir algo que deberia funcionar con box o border uniforme.
Saludos.