[일반/컴포넌트] RichEdit 2.0 줄간격 조정

// RichEdit의 한글 폰트의 경우 줄간격이 좁은 경향이 있다. 아래는 이를 원하는 만큼 늘리는 방법이다
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  format: TCharFormat;
begin
  RichEdit1.SelectAll; // 반드시 선택해야 한다
  FillChar(format, sizeof(format), 0);
  With format Do
  Begin
    cbSize  := Sizeof(format);
    dwMask  := CFM_OFFSET;
    yOffset := 60; // 클수록 행간격 넓어짐
  End;
  RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, LongInt(@format));
  RichEdit1.SelLength := 0;
end;

end.