FiveTech Software tech support forums

for "rtf" RichEdit
for "gtf" FGet (FORMAT GET)
for "multiline text" MGET ( GET ..... MEMO )
for "single line text" Normal GET

Ok, It is more like the RichEdit function (class)

Thanks.

FGET rara vez se usa, pero les aseguro que es excelente y de una calidad maravillosa. Para probar su potencia, vea estos ejemplos de \samples: FGET is rarely used, but I assure you it is excellent and of wonderful quality. To test its power, see these examples of \samples:    testfge2.prg&...

For my new project, I'm looking into the get options and see there a 2 classes that can be used.

Tget and TFGet.

Witch one is best to use ? Both are in the FW source, so both are maintened by FW I think.

... use this Harbour for VSC2017: https://bitbucket.org/fivetech/harbour-xharbour-builds/downloads/Harbour_vsc2017_32bits_20170325.zip * Fix: Class TFGet was directly assigning a font. Now it is ok. Thanks to Günther: http://forums.fivetechsupport.com/viewtopic.php?p=198442#p198442 * XBROWSE: - ...

... Antonio? Another problem with GTF! Without commenting out the 2 lines in the following code-snippet from METHOD SetFormat( oFont, nColor ) CLASS TFGet the current font are destroyed!      if lIsFont//         DeleteObject( oFont:hFont )//         oFont:hFont := oOldFont:hFont         ::hFont ...

... ] ; [ <lDesign: DESIGN> ] ; [ <lNoBorder: NO BORDER, NOBORDER> ] ; [ <lNoVScroll: NO VSCROLL> ] ; => ; [ <oFGet> := ] TFGet():New( <nRow>, <nCol>, bSETGET(<uVar>),; [<oWnd>], <nWidth>, <nHeight>, <oFont>, <.hscroll.>,; ...

Dear SDO, The following data and methods of FGet may be useful Datas nLineCount -> Number of lines Methods GetLineCount -> Returns total number of lines LenText -> Returns the total number of characters of the control Len -> Text length Return/Ret -> Inserts a character return Fivewin...

... TCtrlSocket TCursor TDatabase TDatePick TDbfComp TDbm TDbms TDbOdbc TDDE TDDEMLClient TDDEServer TDict TDlgFind TDosPrn TEnhMetaFile TExStruct TFGet TField TFile TFileGTF TFLine TFolder TFTP TFTPSession TGet TGraph TGroup THtmlPage TIcon TIconGet TIconGroup TImage TImageList TIndex TIni TInternet ...

... with the one from the original File from Subdir < FWH/source/classes/Fget.prg > search for : METHOD RButtonDown ( nRow, nCol, nFlags ) CLASS TFGet ... ... MENU oMenu POPUP if ::oGetBak != nil .and. !::lReadOnly MENUITEM "& Undo " ACTION ::UnDo() else MENUITEM "&Undo" ...

... ) + CRLF +; "Total de caracteres" + Str( oGet:LenText() ) + CRLF MsgInfo( cInfo ) oGet:ReleaseDC() return nil //METHOD Print() CLASS TFGet Static Function Imprimir( oGet, cName, oFontX, nColorX ) local n, nMargen := 4, nCols, nFilas, nFactor := 0.70, nFilaIni := 2, lUser := .t., aJustif ...

... que no hay codigos de formato. Te envío las dos funciones. Gracias por tu rápido interes en comunicarte. Saludos: - Juan - //METHOD Print() CLASS TFGet Static Function Imprimir( oGet, cName, oFontX, nColorX ) local n, nMargen := 4, nCols, nFilas, nFactor := 0.70, nFilaIni := 2, lUser := .t., aJustif ...

Tengo una aplicación en la clase CLASS TFGet y no consigo que se justifiquen bien las líneas, ¿Alguien tiene el código adecuado?. Me sería muy útil. Gracias. - Juan -

Juan, Con este código, sin necesidad de modificar la Clase TFGet, puedes implementar soporte de la rueda del ratón:    oFGet:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | MouseWheel( nKey, nDelta, nXPos, nYPos, oFGet ) }         ...function ...

Dietmar, You may consider to use Class TRichEdit instead of Class TFGet, as standard Win32 richedit provides what you are looking for, besides many interesting features not supported in Class TFGet. Please review samples\TestRtf.prg and scroll down in the ...