Menambah shape (indikator menyala)

e-Pusat Sumber Belajar - Menambah shape (indikator menyala)

Pada materi ke empat kita akan menambahkan shape agar respone dari injek terlihat menarik. Sebenarnya shape juga tidak pengaruh pada kemampuan injek hanya untuk mempercantik saja

Silahkan simak tutorial :
Tambahkan dua shape (shape 1 dan shape 2)

Copy perintah pada kota dan pastekan dibawah "type" atau diatas procedure lainnya

procedure ShapeUpload;
procedure ShapeDownload;

lihat gambar :

Tambahkan juga procedur - beserta perintahnya dibawah implementation

procedure TForm1.ShapeDownload;
begin
shape1.Refresh;
    if shape1.brush.color=cllime then
      begin
       shape1.brush.color:=clRed;
      end else
       begin
        shape1.brush.color:=clpurple;
       end;
end;

procedure TForm1.ShapeUpload;
begin
   shape2.Refresh;
    if shp2.brush.color=clRed then
      begin
       shape2.brush.color:=clLime;
      end else
       begin
       shape2.brush.color:=clnavy;
       end;
end;