FiveTech Software tech support forums

... cFontName := oBrowse:aArraydata[nRecord][15]
nFontSize := oBrowse:aArraydata[nRecord][16]
lUnderline := oBrowse:aArraydata[nRecord][17]
lStrikeOut := oBrowse:aArraydata[nRecord][18]
lBold := oBrowse:aArraydata[nRecord][19]
lItalic := oBrowse:aArraydata[nRecord][20]
nColorFont := oBrowse ...

... 58;//i.postimg.cc/ZRtcRdbr/2.jpg

choose font must return me

1. fontname
2. sizes
3. color font
4. Bold
5. Italic
6. underline
7. strikeout

On the dialog I see only fontname and size but in memory I must have all data to save them on dbf

I'm searching a good procedure becaus ethe ...

... 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 the colors,and the effect

https://i.postimg.cc/bNBFngr8/choosefont2 ...

... En tu versión que es reciente, debería funcionar como lo dice Cristóbal.
En mi version FW1204 he buscado en el include y aunque aparece definido STRIKEOUT, me da error, por lo que tengo que usar la font de terceros.
No aparece en el #xcommand DEFINE FONT <oFont>.

FUNCTION LetraTachada&#40;&#41 ...

... Bold( .t. )
oBoldItalic := oBold:Italic( .t. )

Methods available are :
METHOD Bold( lOnOff )
METHOD Italic( lOnOff )
METHOD Underline( lOnOff )
METHOD StrikeOut( lOnOff )
METHOD Escapement( nEsc )
METHOD Rotate( n )

METHOD Modify( nHeight, lBold, lItalic, lUnderline, lStrikeOut, nEscapement )

... de la clase TButton, antes no ajustaba correctamente el foco antes de ejecutar su acción.

* Nuevo: En font.c, se ha añadido la clausula STRIKEOUT para la creación de fuentes.

* Nuevo: En font.prg nuevos métodos: Bold( lOnOff ), Italic( lOnOff ), UnderLine( lOnOff ), StrikeOff( lOnOff ...

... provided.

* Fix: Class TButton Method Click() was not properly setting the focus before to executing its action.

* New: font.ch, added STRIKEOUT clause for creation of fonts

* New: font.prg new Methods: Bold( lOnOff ), Italic( lOnOff ), UnderLine( lOnOff ), StrikeOff( lOnOff ...

... aFont[ LF_ESCAPEMENT ],;
aFont[ LF_ORIENTATION ],;
aFont[ LF_WEIGHT ],;
aFont[ LF_ITALIC ],;
aFont[ LF_UNDERLINE ],;
aFont[ LF_STRIKEOUT ],;
aFont[ LF_CHARSET ],;
aFont[ LF_OUTPRECISION ],;
aFont[ LF_CLIPPRECISION ],;
aFont[ LF_QUALITY ],;
,;
aFont[ LF_PITCHANDFAMILY ] )

... 400) ,;
aFont[ LF_ESCAPEMENT ],;
aFont[ LF_ORIENTATION ],;
aFont[ LF_WEIGHT ],;
aFont[ LF_ITALIC ],;
aFont[ LF_UNDERLINE ],;
aFont[ LF_STRIKEOUT ],;
aFont[ LF_CHARSET ],;
aFont[ LF_OUTPRECISION ],;
aFont[ LF_CLIPPRECISION ],;
aFont[ LF_QUALITY ],;
,;
aFont[ LF_PITCHANDFAMILY ] )

LF ...

... not be different in size or the data will not be painted correctly.

So the programmer should keep in mind that he should choose different variations of the samesize font like italics, strikeout, etc.

Recalculation of the heght and width while painting every cell may be too slow and not desirable.

Hello Richard,
here is the define of the font:
StrikeOut is not in font.ch!!!
oFNT := TFont():New( "MS Sans Serif", 10, 15,,.T.,,,,.f.,.f.,.t.,,,,, )
Regards,
Otto

... LF_ESCAPEMENT ] := 0
aFont[ LF_ORIENTATION ] := 0
aFont[ LF_WEIGHT ] := 400
aFont[ LF_ITALIC ] := .F.
aFont[ LF_UNDERLINE ] := .F.
aFont[ LF_STRIKEOUT ] := .F.
aFont[ LF_CHARSET ] := 0
aFont[ LF_OUTPRECISION ] := 3
aFont[ LF_CLIPPRECISION ] := 2
aFont[ LF_QUALITY ] := 1
aFont[ LF ...

... 4",aFont[ LF_ESCAPEMENT ],"5",aFont[ LF_ORIENTATION ],"6",aFont[ LF_WEIGHT ],"7",aFont[ LF_ITALIC ],"8",aFont[ LF_UNDERLINE ],"9",aFont[ LF_STRIKEOUT ],"10",aFont[ LF_CHARSET ],"11",aFont[ LF_OUTPRECISION ],"12",aFont[ LF_CLIPPRECISION ],"13",aFont[ LF_QUALITY ],"14",aFont[ LF_PITCHANDFAMILY ...

... lf.lfItalic: 0, -1, LF_ITALIC );
_storl( ( bOk || bInitLF ) ? lf.lfUnderline: 0, -1, LF_UNDERLINE );
_storl( ( bOk || bInitLF ) ? lf.lfStrikeOut: 0, -1, LF_STRIKEOUT );
_storni( ( bOk || bInitLF ) ? lf.lfCharSet: 0, -1, LF_CHARSET );
_storni( ( bOk || bInitLF ) ? lf.lfOutPrecision: 0, -1 ...

... lf.lfItalic: 0, -1, LF_ITALIC );
_storl( ( bOk || bInitLF ) ? lf.lfUnderline: 0, -1, LF_UNDERLINE );
_storl( ( bOk || bInitLF ) ? lf.lfStrikeOut: 0, -1, LF_STRIKEOUT );
_storni( ( bOk || bInitLF ) ? lf.lfCharSet: 0, -1, LF_CHARSET );
_storni( ( bOk || bInitLF ) ? lf.lfOutPrecision: 0, -1 ...