FiveTech Software tech support forums

Günther,

If you want to convert a RTF into standard text, then using a RichEdit control, you could do this:

oRichEdit:LoadRTF( cRTFText ) // RTF

MsgInfo( oRichEdit:GetText() ) // standard text

I made also : aGet[11]:Show() aGet[11]:SetFocus() aGet[ 11 ]:bValid := { | o | ! Empty( o:GetText() ) } the final use cannot use combobox and other gets controls but if press on xbrowse ( edit_get) columns the aget[11] lose the setfocus and the final user can edit the ...

Silvio,

try it this way:

aGet[ 11 ]:bValid := { | o | ! Empty( o:GetText() ) }

... La función GetWindowTextW() es muy importante pues es la función que se llama cuando hacemos oControl:GetText() si la DATA lUnicode es .T. Una vez solucionemos eso, podremos continuar con el soporte de Unicode. Agradezco tu ayuda y la de cualquier otro ...

... are a making a very good progress with it, but I have found a simple problem that I can't solve yet. See how I modified the Method SetText() and GetText() in Class TWindow:   METHOD GetText() INLINE If( ! ::lUnicode, GetWindowText( ::hWnd ),;        ...

Hola Antonio, Estoy cambiando de la version 7.01 A LA VERSION 14.02 de fwh, y al intentar compilar me marca esto Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Error: Unresolved external '_hb_gt_Init' referenced from C:\FWH1402\XHARBOUR\LIB\RTL.LIB|gtapi Error: Unresolved external '_hb...

Hi Tim; To save the contents of the rtf being edited using the TRichEdit() class, you could use the GetText() method which returns the rtf. Here is sample code using pure harbour. aEval( ::aRtfs, { |e,n| iif( e:IsModify(), (   ;      iif( ::hSSCEDLL ...

...     1767 GETSYSCOLOR()          (function  in ?)    WINDOW.PRG      940  1120  1121 GETSYSFONT()           (function  in ?)    WINDOW.PRG     3325 GETTEXT()              (function  in ?)    WINDOW.PRG      626  1552  1886 GETTEXTALIGN()         (function  in ?)    WINDOW.PRG     2384 GETTEXTWIDTH() ...

Como te indica Marcelo, el código seria más o menos asi:

AEval( oDlg:aControls, { | o | If( Upper( o:ClassName() ) == "TGET", o:SetText( uValBlank( o:GetText() ) ),) } )

El que lo lea es algo que no es necesario, lo hice solo por probarlo, con llamar a la funcion GetText() consigues que se cree el fichero de texto

Hello Antonio,
I tried your Suggestion.
I inserted a button like this:
REDEFINE BUTTONBMP ID 4002 OF oDlg ;
ACTION msginfo( oRich:gettext() )

When I drop files from Explorer oRich:gettext() is empty.
Best regards,
Otto

See this in line 814:

cRet := If( Empty( ::oGet:hWnd ), ::aItems[ nAt + 1 ], ::oGet:GetText() )

... TComboBox local cRet, nAt := ::SendMsg( CB_GETCURSEL ) if nAt != CB_ERR ::nAt = nAt + 1 cRet := If( ::oGet == nil, ::aItems[ nAt + 1 ], ::oGet:GetText() ) //::OGET!!! else cRet := GetWindowText( ::hWnd ) endif return cRet

Lucas,

Fixed. In combobox.prg line 476:

Instead of:
Eval( ::bSetGet, If( ::oGet == nil, ::aItems[ nAt + 1 ], ::oGet:GetText() ) )

use:
Eval( ::bSetGet, GetWindowText( ::hWnd ) )

testcomb.prg and combos.prg are working fine

... estos, pero no me funcionan: REDEFINE SAY oSay ID 4014 OF oDlg ... MsgInfo(oSay:cCaption) MsgInfo(oSay:cPrompt) MsgInfo(oSay:cText) MsgInfo(oSay:GetText()) ¿Es posible? Saludos.