الرسم بواسطة canvas

[chamsderreche]

السلام عليكم ،
التمرين ببساطة انشاء برنامج يقوم برسم شكل ما معروف في حياتنا اليومية مثل سيارة أو حاسوب ب canvas
والله ولي التوفيق

[chamsderreche]

مدة التمرين يوم واحد

[chamsderreche]

هذا هو الحل 

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; 


[karika2]

كود :

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;