FiveTech Software tech support forums

... := ChooseFont( { oFont:nInpHeight, oFont:nInpWidth, oFont:nEscapement,;                          oFont:nOrientation, oFont:nWeight, oFont:lItalic,;                          oFont:lUnderLine, oFont:lStrikeOut, oFont:nCharSet,;                          oFont:nOutPrecision, oFont:nClipPrecision,;  ...

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

... {NRGBCOLOR, 16777215}, {LSYSTEM, .T.}, {USOURCE, CLR_WHITE}}}, {OFONT, {{CFACENAME, TAHOMA}, {HFONT, 1242174205}, {HFONTOLD, 0}, {LBOLD, .F.}, {LITALIC, .F.}, {LUNDERLINE, .F.}, {LSTRIKEOUT, .F.}, {NINPHEIGHT, -20}, {NINPWIDTH, 0}, {NESCAPEMENT, 0}, {NORIENTATION, 0}, {NWEIGHT, 0}, {NCHARSET, ...

... del prg es un simple say: oExcel:Say(3,1 ,'Matrícula','Arial',09 ,.F. , , , 7 , , , ,1) //METHOD Say( nRow, nCol, xValue , cFont , nSize , lBold , lItalic ,lUnderLine, nAlign, nColor, nFondo , nOrien , nStyle , cFormat ) CLASS TExcelScript Como que "explota" el ole y el error sale en ...

... ) and oFontMed1:nHeight(50) but NO change :( METHOD nWidth( nNewValue ) SETGET METHOD nHeight( nNewValue ) SETGET METHOD Modify( nHeight, lBold, lItalic, lUnderline, lStrikeOut, nEscapement ) regards Uwe :D

... commands as in trichedit with MsftEdit.dll but Cristobal not make the function yet you can set a line or word with the method SetAttribute( lBold, lItalic, lUnderline, lStrikeOut, lOnOff, lLink , nYOffSet, lSuper, lSub, lProtect, nTypeUnder ) CLASS TRichEdit5 or exactply with setlink( lonoff ) ...

... <hBmp> ] ; [ INDEX <nIndex> ] ; [ <lRight: RIGHT> ] ; [ <lSeparator: SEPARATOR> ] ; [ <lBold: BOLD> ]; [ <lItalic: ITALIC> ]; [ COLORBOX <nClrBox> ] ; [ RADIOCHECK <nItemsGroup>, <nCheck> ] ; [ <lDefault: ITEMDEFAULT> ] ; [ <lLeft: ...

TFont():New( cFaceName, nWidth, nHeight, lFromUser, lBold,; nEscapement, nOrientation, nWeight, lItalic, lUnderline,; lStrikeOut, nCharSet, nOutPrecision, nClipPrecision,; nQuality, oDevice, nPitchFamily ) creates a font with exactly the same parameters using Windows function ...

... los brush ( CreateBrushIndirect ) Para ello, puedes utilizar la function hNewFont := CREATEFONTAS( oFont:hFont, oFont:lbold, oFont:lUnder, oFont:lItalic, oFont:nHeight ) //y, en tu caso, sería, por ejemplo ( para cambiar de bold o no bold y viceversa ) hNewFont := CREATEFONTAS( oFont:hFont, !oFont:lbold ...

... static function BuildRichEditBar( oWnd, oRtf, oBarMemo ) local oBtn, oBullet, oBold, oItalic, oNumber, oUnderline, oCursor local lBold := .F., ; lItalic := .F., ; lUnderline := .F.,; lBullet := .F.,; lNumber := .F. DEFINE CURSOR oCursor HAND @ oRtf:nTop,oRtf:nLeft BUTTONBAR oBarMemo ; SIZE oRtf:nWidth+100,27 ...

... static function BuildRichEditBar( oWnd, oRtf ) local oBar, oBtn, oBullet, oBold, oItalic, oNumber, oUnderline, oCursor local lBold := .F., lItalic := .F., lUnderline := .F., lBullet := .F.,; lNumber := .F. DEFINE CURSOR oCursor HAND @ 90,110 BUTTONBAR oBar OF oWnd BUTTONSIZE 26, 27 return ...

... <hBmp> ] ; [ INDEX <nIndex> ] ; [ <lRight: RIGHT> ] ; [ <lSeparator: SEPARATOR> ] ; [ <lBold: BOLD> ]; [ <lItalic: ITALIC> ]

... Italic( lOnOff ) METHOD Underline( lOnOff ) METHOD StrikeOut( lOnOff ) METHOD Escapement( nEsc ) METHOD Rotate( n ) METHOD Modify( nHeight, lBold, lItalic, lUnderline, lStrikeOut, nEscapement )

... New Roman" SIZE 10, 12 OF oPrn i have tried this, but doesn't work: oFont:nWidth( 24 ); oFont:nHeight( 10 ) oFont:lBold := .t. oFont:lItalic := .t. oFont:cFaceName := "Arial" is it possible? thanks, marzio

... 1 nIndex := 1 + nAvance endif oBmp:hBitmap = aBmp[ nIndex ] oBmp:Refresh() lWork := .f. endif return nil Static Function Fuentes( uVal ) //Bold, lItalic, lUnderline, lStrikeOut, nAncho ) local oFont, nFont, oFont2, nMargend //, cTextForm, nCrLf, lFocus, cChars local nLenFonts := Len( oGet:aFonts ...