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
READ MORE... - Membuat Garis Diagonal Dengan Delphi 7
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
