FiveTech Software tech support forums

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

... 0}, {NCOUNT, 6}, {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, ...

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

... 50, .T. ) 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

... <cFile>, <nLin>, <lRead>, <oDlg>, <lMnu>, <pDoc>, <nLex>, <bSetup>,; <nSizeFont>, <lBold>, <bInit>, <lLoad>, <lModal>, <bExec>, <oMenu> ) lLoad : load Dll need lModal : Show dialog in modal mode bExec ...

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

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

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

Mr Karinha

In the sample you posted, the font of oSay2 is changed.
So, in the next button action you should write If( oSay2:oFont:lBold but not If( oSay:oFont:lBold

... con otros recursos como 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( ...

... Alguna manera de solucionarlo? Gracios Puedes intentarlo asi     DEFINE FONT oFont  NAME "Arial" SIZE nWdFont, nHtFont OF oPrn oFont:lBold := lNegrilla

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

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

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

...  3985  3989  4088 LASTACTIVECTRL()       (function  in ?)    WINDOW.PRG      672  3846 LBALLOON                WINDOW.PRG      439  3612  3612 LBOLD                  WINDOW.PRG     3318 LBUTTONDOWN()          (function  in ?)    WINDOW.PRG      674  2426 LBUTTONUP()            (function  in ...