FiveTech Software tech support forums

... == 0, { CLR_BLACK, RGB( 198, 255, 198 ) }, { CLR_BLACK, RGB( 232, 255, 232 ) } ) } END AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER, o:oDataFont := aFont[1]} ) oBrw:CreateFromCode() oWnd:oClient := oBrw BrwBtnBar( oBrw ) WaitOff( @oWait ) ACTIVATE WINDOW oWnd Return //------------------------------------------------------------------------------ ...

oRep:aFont already has two fonts built by the browse object oRep:aFont[ 1 ] is Tahoma size 0,-8 oRep:aFont[ 2 ] is Tahoma size 0,-8 bold I need to have another font I made oFontCopy := TFont():New("TAHOMA",0,-108,.F.,,180,,,,,,,,,,oRep:oDevice) ...

hi all in the say method of the TRLIN class the pointing index of the aClrText array is the one defined in aFont this causes some lines to have incorrect colors the problem is when the color selected is white therefore it seems that certain lines are no longer printed METHOD ...

...   := oBrowse:aArraydata[nRecord][20]     nColorFont  := oBrowse:aArraydata[nRecord][21]  only in the edit i create aFont array aFont:= { , , ,, , lItalic,lUnderline, lStrikeOut, ,, ,, , cFontName } then in the get control i do like this as i understand ...

hi Silvio, as i understand the 1st Parameter is a Array or Object of used Font   aFont := ChooseFont( { oFont:nInpHeight, oFont:nInpWidth, oFont:nEscapement,;                          oFont:nOrientation, oFont:nWeight, oFont:lItalic,;                    ...

hi Silvio, as i understand the 1st Parameter is a Array or Object of used Font   aFont := ChooseFont( { oFont:nInpHeight, oFont:nInpWidth, oFont:nEscapement,;                          oFont:nOrientation, oFont:nWeight, oFont:lItalic,;                    ...

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

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

... := {|| SetOrden(oBrw:aCols[04],"razsoc ASC",oQry )} AEval( oBrw:aCols, { | o | o:nHeadStrAlign := AL_CENTER,o:oDataFont := aFont[1] } ) oBrw:CreateFromCode() oWnVta:oClient := oBrw y para refrescar la consulta uso asi Static Procedure MyRefresh() local oWait WaitOn("Espere, ...

... FONT 2 oReport:lGrid := .T. oReport:cGrandTotal := "Total Geral ==>" END REPORT IF !oReport:lCreated RETU NIL ENDIF oReport:oTitle:aFont[1] := {|| 2 } //1ra linha do titulo, cor e fonte 2 oReport:nTopMargin := 600 //Espacio superior oReport:nDnMargin := 300 oReport:aColumns[2]:bTotalFont ...

No
this give me also the color and other effect

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

... GetDC( 0 ), 90 ), 0 )   ReleaseDC( 0, hDC )return nPoints  Thanks Rao But I not understood How call that function ACTION (aFont:=ChooseFont(),; cFont :=aFont[LF_FACENAME],; nSizeFont:=FontHeightInPoints( aFont[LF_HEIGHT ]),; aGet[14]:refresh(),aGet[15]:refresh()) run ok ...

If you look into the aFont : there is no correct size from to font ? Strange...

For the save : it seems that the lenght of aGet[15] is to small to see it.

... cTitulo ) LOCAL oDlg, aBoton[ 2 ], oIcon, oSay DEFINE DIALOG oDlg ; RESOURCE "MSGSTOP" ; OF oPublic:oWnd ; TITLE cTitulo ; FONT oPublic:aFont[ 2 ] REDEFINE XIMAGE oIcon ; ID 101 ; OF oDlg ; RESOURCE "STOP" oIcon:lTransparent := .t. REDEFINE SAY oSay ; VAR cTexto ; ID 102 ; ...

or including maybe the existing function BUILDFONT( aFont )

You can, If you like to duplicate the existing functionality.