-          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 :