FiveTech Software tech support forums

... 16!!! :( Is necessary reconvert the value for obtain -12. Is possible to insert this features directly in Choosefont? With 2 parameter ChooseFont( aFont, hDC ) ? ;) Have You found also the Solution for Cancel and X Button? Pier Luigi write this solution: if ( !bOk ) _reta(0); else { _reta( 14 ); ...

... #define FW_NORMAL 400 #define FW_BOLD 700 //------------------------------------------------------------------------------ FUNCTION Main( ) LOCAL aFont[14], oIni, aOldFont, cFont INI oIni FILE "prova.ini" GET cFont SECTION "Stampanti" ENTRY "FontInStampa" OF oIni DEFAULT "Arial| 0| -12| 0| 0| ...

... te è solo il font restituito) Purtroppo invece mi serve il nome del font, la dimensione e se è bold, italico e quanto ho definito nella variabile aFont, con la quale costruisco il font sulla stampante... Grazie, cmq. Posto sull'internazionale! Ciao, Ugo

... #define FW_NORMAL 400 #define FW_BOLD 700 //------------------------------------------------------------------------------ FUNCTION Main( ) LOCAL aFont[14], oIni, aOldFont, cFont INI oIni FILE "prova.ini" GET cFont SECTION "Stampanti" ENTRY "FontInStampa" OF oIni DEFAULT "Arial| 0| -12| 0| 0| ...

... FW_NORMAL 400 #define FW_BOLD 700 //------------------------------------------------------------------------------ FUNCTION SelectFont( ) LOCAL aFont[14], oIni, aOldFont, cFont INI oIni FILE DirPrg() + "\" + ExeName() + ".INI" GET cFont SECTION "Stampanti" ENTRY "FontInStampa" OF oIni DEFAULT ...

Gabri wrote:aFont:=Choosefont() > AFont[8] siempre me devuelve .f.

El valor negrita no se almacena en la posición 8. Se toma a partir del valor 5:

Code: Select all  Expand view

   
::lBold = If( lFromUser, ! ( ::nWeight == FW_NORMAL ), lBold )


Hola


Estoy utilizando la funcion Choosefont(), cuando selecciono un tipo de letra y la pongo en negrita, en el array que me devuelve no me lo devuelve con un tipo de letra en negrita, es que funciona mal esta funcion ?


aFont:=Choosefont() > AFont[8] siempre me devuelve .f.