- Proses-proses
pembuatan project :
-
Langkah Pertama
adalah menginstal komponen tambahan :
1.
Animated Button
2.
Text Animator
3.
Gradient
4.
dan sebuah komponen
yang menambah format image jpg dan gif (TPNGImage dan TPNGGif)
- Pertama kita copy
tiap source komponen ke Local Disk C/Program Files/Delphi7/Borland/Lib, setelah
itu kita panggil dari delphi (Buka delphi components instal component). Untuk yang sudah bentuk package klik
saja langsung.
Tampilan
Awal/Interface Program sebelum dijalankan :
-
Langkah Kedua :
Pertama yang dilakukan pastinya browsing gambar di internet sesuai yang
diinginkan. Setelah itu kita edit dalam photoshop agar background gambarnya
transparan, untuk mengatur sizenya juga, dan terakhir kita simpan dengan format
png. Lalu kita masukkan di delphi menggunakan Image yang ada di additional. Dalam gambar diatas saya menggunakan 4 timer dan 1
button.
Script
codenya :
Timer 1 :
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left:=image1.left+5;
end;
Keterangan :
Image1 adalah gambar Hello kitty naik pesawat, jadi
Timer1 berfungsi menggerakkan gambar1 kearah
kanan
Timer2 :
procedure TForm1.Timer2Timer(Sender:
TObject);
begin
Image2.Visible:=False;
TextAnimator1.Visible:=False;
Image3.Left:=image3.left+4;
Image6.Left:=image6.left+4;
Anim1.Left:=Anim1.left+4;
Anim2.Left:=Anim2.left+4;
Anim3.Left:=Anim3.left+4;
end;
Keterangan :
Image2 (larva
sebelah kanan kita false), Image3(larva sebelah kiri), Anim1 sampai Anim3
adalah text animator(komponen tambahan).
Timer2 mengerakkan gambar larva sebelah kiri dan menonaktifkan larva sebelah
kanan.
Timer3 :
procedure TForm1.Timer3Timer(Sender: TObject);
begin
Image2.Visible:=True;
TextAnimator1.Visible:=True;
TextAnimator1.Left:=TextAnimator1.Left-1;
Image2.Left:=Image2.Left-1;
end;
Keterangan :
Timer3
berfungsi menggerakkan gambar larva sebelah kanan yang tadi di false.
Timer4:
var
Form1: TForm1;
a,b: Byte;
implementation
{$R *.dfm}
procedure TForm1.Timer5Timer(Sender: TObject);
begin
if Image5.Left > 550 then
b:=3
else if Image5.Left < 2 then
b:=0;
if b=0 then Image5.Left:=Image5.Left+3
else Image5.Left:=Image5.Left-3;
end;
Keterangan :
Untuk
mengerakkan gambar awan kekanan dan kekiri.
Animated
button1 :
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer3.Enabled:=True;
Timer2.Enabled:=False;
Timer3.Enabled:=True;
Timer4.Enabled:=False;
Image5.Visible:=False;
Gradient1.Visible:=False;
Gradient2.Visible:=False;
Gradient3.Visible:=True;
end;
Keterangan :
Untuk
menonaktifkan timer1, timer2, timer4, Gradient1, Gradient2 dan mengaktifkan
timer3.
Tampilan saat dijalankan :
Saat diklik Capek Ngejar :
Scipt code
secara detailnya :
unit Unit1;
interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, pngimage, ExtCtrls,
StdCtrls, TextAnim, Gradient,
ButtonWithColor;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image5: TImage;
Timer1: TTimer;
Anim1: TTextAnimator;
Anim2: TTextAnimator;
Anim3: TTextAnimator;
Gradient1: TGradient;
Gradient2: TGradient;
Image6: TImage;
Timer2: TTimer;
Timer3: TTimer;
Timer4: TTimer;
TextAnimator1: TTextAnimator;
Button1: TBitBtnWithColor;
Gradient3: TGradient;
procedure Timer1Timer(Sender:
TObject);
procedure Timer2Timer(Sender:
TObject);
procedure Button1Click(Sender:
TObject);
procedure Timer3Timer(Sender:
TObject);
procedure Timer5Timer(Sender:
TObject);
procedure Button2Click(Sender:
TObject);
procedure Timer4Timer(Sender:
TObject);
procedure FormCreate(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b: Byte;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left:=image1.left+5;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Image2.Visible:=False;
TextAnimator1.Visible:=False;
Image3.Left:=image3.left+4;
Image6.Left:=image6.left+4;
Anim1.Left:=Anim1.left+4;
Anim2.Left:=Anim2.left+4;
Anim3.Left:=Anim3.left+4;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer3.Enabled:=True;
Timer2.Enabled:=False;
Timer3.Enabled:=True;
Timer4.Enabled:=False;
Image5.Visible:=False;
Gradient1.Visible:=False;
Gradient2.Visible:=False;
Gradient3.Visible:=True;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
Image2.Visible:=True;
TextAnimator1.Visible:=True;
TextAnimator1.Left:=TextAnimator1.Left-1;
Image2.Left:=Image2.Left-1;
end;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
if Image5.Left > 550 then
b:=3
else if Image5.Left < 2 then
b:=0;
if b=0 then Image5.Left:=Image5.Left+3
else Image5.Left:=Image5.Left-3;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer2.Enabled:=True;
Image1.Visible:=True;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
if Image1.Left=-253 then Image1.left:=696;
Image1.Left:=image1.left+5;
Image2.Visible:=False;
TextAnimator1.Visible:=False;
Image3.Left:=Image3.left+5;
Image6.Left:=Image6.left+5;
Anim1.Left:=Anim1.left+5;
Anim2.Left:=Anim2.left+5;
Anim3.Left:=Anim3.left+5;
end;
end.
