Составить программу, которая рисует квадрат, а внутри него круг

Категория: Delphi/Pascal

2012-10-12 16:16:50

code: #delphi

procedure TForm1.FormCreate(Sender:TObject);
begin
    Show;
    Canvas.Rectangle(10,10,100,100);
    Canvas.Ellipse(10,10,100,100);
end;

автор: Vovan-VE

Поделиться:

Sample Code