Hola a todos,
como se debe aplicar a un SAY el estilo SS_CENTERIMAGE para que el texto quede centrado verticalmente?
He probado oSay:nStyle := nOr( oSay:nStyle, SS_CENTERIMAGE), pero para que actúe, hay que hacer oSay:Refresh() después de activar el dialogo que lo contiene.
En mi opinión el comando de definición del SAY debería incluir una clausula lVertical o lCenterV o similar, así se aplicaría el efecto al momento de crearlo.
Gracias de antemano
Gracias karinha por responder tan rápido
quizás no me he explicado bien, no me refiero a imprimir en sentido vertical sino a centrar el texto verticalmente con respecto a la altura del campo
#include "fivewin.ch"
#define SS_CENTERIMAGE 0x00000200
//----------------------------------------------------------------------------//
function SayTestDlg
local oDlg, oSay
DEFINE DIALOG oDlg TRUEPIXEL TITLE "SAY VCENTER"
@ 20,20 SAY oSay PROMPT "Center" SIZE 200,100 PIXEL OF oDlg CENTER
if Empty( oSay:hWnd )
oSay:nStyle := nOr( oSay:nStyle, SS_CENTERIMAGE ) // dialogs
else
oSay:WinStyle( SS_CENTERIMAGE, .t. ) // windows, etc
endif
ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT oDlg:Box( oSay:nTop-1, oSay:nLeft-1, oSay:nBottom+1, oSay:nRight+ 1 )
return nil
//----------------------------------------------------------------------------//
For me works oSay:WinStyle( SS_CENTERIMAGE, .t. ), my SAY is inside a buttonbar
Would be easier if the command SAY had a clause lCenterV or similar
Tankyou very much Mr. Rao
if Empty( oSay:hWnd )
oSay:nStyle := nOr( oSay:nStyle, SS_CENTERIMAGE ) // dialogs
else
oSay:WinStyle( SS_CENTERIMAGE, .t. ) // windows, etc
endifoBar:bPainted := { || oBar:SayText( cText, aRect ) }We added a new clause VCENTER to SAY command in FWH16.11