+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية الرسم ب paintbox (/showthread.php?tid=1348)
كيفية الرسم ب paintbox - paix144 - 25-11-2009
السلام عليكم إخواتي
كيفي أرسم هلال ب paintbox
كيف أضع لونين في دائرة
لأكون أكثر وضوحا كيف أرسم علم الجزائر ب paintbox
كيفية الرسم ب paintbox - karika2 - 21-06-2015
طب متخليها علم مصر أسهل
كود :
[color=SeaGreen]PaintBox1.height=209[/color]كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
with PaintBox1.Canvas do
begin
Brush.Style := bsSolid;
Brush.Color := clRed;
Rectangle(0,0, PaintBox1.Width, Image1.Height);
begin
Brush.Style := bsSolid;
Brush.Color := clWhite;
Rectangle(0,66, PaintBox1.Width, Image1.Height);
begin
Brush.Style := bsSolid;
Brush.Color := clBlack;
Rectangle(0,135, PaintBox1.Width, Image1.Height);
end;
end;
end;
end;