+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : الرسم بواسطة canvas (/showthread.php?tid=9313)
الرسم بواسطة canvas - chamsderreche - 10-04-2018
السلام عليكم ،
التمرين ببساطة انشاء برنامج يقوم برسم شكل ما معروف في حياتنا اليومية مثل سيارة أو حاسوب ب canvas
والله ولي التوفيق
RE: الرسم بواسطة canvas - chamsderreche - 11-04-2018
مدة التمرين يوم واحد
RE: الرسم بواسطة canvas - chamsderreche - 11-04-2018
هذا هو الحل
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
paintbox1.canvas.rectangle(0,0,150,200);
paintbox1.canvas.rectangl(10,10,140,160);
paintbox1.Canvas.Ellipse(75,170,20,20);
end;
RE: الرسم بواسطة canvas - karika2 - 17-04-2018
كود :
procedure TForm1.FormPaint(Sender: TObject);
var
i:integer;
begin
Form1.Width:=400;
Form1.Height:=200;
paintbox1.Align:=alClient;
with paintbox1.canvas do
begin
Brush.Color:=clBlack;
rectangle(280,80,280+25,80+17);
Brush.Color:=clBlue;
rectangle(64,16,300,16+41+57);
Brush.Color:=clSilver;
rectangle(64,16,300,16+41);
Brush.Color:=clBlack;
Ellipse(85,88,85+57,88+49);
Ellipse(230,88,230+57,88+49);
for i:=2 to 4 do
begin
Brush.Color:=clBlack;
rectangle(59*i,16,59*i+4,16+41);
Brush.Color:=clBlack;
MoveTo(64,56);LineTo(300,56);
end;
Brush.Color:=clSkyBlue;
rectangle(64,57,64+25,57+41);
end;
end;