diff options
| -rw-r--r-- | examples/apps/uidesigner/vfdwidgets.pas | 5 | ||||
| -rw-r--r-- | src/gui/gui_listview.pas | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas index 61a405a1..416d77e7 100644 --- a/examples/apps/uidesigner/vfdwidgets.pas +++ b/examples/apps/uidesigner/vfdwidgets.pas @@ -342,9 +342,12 @@ begin wc := TVFDWidgetClass.Create(TfpgListView); wc.NameBase := 'lvName'; //wc.AddProperty('Columns',TPropertyDBColumns, ''); - //wc.AddProperty('Items', TPropertyStringList, ''); //wc.AddProperty('FontDesc',TPropertyString,''); //wc.AddProperty('HeaderFontDesc',TPropertyString,''); + //wc.AddProperty('Items', TPropertyStringList, ''); + //wc.AddProperty('ItemHeight', TPropertyInteger, ''); + wc.AddProperty('MultiSelect', TPropertyBoolean, ''); + wc.AddProperty('ShowHeaders', TPropertyBoolean, ''); wc.WidgetIconName := 'vfd.listview'; RegisterVFDWidget(wc); 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; |