7 lines
186 B
ObjectPascal
7 lines
186 B
ObjectPascal
uses GraphWPF;
|
|
|
|
begin
|
|
Pen.Width := 1;
|
|
Rectangle(0,0,Window.Width-1,Window.Height-1);
|
|
Ellipse((Window.Width-1)/2,(Window.Height-1)/2,(Window.Width-1)/2,(Window.Height-1)/2);
|
|
end. |