unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.WordWrap := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i, firstline, lastline: Integer;
begin
with Memo1 do
begin
Lines.BeginUpdate; // repaint 를 금지한다
firstline := Perform(EM_LINEFROMCHAR, SelStart, 0); // 선택 시작행
lastline := Perform(EM_LINEFROMCHAR, SelStart+SelLength, 0); // 선택 마지막행
for i := lastline downto firstline do
begin
SelStart := Perform(EM_LINEINDEX, i, 0);
SelLength := 0;
// SelText는 선택된 영역을 다른 문자열 바꿀때 사용하는 것으로
// 여기서는 SelLength 가 0 이므로 ' '을 삽입하여 들여쓰기(indent)가 된다
SelText := ' ';
end;
Lines.EndUpdate;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i, firstline, lastline: Integer;
begin
with Memo1 do
begin
Lines.BeginUpdate; // repaint 를 금지한다
firstline := Perform(EM_LINEFROMCHAR, SelStart, 0); // 선택 시작행
lastline := Perform(EM_LINEFROMCHAR, SelStart+SelLength, 0); // 선택 마지막행
for i := lastline downto firstline do
begin
SelStart := Perform(EM_LINEINDEX, i, 0);
SelLength := 1;
// SelText는 선택된 영역을 다른 문자열 바꿀때 사용하는 것으로
// 여기서는 SelLength 가 1 이므로 공백을 삽입하여(삭제효과) 내여쓰기가 된다
SelText := '';
end;
Lines.EndUpdate;
end;
end;
end. |
|
