codesnip/Src/ClassHelpers.RichEdit.pas at develop · delphidabbler/codesnip · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
{
 * This Source Code Form is subject to the terms of the Mozilla Public License,
 * v. 2.0. If a copy of the MPL was not distributed with this file, You can
 * obtain one at https://mozilla.org/MPL/2.0/
 *
 * Copyright (C) 2025, Peter Johnson (gravatar.com/delphidabbler).
 *
 * Class helper for TRichEdit.
}

unit ClassHelpers.RichEdit;

interface

uses
  // Delphi
  ComCtrls,
  // Project
  URTFUtils;

type
  TRichEditHelper = class helper for TRichEdit
  public
    procedure Load(const ARTFMarkup: TRTFMarkup);
  end;

implementation

uses
  // Delphi
  SysUtils,
  Classes;

{ TRichEditHelper }

procedure TRichEditHelper.Load(const ARTFMarkup: TRTFMarkup);
var
  Stream: TStream;
begin
  PlainText := False;
  Stream := TMemoryStream.Create;
  try
    ARTFMarkup.ToStream(Stream);
    Stream.Position := 0;
    // must set MaxLength or long documents may not display
    MaxLength := Stream.Size;
    Lines.LoadFromStream(Stream, TEncoding.ASCII);
  finally
    Stream.Free;
  end;
end;

end.