topic-40459

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

ERROR EN TSAY !!!
Posted: Wed May 26, 2021 04:37 PM

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[&quot;sTelefon&quot;]  PROMPT &quot;Teléfono&quot;           OF oDlg SIZE nW-50,35 PIXEL COLOR nRGB(AZUL_SAM),nRGB(240,240,240) VCENTER BORDER
          nRow:=nRow+35
          @ nRow,25 GET oObj[&quot;telefono&quot;]  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

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: ERROR EN TSAY !!!
Posted: Wed May 26, 2021 06:13 PM

Ariel, mira se ayuda:

Code (fw): Select all Collapse

// \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 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e --> - Joao Santos - Sao Paulo-Brazil.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ERROR EN TSAY !!!
Posted: Thu May 27, 2021 11:14 AM

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

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: ERROR EN TSAY !!!
Posted: Thu May 27, 2021 01:10 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ERROR EN TSAY !!!
Posted: Fri May 28, 2021 11:38 PM

Karina,

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

Saludos.

FiveTech Support Forums

Continue the discussion