Delphi 7 TRichTextEdit Text in a box not displaying correctly

Question

Using delphi 7 TRichEdit component, RTF data is being imported from a msword document through copy and paste, but if data is contained in a box, it is not displaying correctly i.e.

enter image description here

Please assist

Yes it appears well but using the RTF editors from RX and from Delphi,the layout changes. — KE50
– KE50, Commented May 8, 2012 at 12:33
That's got to do something with the version of the richedit control used by the VCL. I'm sure someone will remember the details.. — Sertac Akyuz
– Sertac Akyuz, Commented May 8, 2012 at 12:35
I think Sertac is right, maybe you can try to upgrade to a newer version like François described on his blog. — TLama
– TLama, Commented May 8, 2012 at 12:53
SertacAkyuz and TLama thanks for the prompt replies i think this is the way to go, only problem is the fix by Francois is for delphi 10. — KE50
– KE50, Commented May 8, 2012 at 13:20

TLama · Accepted Answer · 2012-05-08 14:33:24Z

3

Try to use the following, it should subclass the TRichEdit class to version 4.1. However I don't know if Delphi 7 supports interposed classes, so just try to paste the following code and try to build the project.
If it compiles then if you put a TRichEdit component and run the project you should get RichEdit 4.1.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, RichEdit;

type
  TRichEdit = class(ComCtrls.TRichEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FRichEditModule: THandle;

implementation

{$R *.dfm}

{ TRichEdit }

procedure TRichEdit.CreateParams(var Params: TCreateParams);
const
  RichEditClassName = 'RICHEDIT50A';
  RichEditModuleName = 'MSFTEDIT.DLL';
  HideScrollBarsStyle: array[Boolean] of DWORD = (ES_DISABLENOSCROLL, 0);
  HideSelectionsStyle: array[Boolean] of DWORD = (ES_NOHIDESEL, 0);
begin
  if FRichEditModule = 0 then
  begin
    FRichEditModule := LoadLibrary(RichEditModuleName);
    if FRichEditModule <= HINSTANCE_ERROR then
      FRichEditModule := 0;
  end;
  inherited CreateParams(Params);    
  CreateSubClass(Params, RichEditClassName);
  Params.Style := Params.Style or HideScrollBarsStyle[HideScrollBars] or
    HideSelectionsStyle[HideSelection];
  Params.WindowClass.style := Params.WindowClass.style and
    not (CS_HREDRAW or CS_VREDRAW);
end;

initialization

finalization
  if FRichEditModule <> 0 then
    FreeLibrary(FRichEditModule);

end.

edited May 8, 2012 at 14:33

answered May 8, 2012 at 13:44

TLama

76.9k17 gold badges226 silver badges418 bronze badges

Sign up to request clarification or add additional context in comments.

7 Comments

Sertac Akyuz Over a year ago

IIRC the RxRichEdit already used RICHED20.DLL. If it doesn't display the box correctly OP should perhaps aim for 'RICHEDIT50W' (or perhaps 'RICHEDIT50A' if it has got an Ansi counterpart) as you've mentioned in your comment to the question.

TLama Over a year ago

@Sertac, there is already version 5.0 ? Never noticed that (I'm not an advanced rich edit user, I've been just satisfied with 2.0 :-) And I really lost an overview what's in Delphi 7 (I was thinking about v.1.0).

KE50 Over a year ago

it gives a 'RichEdit Line Insertion' error after adding a TRichEdit component

Sertac Akyuz Over a year ago

@TLama - Well, I was reading the blog you mentioned. AFAIU that's the class name for the 4.1 version. Confusing..

Sertac Akyuz Over a year ago

I confirm the modified answer works in D7. However I cannot confirm it will help or not, since when I paste a text box from Word to WordPad there's no box at all.

|

KE50 · Accepted Answer · 2012-05-10 11:39:11Z

2

Finally got it to work,

It was as simple as adding the Riched20.dll (Latest version) to the application folder

answered May 10, 2012 at 11:39

KE50

5641 gold badge7 silver badges20 bronze badges

Collectives™ on Stack Overflow

Delphi 7 TRichTextEdit Text in a box not displaying correctly

2 Answers 2

7 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

7 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related