Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
procedure TForm1.Button1Click(Sender: TObject);
var
B: TBitmap;
begin
B:= TBitmap.Create;
try
B.Width:= 100;
B.Height:= 100;
B.Canvas.Pen.Style:= psSolid;
B.Canvas.Pen.Color:= clRed;
B.Canvas.Pen.Width:= 3;
B.Canvas.Brush.Style:= bsSolid;
B.Canvas.Brush.Color:= clMaroon;
B.Canvas.Ellipse(0, 0, 100, 100);
finally
B.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TBitmap.Create do begin
try
Width:= 100;
Height:= 100;
Canvas.Pen.Style:= psSolid;
Canvas.Pen.Color:= clRed;
Canvas.Pen.Width:= 3;
Canvas.Brush.Style:= bsSolid;
Canvas.Brush.Color:= clMaroon;
Canvas.Ellipse(0, 0, 100, 100);
finally
Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TBitmap.Create do begin
try
Width:= 100;
Height:= 100;
with Canvas do begin
Pen.Style:= psSolid;
Pen.Color:= clRed;
Pen.Width:= 3;
Brush.Style:= bsSolid;
Brush.Color:= clMaroon;
Ellipse(0, 0, 100, 100);
end;
finally
Free;
end;
end;
end;