1
0

Closer to working drawing example

This commit is contained in:
Timothy Warren 2021-10-06 15:32:03 -04:00
parent 010d124826
commit 18f01a9ebc
2 changed files with 2 additions and 1 deletions

View File

@ -11,7 +11,7 @@ type TDrawing = class(TGraphicControl)
private
FExtent: integer;
public
constructor Create(theOwner: TComponent; anExtent: integer);
constructor Create(theOwner: TComponent; anExtent: integer); overload;
property Extent: integer read FExtent write FExtent;
end;

View File

@ -24,6 +24,7 @@ object Form1: TForm1
ChildSizing.ControlsPerLine = 1
ClientHeight = 49
ClientWidth = 229
ItemIndex = 0
Items.Strings = (
'TSquare'
'TCircle'