FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour RTF Class ...
Posts: 437
Joined: Fri Oct 07, 2005 12:56 PM

RTF Class ...

Posted: Thu Mar 29, 2007 04:57 AM

Hi !
If to open rtf file which contains two tables with Word , you will see correct view - both tables are parallelly . But if open this file with RTF class ( with TestRich ) , then the tables are going in sequence - first is above and second below . How to avoid this ?

Rimantas U.
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM

RTF Class ...

Posted: Thu Mar 29, 2007 10:22 PM

Rimantas,

Sorry that I have no answer to your question, but I want to add a problem that I have with the sample TestRich.

In the PRG-file, the dll RICHED20.DLL is used. Where can I find this DLL-file ?

Thank you.

Michel

Regards,

Michel D.
Genk (Belgium)


_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Posts: 128
Joined: Wed Oct 26, 2005 12:18 PM

tRichEd

Posted: Fri Mar 30, 2007 02:35 AM

Use riched20.dll version 5.50 or upper and you will see rtf files rightly showed. Also, you can zoom rtf and previews are as expected. Zooming methods are listed below and must be called with %zoom, example, oRtf:SetZoom(65) //65%

Add to tRichEd class (or extend class)
DATA nW0

define EM_GETZOOM (WM_USER + 224)

define EM_SETZOOM (WM_USER + 225)

METHOD SetZoom(nZoom)
METHOD GetZoom(nZoom)

METHOD SetZoom(nZoom)
Local nNum:=nZoom, nDen:=100, k
DEFAULT ::nW0:=::nWidth-20
FOR k:=2 to 5 step 3
DO WHILE nNum%k=0 .and. nDen%k=0
nNum/=k; nDen/=k
ENDDO
NEXT
IF nNum>0 .and. nNum<64 .and. nDen>0 .and. nDen<64
::SetSize(::nW0*nZoom/100+20,::nHeight)
::SendMsg(EM_SETZOOM, nNum, nDen)
ENDIF
return nil

METHOD GetZoom()
Local nZoom,nNum:=0, nDen:=0
::SendMsg(EM_GETZOOM, nNum, nDen)
nZoom:=100*nNum/Max(nDen,1)
return nZoom

Regards.
César Lozada

Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM

RTF Class ...

Posted: Fri Mar 30, 2007 09:06 AM
driessen wrote:In the PRG-file, the dll RICHED20.DLL is used. Where can I find this DLL-file ?


You should already have it in your c:\windows\system32 directory.

EMG
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM

RTF Class ...

Posted: Fri Mar 30, 2007 10:54 PM

Found.

Thanks, Enrico.

Michel

Regards,

Michel D.
Genk (Belgium)


_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM

RTF Class ...

Posted: Mon May 21, 2007 10:19 PM

Hello,

it's possible to create a table in a RTF document from FiveWin? somebody have the solution?

Regards

Marcelo

Continue the discussion