Mi pare che ci sia un problema nella clausola ADJUST del comando SAY, non viene calcolata correttamente la dimensione del testo visualizzato,
per verificare cio' provare il test seguente.
Grazie
- Code: Select all Expand view RUN
#include "FiveWin.ch"
Function Main
LOCAL oFont AS OBJECT
LOCAL oDlg AS OBJECT
LOCAL oSay AS OBJECT
oFont := tFont():new("Tahoma", 0, -12.00 ,,.F.,,,,.F.)
DEFINE DIALOG oDlg ;
SIZE 400,400 ;
TITLE "Test " + FWVERSION ;
TRUEPIXEL ;
FONT oFont
@ 20, 20 SAY oSay VAR "Percentuale detraibilita'" ;
SIZE GetTextWidth( 0, "Percentuale detraibilita'", oFont ) , oFont:nHeight * 2 ;
OF oDlg ;
PIXEL ;
FONT oFont ;
BORDER
@ 60, 20 SAY oSay VAR "Percentuale detraibilita'" ;
OF oDlg ;
PIXEL ;
FONT oFont ;
BORDER ;
ADJUST
ACTIVATE DIALOG oDlg CENTER
oFont:end()
return nil
