belajar delphi yukz…… :)

hello eperybadehh….. [ lebayy:mrgreen: ]

belajar borland delphi yukk, yg simple simple ajjah…
misal kita bikin aplikasi buat memanipulasi huruf/font agar bisa kita rubah dengan keinginan kita🙂

pertama tama siapin komputernyah/pc/laptop or apalah terserah:mrgreen:
sopware borland delphi 7 [ kalo gak punya cari ndiri yakk 😀 ]

langkah langkahnya
buat form seperti ini
form awal

kemudian kita atur propertisnya….
untuk caption,text yang ada pada tampilan bisa disesuaikan dengan keinginan anda😉

properties object

nah,,setelah itu, mari kita ketik listingnyahh. awas jangan salah ya,,
nti error soalnyahh😛

=====================================

procedure TForm1.FormCreate(Sender: TObject);
begin
jenis_huruf.Items:=screen.Fonts;
jenis_huruf.Text:=’pilih jenis huruf’;
end;

procedure TForm1.warnaClick(Sender: TObject);
begin
colordialog1.Execute;
memo1.Font.color:=colordialog1.Color;
end;

procedure TForm1.UpperClick(Sender: TObject);
begin
memo1.Text:=uppercase(memo1.Text);
end;

procedure TForm1.lowerClick(Sender: TObject);
begin
memo1.Text:=lowercase(memo1.Text);
end;

procedure TForm1.boldClick(Sender: TObject);
begin
if bold.checked=true then
begin
memo1.Font.Style:=memo1.Font.Style+[fsbold];
end
else
begin
memo1.Font.Style:=memo1.Font.Style-[fsbold];
end;
end;

procedure TForm1.italicClick(Sender: TObject);
begin
if italic.checked=true then
begin
memo1.Font.Style:=memo1.Font.Style+[fsitalic];
end
else
begin
memo1.Font.Style:=memo1.Font.Style-[fsitalic];
end;
end;

procedure TForm1.underlineClick(Sender: TObject);
begin
if underline.checked=true then
begin
memo1.Font.Style:=memo1.Font.Style+[fsunderline];
end
else
begin
memo1.Font.Style:=memo1.Font.Style-[fsunderline];
end;
end;

procedure TForm1.jenis_hurufChange(Sender: TObject);
begin
memo1.font.name:=jenis_huruf.text;
end;

end.

================================

nah sekarang, coba dirunning deh,,,
kalo gak bisa or error berarti ada yang salah , mungkin kopas listingnyah salah😛

nanti hasilnyah seperti ini➡
pemilihan warnalagi➡

semuanya ok

dah ahh, capek juga nulis ginian😀

semoga bermanfaat😀

7 responses to “belajar delphi yukz…… :)

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s