FiveTech Software tech support forums

I have different on my dialog I use BTNBMP control to show name of font and sizes cFontName := oBrowse:aArraydata[nRecord][15] nFontSize := oBrowse:aArraydata[nRecord][16] lUnderline := oBrowse:aArraydata[nRecord][17] lStrikeOut := oBrowse:aArraydata[nRecord][18] lBold := oBrowse:aArraydata[nRecord]...

ChooseFont() function of FWH is a straight forward implementation of Windows function ChooseFont(). The font size displayed in the ChooseFont() dialog box is in "Points". This size in points is converted to font height with this formula. lfHeight = -MulDiv(PointSize, GetDeviceCaps(...

I think You have to define a extra font The tested fontstring ( saved to a DBF-field ) cBFont[3] := {"AcmeFont",0,-13,.F.,.F., 900 ,0,,.F.,.F.,.F.,0,3,2,1,,2} I save the fontstring cBFont[3] to a DBF-field like ACTION ( aFont := CHOOSEFONT(), ; oFont0 := BUILDFONT( aFont ) , ; IIF( aFont[ ...

... us know if you adopted (a), (b) or (c) 4) If we do not get any clue from the above, I suggest you to create a totally new font with a different facename ( roman or some other ) and use that font exclusively only for RBBTNS. Then we'll be more clear if the offending code is in RBBtn or somewhere ...

... back to same font. Nothing changes. Buttons in Buttonbar ignore any font setting of the button. In case a font is set to Buttonbar and that font's facename is 'Tahoma' ( not even 'TAHOMA' ) of any size that font is used and otherwise Tahoma 0,-11 is forced. You can make the button prompts' font ...

Mr Harvey Buttons in Buttonbar ignore any font setting of the button. In case a font is set to Buttonbar and that font's facename is 'Tahoma' ( not even 'TAHOMA' ) of any size that font is used and otherwise Tahoma 0,-11 is forced. You can make the button prompts' font bold if you ...

Ups,,, falto algo FUNCTION BUILDFONT( aFont ) IF EMPTY( aFont[ LF_FACENAME ] ) RETURN NIL ENDIF RETURN TFont():New( aFont[ LF_FACENAME ],; ,; aFont[ LF_HEIGHT ],; .f.,; !( aFont[ LF_WEIGHT ] == FW_NORMAL ),; aFont[ LF_ESCAPEMENT ],; aFont[ LF_ORIENTATION ],; aFont[ LF_WEIGHT ],; aFont[ LF_ITALIC ],;...

Hello from Germany I'm still struggling with the INI-Handling for Fonts. I got it working like : [Main] DATESET=5 WRITESET=1 [Paint] HEADPIC=1 COLTEXT=2 LOGO1=LOGO1 BRUSH1=9 COLOR1=16711680 LOGO2=LGO2 BRUSH2=9 COLOR2=16711680 POSTOP=10 POSLEFT=70 [SysFonts] FONT1=Arial 10 .F. .F. FONT2=Arial 12 .F. ...

I can't see the Size setting: aFont := Choosefont() IF EMPTY( aFont[ 14 ] ) aFont[ LF_HEIGHT ] := - 13 aFont[ LF_WIDTH ] := 0 aFont[ LF_ESCAPEMENT ] := 0 aFont[ LF_ORIENTATION ] := 0 aFont[ LF_WEIGHT ] := 400 aFont[ LF_ITALIC ] := .F. aFont[ LF_UNDERLINE ] := .F. aFont[ LF_STRIKEOUT ] := .F. aFont[ ...

Amigos Trato de pulir un diseñador visual en tiempo de ejecucion como hago para convertir los fonts de gets q tengo en un TWINDOWS a FONTS de la clase TPRINTER la idea es q se imprima lo q se tiene en la TWINDOWS que simula al papel en la respectiva proporcion en la vista previa con la clase tPRINTE...

Antonio,

También falla al llamar a SETCHARFORMAT() y pulsar cancelar, se arreglaría añadiendo

aFont := ChooseFont( aFont, @nColor )

if !Empty( aFont[ LF_FACENAME ]) <---- Esta línea

................

Endif


Un Saludo,
Joaquín

In order to intercept the "Cancel" key is necessary to modify the ChooseFont function in the module font.c ... if ( !bOk ) _reta(0); else { _reta( 14 ); _storni( ( bOk || bInitLF ) ? lf.lfHeight: 0, -1, LF_HEIGHT ); _storni( ( bOk || bInitLF ) ? lf.lfWidth: 0, -1, LF_WIDTH ); _storni( ( bOk || bInit...

Per intercettare il tasto Annulla è necessario modificare la funzione ChooseFont contenuta nel modulo font.c ... if ( !bOk ) _reta(0); else { _reta( 14 ); _storni( ( bOk || bInitLF ) ? lf.lfHeight: 0, -1, LF_HEIGHT ); _storni( ( bOk || bInitLF ) ? lf.lfWidth: 0, -1, LF_WIDTH ); _storni( ( bOk || bIn...

Hi Fw's. ChooseFont function can not set correctly the dimension of character passed in Array parameter and if I change the dimension is not the set value correctly. For Ex. I set in the array -12, ChooseFont 9, select 12 and return -16!!! Another problem is if I press "Cancel" button after any sett...

Prova ora: #define LF_HEIGHT 1 #define LF_WIDTH 2 #define LF_ESCAPEMENT 3 #define LF_ORIENTATION 4 #define LF_WEIGHT 5 #define LF_ITALIC 6 #define LF_UNDERLINE 7 #define LF_STRIKEOUT 8 #define LF_CHARSET 9 #define LF_OUTPRECISION 10 #define LF_CLIPPRECISION 11 #define LF_QUALITY 12 #define LF_PITCHA...