diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-10 09:41:59 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-10 09:41:59 +0000 |
| commit | 9b9092ae02ce595d1895506206d4321bc7e57af4 (patch) | |
| tree | 8dfc1930084f538a8d4bdb78c25fd98d4c0e947a /src/gui | |
| parent | 453c32289b808c5c2d0eea794fdd2382cb3c6983 (diff) | |
| download | fpGUI-9b9092ae02ce595d1895506206d4321bc7e57af4.tar.xz | |
* UI Designer: Added some published properties for the ListView component.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/gui_listview.pas | 3 |
1 files changed, 3 insertions, 0 deletions
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; |