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
#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 