SAY

[Antonio Linares]

William,

Si, esa sería una buena solución, pero primero necesitamos obtener más información (veamos que nos comenta Rossine) y mi duda es por que GetTextWidth() no devuelve el ancho correcto ?

[wmormar]

Antonio,

quedaremos a la espera de rossine

[Rossine]

Olá Antonio,

nWidth = GetTextWidth( 0, ::cCaption, If( ::oFont != nil, ::oFont:hFont,) ) + 20

Mesmo assim o texto continua sumindo na dialog

Obs: Somente depois de "oSay:refresh()" é que o texto fica certo, ou seja, ele é quebrado para a 2ª linha.

Mais alguma sugestão ?

Gracias,

Rossine.

[Antonio Linares]

Rossine,

Prueba a usar un valor mayor que 20, gracias

[Rossine]

Olá Antonio,

Quando uso valores positivos, não funciona, mas se uso valores negativos, (-20), quando é executado pela primeira vez , o texto não é quebrado, mas após o "refresh()", funciona corretamente.

O problema só acontece quando usso assim: "define dialog ...... TRANSPARENT"

Gracias,

Rossine.

[Rossine]

Olá Antonio,

Vendo este link : http://67.222.39.232/forums/viewtopic.php?t=13129

Comentei "fixsays()" em TDialog e "TRANSPARENT" funcionou

Assim:

Code: Select all  Expand view  RUN

METHOD Initiate( hWndFocus, hWnd ) CLASS TDialog

   local lFocus := .t., lResult, hCtrl, lEnd := .f., aRect

...

   if ::lTransparent
*      FixSays( ::hWnd )  <<- Tirei esta linha
      AEval( ::aControls,;
             { | o | If( ! Upper( o:ClassName() ) $ ;
             "TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX",;
                         o:lTransparent := .t.,) } )
   endif   
...



Isto pode ficar assim, ou "Fixsays" está com problema ?

[Antonio Linares]

Rossine,

FixSays() cambia el procedimiento de ventana para todos los SAYs, aunque no esten redefinidos.