diff options
| -rw-r--r-- | extras/tiopf/demos/EditControlsDemo/editmediators.lpi | 2 | ||||
| -rw-r--r-- | extras/tiopf/demos/ListControlDemo/frmMain.pas | 18 | ||||
| -rw-r--r-- | src/corelib/x11/gfx_x11.pas | 2 |
3 files changed, 11 insertions, 11 deletions
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 @@ <CONFIG> <ProjectOptions> <PathDelim Value="/"/> - <Version Value="5"/> + <Version Value="6"/> <General> <Flags> <SaveOnlyProjectUnits Value="True"/> 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; diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index 7b08f151..d0301c67 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -1747,7 +1747,7 @@ begin // This occurs every now and again with TfpgMemo and InvertCaret painting! // Investigate this. if not TfpgWindowImpl(awin).HasHandle then - raise Exception.Create(' Window doesn''t have a Handle'); + raise Exception.Create('Window doesn''t have a Handle'); end; XGetGeometry(xapplication.display, TfpgWindowImpl(awin).FWinHandle, @rw, @x, @y, @w, @h, @bw, @d); |