FiveTech Software tech support forums

... WS_POPUP ) PIXEL IF oBrw:oFont != nil oFont := TFont():New( oBrw:oFont:cFaceName, oBrw:oFont:nWidth,; oBrw:oFont:nHeight, .F., oBrw:oFont:lBold ) Endif @0,0 GET oGet VAR uVar ; SIZE aDim[ 4 ] - aDim[ 2 ] - If( bAction != nil, 12, 0 ),; aDim[ 3 ] - aDim[ 1 ] OF oDlg ; FONT oFont COLOR nClrFore, ...

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