10-04-2018, 07:49 PM
11-04-2018, 05:41 PM
مدة التمرين يوم واحد
11-04-2018, 09:27 PM
هذا هو الحل
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;
17-04-2018, 07:12 PM
كود :
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;