FiveTech Support Forums

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

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][19]

 lItalic     := oBrowse:aArraydata[nRecord][20]

 nColorFont  := oBrowse:aArraydata[nRecord][21]

@ nRow,5 BTNBMP aGet[15] OF oDlg;

            PROMPT cFontName  RIGHT;

            SIZE 250, 23  PIXEL FLAT NOROUND

@ nRow,215 BTNBMP aGet[16] OF oDlg;

            PROMPT STR(nFontSize) 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 ]),0) ,;

                              lBold:= IIF(aFont[LF_WEIGHT]=700,.t.,.f.) ,;

                             lItalic:= aFont[LF_ITALIC],;

                            lUnderline:=aFont[LF_UNDERLINE],;

                           lStrikeout:=aFont[ LF_STRIKEOUT ],;

                       aGet[15]:settext(cFontName),;

                       aGet[16]:settext(str(nFontSize)),;

                       aGet[15]:refresh(),;

                       aGet[16]:refresh())

First run ok then On modify the choosefont not take the font I save before

I sent you a minitest

Jimmy wrote:hi Silvio,

as i understand the 1st Parameter is a Array or Object of used Font

Code (fw): Select all Collapse

   aFont := ChooseFont( { oFont:nInpHeight, oFont:nInpWidth, oFont:nEscapement,;
                          oFont:nOrientation, oFont:nWeight, oFont:lItalic,;
                          oFont:lUnderLine, oFont:lStrikeOut, oFont:nCharSet,;
                          oFont:nOutPrecision, oFont:nClipPrecision,;
                          oFont:nQuality, oFont:nPitchFamily, oFont:cFaceName },;
                          @nNewColor )

later we can use Array aFont to create New Font

Code (fw): Select all Collapse

   if !Empty( aFont[ LF_FACENAME ] )
      oNewFont = 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 ],;
                           aFont[ LF_UNDERLINE ], aFont[ LF_STRIKEOUT ],;
                           aFont[ LF_CHARSET ], aFont[ LF_OUTPRECISION ],;
                           aFont[ LF_CLIPPRECISION ], aFont[ LF_QUALITY ],,;
                           aFont[ LF_PITCHANDFAMILY ] )

and set new Color

Code (fw): Select all Collapse

      o:SetFormat( oNewFont, nNewColor )

    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:aArraydata[nRecord][21]

 @ nRow,5  BTNBMP aGet[15] OF oRigaModulo;
                PROMPT cFontName  RIGHT;
                SIZE 250, 23  PIXEL FLAT NOROUND

 @ nRow,215  BTNBMP aGet[16] OF oRigaModulo;
                PROMPT STR(nFontSize) LEFT;
                SIZE 50, 23  PIXEL FLAT NOROUND

@ nRow, 255 BUTTONBMP oBtnSel[4]  RESOURCE "REP_FONT"  FLAT SIZE 20, 23  OF oRigaModulo PIXEL ;
         ACTION (aFont  := ChooseFont(aFont,@nColorFont ),;
                           cFontName:=aFont[LF_FACENAME],;
         nFontSize:=IF( aFont[LF_HEIGHT ]!=NIL,FontHeightInPoints( aFont[LF_HEIGHT ]),0) ,;
                           lBold:= IIF(aFont[LF_WEIGHT]=700,.t.,.f.) ,;
                           lItalic:= aFont[LF_ITALIC],;
                           lUnderline:=aFont[LF_UNDERLINE],;
                           lStrikeout:=aFont[ LF_STRIKEOUT ],;
                           aGet[15]:settext(cFontName),;
                           aGet[16]:settext(str(nFontSize)),;
                           aGet[15]:refresh(),;
                           aGet[16]:refresh())

Silvio.Falconi wrote:I have the data in a browse

Code (fw): Select all Collapse

    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:aArraydata[nRecord][21]

only in the edit i create aFont array

Code (fw): Select all Collapse

aFont:= { , , ,, , lItalic,lUnderline, lStrikeOut, ,, ,, , cFontName }

then in the get control i do like this

       aFont := { oFont:nInpHeight, oFont:nInpWidth, oFont:nEscapement,;
                              oFont:nOrientation, oFont:nWeight, oFont:lItalic,;
                              oFont:lUnderLine, oFont:lStrikeOut, oFont:nCharSet,;
                              oFont:nOutPrecision, oFont:nClipPrecision,;
                              oFont:nQuality, oFont:nPitchFamily, oFont:cFaceName }