From 37b1897033db2170d13d0759ed698e6e0d2d302c Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sun, 5 Feb 2012 14:28:24 +0000
Subject: [PATCH] LCL: Added read-only public property property WidthType:
 TWidth for Delphi compatibility.issue #7642

git-svn-id: trunk@35161 -
---
 lcl/comctrls.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index b85cf79d11..1adced376a 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -1109,6 +1109,7 @@ type
     constructor Create(ACollection: TCollection); override;
     destructor Destroy; override;
     procedure Assign(ASource: TPersistent); override;
+    property WidthType: TWidth read FWidth;
   published
     property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
     property AutoSize: Boolean read FAutoSize write SetAutoSize default False;