FiveTech Software tech support forums

When open choosefont ( on first time) not set the size of font I passed as you can see on this picture How it is possible ? https://i.postimg.cc/HjG3khDm/font.png the small test #include "FiveWin.ch"function ...

hi,

karinha wrote:Yes, SETFONT() .or. CHooseFont()

thx for Answer

i have put SetFont() into INIT and it work like i want

---

btw.
i have try disable Theme before but it does not work at that place
when do same at INIT it does work ... what is it he Difference

Yes, SETFONT() .or. CHooseFont() // C:\FWH..\SAMPLES\JIMMRAD2.PRG#include "Fivewin.CH"#define CLR_PretoDark        RGB(   0,   0,   0 )#define CLR_SombrioDark      RGB( ...

... SIZE 50, 23 PIXEL FLAT NOROUND @ nRow, 255 BUTTONBMP oBtnSel[4] RESOURCE "REP_FONT" FLAT SIZE 20, 23 OF ooDlgPIXEL ; ACTION (aFont := ChooseFont(@cFontName,@nColorFont ),; cFontName:=aFont[LF_FACENAME],; nFontSize:=IF( aFont[LF_HEIGHT ]!=NIL,FontHeightInPoints( aFont[LF_HEIGHT ]),0) ...

When I recall Choosefont() I not see the font I select before
How I can to show the font I select before ?
I call with aFont := ChooseFont(,@nColorFont ) where nColorFont is the color

Mira \samples\UGO.PRG se sirve. http://forums.fivetechsupport.com/viewtopic.php?t=13678 http://www.fivetechsupport.com/forums/viewtopic.php?f=3&t=18075 http://www.fivetechsoft.com/files/utilities/nautilus/PRG/NAUTILUS.PRG Karinha, I need to make t...

Mira \samples\UGO.PRG se sirve.

http://forums.fivetechsupport.com/viewtopic.php?t=13678

http://www.fivetechsupport.com/forums/viewtopic.php?f=3&t=18075

http://www.fivetechsoft.com/files/utilities/nautilus/PRG/NAUTILUS.PRG

..

... included from c:\Bcc7164\include\windows\sdk\Windows.h:263: c:\Bcc7164\include\windows\sdk\commdlg.h:710:21: warning: redefinition of typedef 'CHOOSEFONT' is a C11 feature [-Wtypedef-redefinition] typedef CHOOSEFONTA CHOOSEFONT; ^ c:\Bcc7164\include\windows\sdk\commdlg.h:695:21: note: previous ...

... included from c:\bcc7164\include\windows\sdk\windows.h:263: c:\bcc7164\include\windows\sdk\commdlg.h:710:21: warning: redefinition of typedef 'CHOOSEFONT' is a C11 feature [-Wtypedef-redefinition] typedef CHOOSEFONTA CHOOSEFONT; ^ c:\bcc7164\include\windows\sdk\commdlg.h:695:21: note: previous ...

If I call ChooseFont( ,@nColoreFont ) it show me this https://i.postimg.cc/65WNcMBv/choosefont1.png So I saw and can select also the effect Strikeoutline and UNDERLINE If make If I call ChooseFont() I cannot see ...

No
this give me also the color and other effect

local aFont, nRGBColor := 0
aFont := ChooseFont( , @nRGBColor )
MsgInfo( nRGBColor )

... aFont[LF_UNDERLINE] )    // Test in entrata   MsgInfo( cFont )    aFont := ChooseFont( aFont )    cFont := aFont[LF_FACENAME] + "|" +;            cValToChar( ...

choosefont have the parameter?

I ask it because on my pc I cannot see the colors




and when I wish select a font it must me return all also the color


I cannot see the color and the effect type Underlined or Strikethrough

... web https://www.vbforums.com/attachment.php?attachmentid=126031&d=1429972677 here , I not see bold... and color when you make choosefont you must have Font name Font size Color Bold Italic Underlined Strikethrough I remember EasyReport save 20 type of font with 20 type of colors ...