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]...

... 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 ...

... choosefont can have these parameters // aPreviousFont, @nRGBColor, hPrinterDC, nFlags --> aNewFont I not found the possibility to show effect( StrikeOut and Underline ) some one can help me pls ? So I understood I can show the effect and also the colors but how I can disable only the colors ?

... 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()local ...

... .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 )

... Click() 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 ...

... file was 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 ), Escapement( ...

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. ...

... 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

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...

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...