Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id
Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com
Sourcecode [ Membuat program notepad ] :
unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Menus, ExtCtrls, ComCtrls, XPMan;
type
TForm1 = class(TForm)
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
MainMenu1: TMainMenu;
File1: TMenuItem;
Open1: TMenuItem;
Save1: TMenuItem;
Exit1: TMenuItem;
Edit1: TMenuItem;
Paste1: TMenuItem;
Copy1: TMenuItem;
Cut1: TMenuItem;
N4: TMenuItem;
N1: TMenuItem;
Clearall1: TMenuItem;
Font1: TMenuItem;
New1: TMenuItem;
Delete1: TMenuItem;
N2: TMenuItem;
Undo1: TMenuItem;
N3: TMenuItem;
XPManifest1: TXPManifest;
Font2: TMenuItem;
FontDialog1: TFontDialog;
View1: TMenuItem;
FullScreen1: TMenuItem;
NormalScreen1: TMenuItem;
N5: TMenuItem;
Minimize1: TMenuItem;
DateTime1: TMenuItem;
DateTimePicker1: TDateTimePicker;
Timer1: TTimer;
N6: TMenuItem;
procedure Save1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Clearall1Click(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Delete1Click(Sender: TObject);
procedure Undo1Click(Sender: TObject);
procedure Font2Click(Sender: TObject);
procedure FullScreen1Click(Sender: TObject);
procedure NormalScreen1Click(Sender: TObject);
procedure Minimize1Click(Sender: TObject);
procedure DateTime1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Save1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName );
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate ;
end;
procedure TForm1.Cut1Click(Sender: TObject);
begin
Memo1.CutToClipboard ;
end;
procedure TForm1.Copy1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
procedure TForm1.Paste1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard ;
end;
procedure TForm1.Clearall1Click(Sender: TObject);
begin
Memo1.SelectAll ;
end;
procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Clear;
end;
procedure TForm1.Delete1Click(Sender: TObject);
begin
Memo1 .ClearSelection ;
end;
procedure TForm1.Undo1Click(Sender: TObject);
begin
Memo1.Undo ;
end;
procedure TForm1.Font2Click(Sender: TObject);
begin
if FontDialog1.Execute then
begin
FontDialog1.Font:=FontDialog1.Font;
end;
memo1.Font:= FontDialog1.Font;
end;
procedure TForm1.FullScreen1Click(Sender: TObject);
begin
Form1.WindowState:=wsMaximized;
memo1.Height:=MaxListSize;
Memo1.Width:=MaxListSize;
end;
procedure TForm1.NormalScreen1Click(Sender: TObject);
begin
Form1.WindowState:=wsNormal;
Memo1.Height:=531;
Memo1.Width:=778;
end;
procedure TForm1.Minimize1Click(Sender: TObject);
begin
Application.Minimize;
end;
procedure TForm1.DateTime1Click(Sender: TObject);
begin
Timer1.Interval:=1000;
Memo1.Lines.Add(TimeToStr(time));
Memo1.Lines.Add(DateToStr(Date));
end;
end.