diff options
Diffstat (limited to 'examples/gui/listbox/frm_main.pas')
-rw-r--r-- | examples/gui/listbox/frm_main.pas | 37 |
1 files changed, 31 insertions, 6 deletions
diff --git a/examples/gui/listbox/frm_main.pas b/examples/gui/listbox/frm_main.pas index 38b06d92..1c858112 100644 --- a/examples/gui/listbox/frm_main.pas +++ b/examples/gui/listbox/frm_main.pas @@ -18,6 +18,7 @@ type TMainForm = class(TfpgForm) private procedure cbHotTrackChanged(Sender: TObject); + procedure ckhReorderChanged(Sender: TObject); procedure btnAdd1Clicked(Sender: TObject); procedure btnFocusClicked(Sender: TObject); procedure btnClearClicked(Sender: TObject); @@ -31,6 +32,7 @@ type btnAdd1: TfpgButton; memName1: TfpgMemo; cbHotTrack: TfpgCheckBox; + chkReorder: TfpgCheckBox; {@VFD_HEAD_END: MainForm} procedure AfterCreate; override; end; @@ -46,6 +48,11 @@ begin lstName1.HotTrack := cbHotTrack.Checked; end; +procedure TMainForm.ckhReorderChanged(Sender: TObject); +begin + lstName1.DragToReorder := not lstName1.DragToReorder; +end; + procedure TMainForm.btnAdd1Clicked(Sender: TObject); begin lstName1.Items.Add(Format('Item %2d', [lstName1.ItemCount])); @@ -82,17 +89,21 @@ begin with lstName1 do begin Name := 'lstName1'; - SetPosition(12, 12, 128, 168); + SetPosition(12, 12, 140, 168); FontDesc := '#List'; + HotTrack := False; + PopupFrame := False; + TabOrder := 0; end; btnAdd10 := TfpgButton.Create(self); with btnAdd10 do begin Name := 'btnAdd10'; - SetPosition(204, 28, 92, 23); + SetPosition(172, 28, 92, 23); Text := 'Add 10 items'; FontDesc := '#Label1'; + Hint := ''; ImageName := ''; TabOrder := 1; OnClick := @btnAdd10Clicked; @@ -102,9 +113,10 @@ begin with btnClear do begin Name := 'btnClear'; - SetPosition(204, 56, 92, 23); + SetPosition(172, 56, 92, 23); Text := 'Clear Items'; FontDesc := '#Label1'; + Hint := ''; ImageName := ''; TabOrder := 2; OnClick := @btnClearClicked; @@ -114,9 +126,10 @@ begin with btnFocus do begin Name := 'btnFocus'; - SetPosition(204, 84, 92, 23); + SetPosition(172, 84, 92, 23); Text := 'FocusItem = 2'; FontDesc := '#Label1'; + Hint := ''; ImageName := ''; TabOrder := 3; OnClick := @btnFocusClicked; @@ -126,9 +139,10 @@ begin with btnAdd1 do begin Name := 'btnAdd1'; - SetPosition(204, 112, 92, 23); + SetPosition(172, 112, 92, 23); Text := 'Add 1 item'; FontDesc := '#Label1'; + Hint := ''; ImageName := ''; TabOrder := 4; OnClick := @btnAdd1Clicked; @@ -147,13 +161,24 @@ begin with cbHotTrack do begin Name := 'cbHotTrack'; - SetPosition(204, 140, 120, 19); + SetPosition(172, 140, 120, 19); FontDesc := '#Label1'; TabOrder := 6; Text := 'Track Focus'; OnChange := @cbHotTrackChanged; end; + chkReorder := TfpgCheckBox.Create(self); + with chkReorder do + begin + Name := 'chkReorder'; + SetPosition(172, 160, 120, 20); + FontDesc := '#Label1'; + TabOrder := 7; + Text := 'Drag to reorder'; + OnChange := @ckhReorderChanged; + end; + {@VFD_BODY_END: MainForm} end; |