Recent Posts
Selamat datang di Coding Delphi Land Weblog kumpulan source code pemogram delphi
(Bukan maksud untuk menggurui tetapi marilah kita berbagi ilmu tuk perkembangan kemajuan teknologi kita
Selasa, 17 November 2009
Draw Line To Method
procedure TForm1.BitBtn8Click(Sender: TObject);
//lineto drawing
var i : longInt;
begin
clearBm;
t1 := gettickCount;
with bm do with canvas do
begin
pen.Color := $00ff00;
for i := 1 to 1000000 do
begin
moveto(0,0);
lineto(100,100);
end;
end;
t2 := gettickcount;
showtime(100000000);
end;
//lineto drawing
var i : longInt;
begin
clearBm;
t1 := gettickCount;
with bm do with canvas do
begin
pen.Color := $00ff00;
for i := 1 to 1000000 do
begin
moveto(0,0);
lineto(100,100);
end;
end;
t2 := gettickcount;
showtime(100000000);
end;
0 komentar:
Posting Komentar