كيفية الرسم ب paintbox

[paix144]

السلام عليكم إخواتي
كيفي أرسم هلال ب paintbox
كيف أضع لونين في دائرة
لأكون أكثر وضوحا كيف أرسم علم الجزائر ب paintbox

[karika2]

طب متخليها علم مصر أسهل

كود :

[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;