unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, RichEdit;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Label1: TLabel;
Label2: TLabel;
procedure RichEdit1SelectionChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
var
r: TRect;
firstline, lastvisibleline, lastlineindex: Integer;
begin
firstline := RichEdit1.Perform(EM_GETFIRSTVISIBLELINE, 0 , 0);
Label1.Caption := IntToStr(firstline); // 첫번째 보여지는 라인
RichEdit1.Perform(EM_GETRECT, 0, longint(@r)); // RichEdit1의 전체영역(TRect)을 얻는다
r.left := r.left+1;
r.top := r.bottom - 2;
lastlineindex := RichEdit1.Perform(EM_CHARFROMPOS, 0, integer(@r.topleft));
lastvisibleline := RichEdit1.Perform(EM_EXLINEFROMCHAR, 0, lastlineindex);
Label2.Caption := IntToStr(lastvisibleline); // 마지막 보여지는 라인
end;
end. |
|
