topic-40097

Posts: 181

Joined: Thu Apr 17, 2008 02:38 PM

Problema comando SAY
Posted: Fri Mar 12, 2021 09:17 AM

Buon 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

Code (fw): Select all Collapse

#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

Enrico Maria Giordano

Posts: 9020