Delphi 7 TRichTextEdit正しく表示されないテキスト

Question

delphi 7 TRichEditコンポーネントを使用すると、RTFデータがmswordドキュメントからコピー＆ペーストによってインポートされていますが、データがボックスに含まれていると正しく表示されません。

は、それがバージョン4.1にTRichEditクラスをサブクラス化する必要があり、次のように使用する

Answer 1

てみを支援してください。しかし、Delphi 7が介在クラスをサポートしているかどうかはわかりませんので、次のコードを貼り付けてプロジェクトを構築してみてください。
コンパイルする場合、TRichEditコンポーネントを配置してプロジェクトを実行すると、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. 

Answer 2

が最後にそれが動作するようになった、

あなたがワードパッドに貼り付けた場合は、それが正しく表示さん、アプリケーションフォルダ