From 7ba2139f6fc402dfc26f1358649771e83b4059f7 Mon Sep 17 00:00:00 2001 From: graemeg Date: Fri, 23 May 2008 08:56:33 +0000 Subject: Minor update in the List controls Demo of tiOPF and MGM. --- extras/tiopf/demos/EditControlsDemo/editmediators.lpi | 2 +- extras/tiopf/demos/ListControlDemo/frmMain.pas | 18 +++++++++--------- 2 files changed, 10 insertions(+), 10 deletions(-) (limited to 'extras/tiopf') diff --git a/extras/tiopf/demos/EditControlsDemo/editmediators.lpi b/extras/tiopf/demos/EditControlsDemo/editmediators.lpi index d24d8e8b..55dc6b9c 100644 --- a/extras/tiopf/demos/EditControlsDemo/editmediators.lpi +++ b/extras/tiopf/demos/EditControlsDemo/editmediators.lpi @@ -2,7 +2,7 @@ - + diff --git a/extras/tiopf/demos/ListControlDemo/frmMain.pas b/extras/tiopf/demos/ListControlDemo/frmMain.pas index 7876ee3c..b95924e0 100644 --- a/extras/tiopf/demos/ListControlDemo/frmMain.pas +++ b/extras/tiopf/demos/ListControlDemo/frmMain.pas @@ -182,20 +182,20 @@ begin lbl.TextColor := clBlue; lbl.WrapText := True; - cbPeople := TfpgComboBox.Create(self); - cbPeople.Top := AgeTrackBar.Bottom + 17; - cbPeople.Left := 7; - cbPeople.Width := 200; - cbPeople.Hint := 'Shows objects from the object list'; - lbPeople := TfpgListBox.Create(self); - lbPeople.Top := cbPeople.Bottom + 7; - lbPeople.Left := cbPeople.Left; + lbPeople.Top := AgeTrackBar.Bottom + 17; + lbPeople.Left := 7; lbPeople.Height := 200; lbPeople.Width := 200; lbPeople.Hint := 'Shows objects from the object list'; - chkShowDeleted := CreateCheckBox(self, cbPeople.Right + 50, cbPeople.Top, 'Show Deleted'); + cbPeople := TfpgComboBox.Create(self); + cbPeople.Top := AgeTrackBar.Bottom + 17; + cbPeople.Left := lbPeople.Right + 15; + cbPeople.Width := 200; + cbPeople.Hint := 'Shows objects from the object list'; + + chkShowDeleted := CreateCheckBox(self, cbPeople.Left, lbPeople.Bottom-20, 'Show Deleted'); end; -- cgit v1.2.3-70-g09d2