Menu Bar, Dialog Box dan Web Browser

I.         Deskripsi Program

Program dibuat  menggunakan Borland Delphi 7. Program ini dibuat untuk menyimpan dan membuat files text. Program ini sama seperti text editor pada notepad akan tetapi dibuat untuk mempermudah mengedit text dengan toolbar. Pada toolbar disediakan untuk membuat baru text,merubah font size,font style,dan nama font.

II.      Interface Program

III.       Coding Program

Nama Komponen	Event	Perintah
Save1 ToolButton1 Open1 CBFontSize TBNew Paste1 Copy1 Cut1 Paste Cut Copy Exit1 New1 TNotepad	OnClick OnClick OnClick OnChange OnClick OnClick OnClick OnClick OnClick OnClick OnClick OnClick OnClick OnCreate	procedure TNotepad.Save1Click(Sender: TObject); var   F:textfile;   namafile : string; begin   if SaveDialog1.Execute then   begin     NamaFile := SaveDialog1.FileName;     AssignFile(F,namafile);     Rewrite(F);     Write(F,Text.Text);     CloseFile(F);   end; end; procedure TNotepad.ToolButton1Click(Sender: TObject); begin    if (Sender as TToolButton).Down then   begin     case (Sender as TToolButton).Tag of       1 :  text.Font.Style := text.Font.Style + [fsBold];       2 :  text.Font.Style := text.Font.Style + [fsItalic];       3 :  text.Font.Style := text.Font.Style + [fsUnderline];     end;   end   else   begin     case (Sender as TToolButton).Tag of       1 :  text.Font.Style := text.Font.Style - [fsBold];       2 :  text.Font.Style := text.Font.Style - [fsItalic];       3 :  text.Font.Style := text.Font.Style - [fsUnderline];     end;   end; end; procedure TNotepad.Open1Click(Sender: TObject); begin   if OpenDialog1.Execute then     begin       openDialog1.InitialDir := GetCurrentDir;       openDialog1.Options := [ofFileMustExist]; text.Lines.LoadFromFile(openDialog1.FileName);     end    else    ShowMessage('Open file was cancelled'); end; procedure TNotepad.CBFontSizeChange(Sender: TObject); begin text.Font.Size:=strtoint(CBFontSize.Text); end; procedure TNotepad.TBNewClick(Sender: TObject); begin   text.Clear; end; procedure TNotepad.Paste1Click(Sender: TObject); begin   paste.Click; end; procedure TNotepad.Copy1Click(Sender: TObject); begin   copy.Click; end; procedure TNotepad.Cut1Click(Sender: TObject); begin   cut.Click; end; procedure TNotepad.PasteClick(Sender: TObject); begin   text.PasteFromClipboard; end; procedure TNotepad.CutClick(Sender: TObject); begin   text.CutToClipboard; end; procedure TNotepad.CopyClick(Sender: TObject); begin   text.CopyToClipboard; end; procedure TNotepad.Exit1Click(Sender: TObject); begin   if MessageDlg('Anda Yakin Ingin Menutup Program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then     application.Terminate; end; procedure TNotepad.New1Click(Sender: TObject); begin   text.Clear; end; procedure TNotepad.FormCreate(Sender: TObject); begin   CBFontSize.ItemIndex:=6;   CBFontName.ItemIndex:=6; end;

IV.      Output

4.1     Tampilan awal program

4.2     Tampilan ketika menginput data dan mengklik tombol italic

 4.3     Tampilan ketika klik kanan pada text editor

4.4     Tampilan ketika mensave file

4.5     Tampilan ketika membuka file

Untuk source code secara lengkap bisa diunduh
Via MirrorCreator