From 9b9092ae02ce595d1895506206d4321bc7e57af4 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 10 Oct 2007 09:41:59 +0000
Subject: * UI Designer: Added some published properties for the ListView
 component.

---
 src/gui/gui_listview.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/gui')

diff --git a/src/gui/gui_listview.pas b/src/gui/gui_listview.pas
index 47506413..422e17f3 100644
--- a/src/gui/gui_listview.pas
+++ b/src/gui/gui_listview.pas
@@ -243,6 +243,7 @@ type
     procedure   EndUpdate;
     procedure   MakeItemVisible(AIndex: Integer; PartialOK: Boolean = False);
     function    ItemAdd: TfpgLVItem;
+  published
     property    Columns: TfpgLVColumns read FColumns;
     property    Items: TfpgLVItems read FItems write SetItems;
     property    SelectionFollowsFocus: Boolean read FSelectionFollowsFocus write FSelectionFollowsFocus;
@@ -1514,6 +1515,8 @@ end;
 constructor TfpgListView.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
+  FWidth       := 120;
+  FHeight      := 80;
   Focusable := True;
   FShowHeaders := True;
 
-- 
cgit v1.2.3-70-g09d2