Problema comando SAY
Posted: Fri Mar 12, 2021 9:17 amBuon giorno a tutti
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
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
#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