From 18f01a9ebc6805fbd02c500801c040f232972eb0 Mon Sep 17 00:00:00 2001
From: Timothy Warren <twarren@nabancard.com>
Date: Wed, 6 Oct 2021 15:32:03 -0400
Subject: [PATCH] Closer to working drawing example

---
 drawing demo/drawing.pas        | 2 +-
 drawing demo/drawingdisplay.lfm | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/drawing demo/drawing.pas b/drawing demo/drawing.pas
index 3c48512..5b29f45 100644
--- a/drawing demo/drawing.pas	
+++ b/drawing demo/drawing.pas	
@@ -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;
 
diff --git a/drawing demo/drawingdisplay.lfm b/drawing demo/drawingdisplay.lfm
index 65bc55c..d407532 100644
--- a/drawing demo/drawingdisplay.lfm	
+++ b/drawing demo/drawingdisplay.lfm	
@@ -24,6 +24,7 @@ object Form1: TForm1
     ChildSizing.ControlsPerLine = 1
     ClientHeight = 49
     ClientWidth = 229
+    ItemIndex = 0
     Items.Strings = (
       'TSquare'
       'TCircle'