Ещё один графический редактор - Delphi - Ответ 5398137

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    img1: TImage;
    lst1: TListBox;
    edt1: TEdit;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x,y,x1,y1,dx,r,kol:Integer;
  i,j:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
r:=Random(3);
if(r=1)then begin
   x:=Random(300);
   y:=Random(300);
   x1:=Random(300);
   y1:=Random(300);
   img1.Canvas.Brush.Color:=Random(65030);
   img1.canvas.Pen.color:=Random(65030);
   img1.Canvas.Rectangle(x,y,x1,y1);
   kol:=kol+1;
   edt1.text:=IntToStr(kol);
   lst1.Items.Add('Прямоугольник');
end;
if(r=2)then begin
   x:=Random(300);
   y:=Random(300);
   x1:=Random(300);
   y1:=Random(300);
   img1.Canvas.Brush.Color:=Random(65030);
   img1.canvas.Pen.color:=Random(65030);
   img1.Canvas.Ellipse(x,y,x1,y1);
   kol:=kol+1;
   edt1.text:=IntToStr(kol);
   lst1.Items.Add('Круг');
end;
 
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=5;
y:=5;
kol:=0;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
img1.Picture:=nil;
for i:=0 to lst1.ItemIndex do
begin
lst1.Items.Delete(i);
end;
end;
 
 
end.