ERROR EN TSAY !!!

[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.

[karinha]

Ariel, mira se ayuda:

Code: Select all  Expand view

// \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.

[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.

[karinha]

Ariel, ¿tienes una imagen para que entendamos lo que realmente quieres?

Algo asi?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39889&hilit=BOX+IN+GET&sid=fd014e666bb7c63fc116a8b8e53f12a4

Regards, saludos.

[Ariel]

Karina,

claro, pero tenes que hacer un lio para definir algo que deberia funcionar con box o border uniforme.

Saludos.