Senin, 30 Maret 2015

Source Code Cara Membuat Shape Warna Traffic di Injek Delphi 7

Berikut akan saya bagikan Source Code Cara Membuat Shape Warna Traffic di Injek Delphi 7 dan sebelumnya juga sudah saya bagikan Source Code Cara Membuat Tulisan Berjalan TMS VrMatrix  ok mungkin anda pernah melihat suatu inject yang ada warna warninya hijau dan merah jadi itu konsepnya adalah dipasang pada respone header dan request nah kali ini saya bagikan contoh source kodenya atau bahan mentahnya yang mungkin akan anda racik ulang silahkan disimak saja yah. digambar dibawah ini emang masih belum digunakan karena jika ingin warnanya bergerak gerak harus dipasang pada injek. atau yang lainnya, berikut adalah listing programnya;

Cara Membuat Shape Warna Traffic

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    IdMappedPortTCP1: TIdMappedPortTCP;
    Procedure LedBlinkUpload;
    Procedure LedBlinkDownload;
    procedure IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
    procedure IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
begin
 LedBlinkUpload;
end;

procedure TForm1.IdMappedPortTCP1OutboundData(
  AThread: TIdMappedPortThread);
begin
 LedBlinkDownload;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
resize:=false;
end;

end.

Selanjutnya; Download Bitvise SSH Client Versi 6.2.4 Terbaru April 2015

Untuk contoh source codenya silahkan download DISINI atau DISINI dan pass rarnya adalah aimeegracecatering.blogspot.com dan hanya itu saja info seputar Source Code Cara Membuat Shape Warna Traffic di Injek Delphi 7 terbaru 2015 terima kasih.