25-11-2009, 11:13 PM
21-06-2015, 07:58 PM
طب متخليها علم مصر أسهل 
كود :
[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;