Jumat, 22 Juni 2012

Pemrograman Delphi : Membuat Text Editor, Notepad dengan Dephi


Program TextEditor dengan Dephi

Sebuah Aplikasi TextEditor memiliki kelengkapan antara lain MainMenu, Toolbar, Memo, Dialog, Operasi File, dan Multiform. Untuk membuat aplikasi tersebut buka Delphi, kemudian klik File - New -Application, beri nama projectnya TextEditor, simpanlan di tempat yang diingikan, kemudian rancanglah tampilan seperti berikut ini :


Gambar Rancangan Aplikasi Text Editor

MainMenu & Toolbar




MainMenu

Untuk membuat Menu Pulldown atau menu tarik seperti pada aplikasi-aplikasi Windows pada umumnya, dapat dipakai komponen TMainMenu. Setelah itu masukkan urutan menu beserta shortcut dan iconnya. membuat desain dari menu dan sub menu yang akan kita buat. Sebagai contoh lakukan pengaturan menu pada aplikasi TextEditor yang sedang dibuat sebagai berikut :

&File :
&New Ctrl+N
&Open Ctrl+O
&Save Ctrl+S
-
E&xit Alt F4

&Edit :
&Undo Ctrl+Z
&Redo Ctrl+Y
-
Cu&t Ctrl+X
&Copy Ctrl+C
&Paste Ctrl+V
&Delete
-
Select &All Ctrl+A
&Format :
&Font
&Color
&Background Color

&Help :
&About

Kemudian tambahkan icon pada properti Image pada masing-masing Menu Item, untuk membuat agar lebih User Friendly

Untuk menambahkan perintah pada setiap menu dan sub menu, dapat dilakukan dengan memilih menu yang akan diberi perintah.

Toolbar
Untuk membuat toolbar pada sebuah form, pertama kali kita harus menambahkan komponen Toolbar. Setelah itu klik kanan pada Toolbar, pilih New Button dan New Separator, kemudian masukkan juga Image Icon yang sesuai. Sebagai contoh lakukan pengaturan Toolbar pada aplikasi TextEditor yang sedang dibuat sebagai berikut :



Hasil Desain ToolStrip

Dialog

Komponen Dialog digunakan untuk menampilkan Dialog standar milik window yang selalu tampil pada program-program Windows saat memilih File yang akan dibuka, memilih File yang akan disimpan, memilih Warna, Memilih jenis Font, atau memilih Folder/Direktori.
Komponen-komponen Dialog antara lain : OpenDialog, SaveDialog, FontDialog, ColorDialog, OpenPictureDialog, SavePictureDialog, dan PrintDialog.


Gambar Komponen-komponen Dialog

Agar aplikasi TextEditor mampu membuka Dialog untuk membuka file, menyimpan file, mengeset warna dan font maka tambahkan OpenFileDialog, SaveFileDialog, ColorDialog dan FontDialog.

Operasi File

Agar aplikasi TextEditor mampu mengolah teks / string yang panjang bisa digunakan komponen Memo. Dalam hal ini dipilih Memo karena kemampuannya dalam mengolah string yang panjang seperti Cut, Copy, Paste, dan operasi File lebih lengkap. Tambahkan komponen Memo pada aplikasi TextEditor yang sedang dibuat.
Pada Delphi fungsi-fungsi untuk melakukan operasi file dapat menggunakan fungsi yang terdapat pada komponen Memo, yaitu Memo.Lines.LoadFromFile() dan Memo1.Lines.SaveToFile().

Misalnya :

Memo1.Clear;
Memo1.Lines.LoadFromFile(‘C:\file.txt’);
str := Memo1.Text;

Dan :

Memo1.Text := str;
Memo1.Lines.SaveToFile(‘C:\file.txt’);

Listing Program :

procedure TFEditor.New1Click(Sender: TObject);
begin
mEditor.Clear;
end; procedure TFEditor.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute = true then
begin
mEditor.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TFEditor.Save1Click(Sender: TObject);
begin
if SaveDialog1.Execute = true then
begin
mEditor.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TFEditor.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFEditor.Undo1Click(Sender: TObject);
begin
buffer := mEditor.Text;
mEditor.Undo;
end;

procedure TFEditor.Redo1Click(Sender: TObject);
begin
if (buffer <> '') then mEditor.Text := buffer;
end;

procedure TFEditor.Cut1Click(Sender: TObject);
begin
mEditor.CutToClipboard;
end;

procedure TFEditor.Copy1Click(Sender: TObject);
begin
mEditor.CopyToClipboard;
end;

procedure TFEditor.Paste1Click(Sender: TObject);
begin
mEditor.PasteFromClipboard;
end;

procedure TFEditor.Delete1Click(Sender: TObject);
begin
mEditor.Text := LeftStr(mEditor.Text, mEditor.SelStart) + RightStr(mEditor.Text, StrLen(PChar(mEditor.Text)) - mEditor.SelStart - mEditor.SelLength);
end;

procedure TFEditor.SelectAll1Click(Sender: TObject);
begin
mEditor.SelectAll;
end;

procedure TFEditor.Font1Click(Sender: TObject);
begin
if FontDialog1.Execute = true then
begin
mEditor.Font := FontDialog1.Font;
end;
end;

procedure TFEditor.Color1Click(Sender: TObject);
begin
if ColorDialog1.Execute = true then
begin
mEditor.Font.Color := ColorDialog1.Color;
end;
end;

procedure TFEditor.BackgroundColor1Click(Sender: TObject);
begin
if ColorDialog1.Execute = true then
begin
mEditor.Color := ColorDialog1.Color;
end;
end;

procedure TFEditor.About1Click(Sender: TObject);
begin
FAbout.Show;
end;

Klik menu Run - Run (F5) untuk menjalankan program, kemudian cobalah menggunakan aplikasi Text Editor ini seperti ketika menggunakan Notepad.