Praktikum Pertemuan 6 Menu Bar, Dialog Box, dan Web Browser

PERTEMUAN KE – VI

Menu Bar, Dialog Box, dan Web Browser

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

I.             Deskripsi Program

Program di bawah ini adalah program web browser sederhana dengan tampilan yang sederhana pula, yaitu terdapat image, combobox dan web browser. Dan jika dijalankan dan pada saat connect internet akan dapat browsing.

II.         
Interface Program

III. Coding Program

Nama Komponen	Event	Perintah
Image4	OnClick	procedure TForm1.Image4Click(Sender: TObject); begin WebBrowser1.Navigate(ComboBox1.Text); ComboBox1.Items.Add(ComboBox1.Text) end;
Image3	OnClick	procedure TForm1.Image3Click(Sender: TObject); begin WebBrowser1.Stop; end;
Image5	OnClick	procedure TForm1.Image5Click(Sender: TObject); begin WebBrowser1.Refresh; end;
Image1	OnClick	procedure TForm1.Image1Click(Sender: TObject); begin WebBrowser1.GoBack; end;
Image2	OnClick	procedure TForm1.Image2Click(Sender: TObject); begin WebBrowser1.GoForward; end;

I.             Interface Program

II.    Coding Program

Nama Komponen	Event	Perintah
Exit1	OnClik	procedure TForm1.Exit1Click(Sender: TObject); begin  close; end;
New1	OnClik	procedure TForm1.New1Click(Sender: TObject); begin  memo1.Clear; end;
Open1	OnClik	procedure TForm1.Open1Click(Sender: TObject); begin if OpenDialog1.Execute=true then  Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;
Save1	OnClik	procedure TForm1.Save1Click(Sender: TObject); begin if SaveDialog1.Execute=true then  Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;
Copy1	OnClik	procedure TForm1.Copy1Click(Sender: TObject); begin  Memo1.CopyToClipboard; end;
Cut1	OnClik	procedure TForm1.Cut1Click(Sender: TObject); begin  Memo1.CutToClipboard; end;
Paste1	OnClik	procedure TForm1.Paste1Click(Sender: TObject); begin  Memo1.PasteFromClipboard; end;
SelectAll1	OnClik	procedure TForm1.SelectAll1Click(Sender: TObject); begin  Memo1.SelectAll; end;
FontSize1	OnClik	procedure TForm1.FontSize1Click(Sender: TObject); begin  if FontDialog1.Execute=true then   Memo1.Font:=FontDialog1.Font; end;
FontType1	OnClik	procedure TForm1.FontType1Click(Sender: TObject); begin  if FontDialog1.Execute=true then   Memo1.Font:=FontDialog1.Font; end;
FontClolor1	OnClik	procedure TForm1.FontClolor1Click(Sender: TObject); begin  if FontDialog1.Execute=true then   Memo1.Font:=FontDialog1.Font; end;