Closer to working drawing example
This commit is contained in:
parent
010d124826
commit
18f01a9ebc
@ -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;
|
||||
|
||||
|
@ -24,6 +24,7 @@ object Form1: TForm1
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 49
|
||||
ClientWidth = 229
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'TSquare'
|
||||
'TCircle'
|
||||
|
Loading…
Reference in New Issue
Block a user