procedure TForm1.Button1Click (Sender: TObject);
begin
Image1.Canvas.Rectangle(0, 0, Random(100), Random(100) );
end;
procedure TForm1.Button1Click (Sender: TObject);
var a: integer;
begin
a := 10;
a := StrToInt(Edit1.Text);
Image1.Canvas.Ellipse( 50 − a, 100 − a, 50 + a, 100 + a );
end;
Image1.Canvas.Pen.Color:= RGBToColor(Random(256), 0, 0);
Image1.Canvas.Brush.Color:= RGBToColor(0, Random(256), 0);;
Image1.Canvas.Ellipse:= (100, 100, 160, 160);
Image1.Canvas.Font.Color:= RGBToColor(0, 0, Random(256) );
Image1.Canvas.Textout:= (100, 200, 'PASCAL');
s:=0;
for i: = 5 downto 1 do s := s + i ;
Image1.Canvas.Textout(10,10, IntToStr(s) );
procedure TForm1.Button1Click (Sender: TObject);
var i, j: integer;
begin
for i := 1 to 4 do
for j := 1 to i do Image1.Canvas.Textout( 20*j , 20*i , ' * ' );
end;
y:=30;
for i:= 1 to 3 do
begin
x := 20;
for j := 1 to 3 do
begin
Image1.Canvas.Textout(x, y, IntToStr( i * j ) );
x := x + 20;
end;
y := y + 30;
end;