Membuat Garis Diagonal Dengan Delphi 7

07.34 | Label: Pemrograman Delphi

Nah ini dia latihan Grafika Komputer pertamaku dengan menggunakan Borland Delphi 7. Cukup sederhana juga sih, cuma bikin garis - garis yang membentuk suatu diagonal. Yah namanya juga dasar, pastinya dimulai dari hal - hal yang mudah dulu. Seperti halnya latihan punya aku ini, semoga membantu teman - teman juga yang mau belajar dengan Borland Delphi. Ok langsung saja yah, langsung buka aplikasinya Borland Delphi maksudnya, disimak dan coba dipraktekkan.

Ini Untuk Tampilan Formnya

Untuk Syntaxnya

TForm1 = class(TForm)
PaintBox1: TPaintBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
SpeedButton1: TSpeedButton;
Label5: TLabel;
Label6: TLabel;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with PaintBox1 do
begin
Canvas.MoveTo(0, 0);
Canvas.LineTo(clientWidth, clientHeight);
Canvas.MoveTo(0, clientheight);
Canvas.LineTo(clientWidth, 0);
Canvas.Pen.Style:=psDot;
Canvas.Brush.Style:=bsClear;
Canvas.Rectangle(clientRect);
end;
end;

end.

Untuk Gambar Hasil Compilenya