Hi all,
I'm looking for a component to manage RTF file. Something like the Richtext embedded in FWH but with some more functions (eg. print margins, etc.).
At the moment I'm using Word / OpenOffice and it runs fine but I still have to deal with the different version on that products, furthermore some office products don't provide OLE facilities to connect.
Any solution to suggest ? Thanks in advance.
Marco;
Hi. Have you tried Fw TRichEdit() class? I find it works really nice and you have total control over the rtf on screen as well as printed.
Reinaldo.
Hi Reinaldo,
the tRichEdit class doesn't support table formatting and I need a more powerful rtf edit control than Wordpad because at the moment my Fwh apps are connected to Microsoft Word and OpenOffice Writer.
Hi toninhofwi,
do you have a FWH working sample that use that product ?
In the previous version of this topic, I asked about the tRichEdit class but my question never was answered.
I was told that the edited text could be stored in an .fpt memo field.
Since I already have a lot of data in memo files, I thought it would be nice to use the newly announced enhancements to the class. All of my screens are in an .rc file, so I wanted to take a memo edit control, make it available as an RTF editor, call up a standard text element from the existing .ftp, perhaps add some enhancements, and save it back in RTF format.
I asked if that was possible, and perhaps a sample of activating the control. Of course, I tried first, but it didn't work out so that is why I asked.
If anyone has some examples of doing this, or can tell me that it can't be done, I'll watch for your posts.
//----------------------------------------------------------------------------//
HB_FUNC( RESETHIGHLIGHT )
{
  CHARFORMAT2 cf;
  memset( &cf, 0, sizeof( cf ) );
  cf.cbSize = sizeof( cf );
  cf.dwMask = CFM_BACKCOLOR;
  cf.crBackColor = hb_parnl( 2 );
  hb_retl( SendMessage( ( HWND ) hb_parnl( 1 ), EM_SETCHARFORMAT,
             SCF_WORD | SCF_SELECTION, ( LPARAM ) &cf ) );
}//------------------------------------------------------------------------------------------------------------------------------
METHOD RTFHighlight() CLASS PATHTRANS
LOCAL nClrHigh := ReGetHighlight( ::oActive:hWnd )
LOCAL nClrBack := ChooseColor( nClrHigh )
  if !( nClrHigh == nClrBack )
   ReSetHighLight( ::oActive:hWnd, nClrBack )
   ::oActive:lChanged := .T.
  endif
RETURN NILaEval( ::aRtfs, { |e,n| iif( e:IsModify(), ( Â ;
   iif( ::hSSCEDLL <> Nil,         ;
     (SSCE_CheckCtrlDlg( ::oDlg:hWnd, e:hWnd, .f. ),;
     SSCE_CheckCtrlBackgroundClear( e:hWnd, SSCE_OPTION, RGB( 254, 1, 1 ) ) ), ),;
   iif( e:odbf:isAdd, (e:odbf:isadd := .f., e:odbf:append() ), ) ,;
   iif( !empty( e:GetText() ),       ;
     ( e:SaveToRtfFile( e:cFileName ),    ;
      e:odbf:VarText := MemoRead( e:cFileName ) ), ;
      e:odbf:VarText := "" ),       ;
   ;
      e:odbf:VarDate := date(),     ;
      e:odbf:VarTime := time(),     ;
      e:odbf:Save() ,          ;
      ::ExtractUsersIds( e ),       ;
      ::ExtractCASS( e ),        ;
      ::ExtractCptsIcds( e ) ), ),    ;
   ::SaveCaseInfo() } )  cSql := "\n"+;
   "MERGE $1$ ON (PathNo = '$2$')             \n"+;
   "WHEN NOT MATCHED THEN INSERT ( [PathNo], [text],   \n"+;
   "         [time], [date], [user] )       \n"+;
   "         VALUES( '$2$', :memoData,      \n"+;
   "         CAST( curtime() AS SQL_CHAR ),    \n"+;
   "         CAST( now() AS SQL_DATE ),      \n"+;
   "         user() )               \n"+;
   "WHEN MATCHED THEN UPDATE SET [TEXT] = :memoData,   \n"+;
   "         [time] = CAST( curtime() AS SQL_CHAR),\n"+;
   "         [date] = CAST( now() AS SQL_DATE ), \n"+;
   "         [user] = User()           \n"
  FOR EACH oRtf IN ::aRtfs
   cText := iif( !EMPTY( oRtf:GetText() ), oRtf:SaveAsRTF(), "" )
   IF oRtf:oDbf:isadd .AND. EMPTY( cText ) ; LOOP  ;ENDIF
   IF ::hSSCEDLL <> Nil
     SSCE_CheckCtrlDlg( ::oDlg:hWnd, oRtf:hWnd, .f. )
     SSCE_CheckCtrlBackgroundClear( oRtf:hWnd, SSCE_OPTION, RGB( 254, 1, 1 ) )
   ENDIF
   //Must re-read transcription after spell checker has ran.
   cText := iif( !EMPTY( oRtf:GetText() ), oRtf:SaveAsRTF(), "" )
   IF !EMPTY( cText )
     oQ := TAdsQuery():New()
     oQ:cSql := cSql
     oQ:aSubstitutes := { oRtf:oDbf:cTableName, ::cPthNo }
     oQ:adsPrepareSql()
     AdsSetString( "memoData", cText )
     oQ:RunAdsPreparedSql()
     oQ:End()       Â
    Â
   ENDIF
  Â
   oRtf:lChanged := .F.
   ::ExtractUsersIds( oRtf )
   ::ExtractCASS( oRtf )
   ::ExtractCptsIcds( oRtf )
  NEXT
  ::SaveCaseInfo()
  ::isChangedSinceLastSave := .F.
Reinaldo,
With the release of FWH 13.09, all of the RTF was updated, and the statement was made that it is all automatic with memo fields, etc.
Have you looked at that work, and seen how it might apply ? It even provides the controls, and was supposed to be quite automatic.
Further work was supposed to be implemented in 13.10 but that was never released.
Tim
Hi Tim,
My code is really old. Maybe over 10 yrs old. It has been recompiled with updated versions of fwh + xharbour up to xharbour from early 2013 + fwh 2012_04. I only hope that the new version of fw TRichText class that you make reference to is still backward compatible or it will break my code.
I had not heard about that new updated class, but I haven't had the time to keep up with all the news and being that rtfs are working so well for me, I might have read the news but did not pay enough attention. I think I'm only retaining 50% of what I read…
Best regards,
Reinaldo.