;
lineto(width-3,y);
Inc(y,2);
until y>=16;
{ltltblue outline line}
pen.color:=ltltblue;
rectangle(1,1,width-2,18);
{ltblue bottom right lines}
pen.color:=ltblue;
moveto(1,18);
lineto(width-3,18);
lineto(width-3,1);
moveto(1,18);lineto(width-3,18);
pen.color:=clblack;
moveto(0,18);lineto(width,18);
end;
end;
procedure TForm1.CloseBTNClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
closebtn.left:=8;
closebtn.top:=3;
invalidaterect(handle,nil,true);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Formresize(Form1);
if form1.windowstate=wsNormal then
else
if form1.windowstate=wsMaximized then
begin
Max:=false;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
fname := OpenDialog1.filename;
Memo1.Lines.LoadFromFile(OpenDialog1.filename);
Form1.Caption := 'Editor - '+fname;
end;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.filename);
end;
end.
실 행
화 면
다음에 나오는 그림과 같이 실행 화면은 그냥 텍스트를 입력하고 저장 할 수 있는 간단한 메모장과 같습니다. 윈도우에서 사용 되는 메모장과 사용 방법은 거의 비슷합니다.
양쪽 스크롤은 다 아시는 것과 같이 스크롤바 이며 아래쪽에 있는 버튼을 설명 하면 왼쪽에서부터 새문서 버튼, 그리고 파일열기 맨 오른쪽은 저장하기입니다. 그리고 위에 있는 네모난 버튼이 이 프로그램은 종료하는 버튼입니다. 이 버튼은 윈도우 창의 X 와 비슷한 역할을 합니다.
다음은 문서를 읽어 들이는 실행 화면입니다.
위의 실행 화면은 파일을 저장하는 화면입니다. 위의 그림에서 보시는 것과 같이 윈도우의 메모장과 거의 유사한 파일 읽기와 저장하기 형식을 가지고 있습니다.