Membuat Warna Trafik pada Project

Screenshoot :

buat 2 shape pada project

tambahkan code di bawah pada type

Code:
type
Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

buat procedure pada project

Code:
procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;

if shape1.brush.color=clSilver then
begin
  shape1.brush.color:=$0007F513;
end else
begin
  shape1.brush.color:=clSilver;
end;
end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;

if shape2.brush.color=clSilver then
begin
  shape2.brush.color:=$000404DD;
end else
begin
  shape2.brush.color:=clSilver;
end;
end;

Sisipkan code berikut pada request dan respons

Request
Code:
procedure TForm1.IndyTCPExecute(AThread: TIdMappedPortThread);
begin
LedBlinkUpload;
end;

Ressponse
Code:
procedure TForm1.IndyTCPOutboundData(AThread: TIdMappedPortThread);
begin
LedBlinkDownload;
end;

Demikianlah Artikel tentang Membuat Warna Trafik pada Project

Sekian dulu artikel tentang Membuat Warna Trafik pada Project, mudah - mudahan bisa memberi manfaat untuk anda semua. jika anda masih binggung atau belum jelas tentang artikel yang saya sampaikan anda bisa berkomentar dan jika anda juga ingin requset tentang beberapa ( Akun SSH Premium,inject PC,Config Http injector,Config KPN,config Eproxy.config Open VPN dan tips dan trick ). di kolom komentar. jika artikel yang saya berikan bermanfaat dan berguna anda juga bisa share artikel saya ke teman teman anda semua ( berbagi itu indah )

• Tweet
• Share
• Share
• Share
• Share

About Admin

Halo Sobat Blogger, Saya Hanyalah Seorang Blogger Pemula dan Saya Berharap Anda dan Saya Bisa Berhasil dan Sukses Kedepannya. Selamat Datang Teman Teman Dan Terima Kasih Sudah Berkunjung Diblog Website kami.

Related Post