tutorials
/
lazarus-tutorials
1
0
Fork 0
Code Releases Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
drawing demo/drawing.pas
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;

1
drawing demo/drawingdisplay.lfm
View File

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