From 95afcc66f4a1e723d25cd0569863d3ee4d0dc0af Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Sun, 8 Oct 2017 21:47:27 +0200 Subject: breitere ListBoxen --- gps_schneidetisch.lps | 86 +++++++++++++++++++++++++-------------------------- unit1.lfm | 24 +++++++------- unit1.pas | 2 +- 3 files changed, 56 insertions(+), 56 deletions(-) diff --git a/gps_schneidetisch.lps b/gps_schneidetisch.lps index 65c9eba..73b49c9 100644 --- a/gps_schneidetisch.lps +++ b/gps_schneidetisch.lps @@ -19,27 +19,27 @@ - - + + - - - - - - - - - + + + + + + + + + @@ -53,123 +53,123 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - - + + - + - - + + - + diff --git a/unit1.lfm b/unit1.lfm index 9459406..a9700ad 100644 --- a/unit1.lfm +++ b/unit1.lfm @@ -30,39 +30,39 @@ object form1: Tform1 end object listBox1: TListBox Left = 0 - Height = 152 + Height = 153 Top = 40 - Width = 344 + Width = 400 ItemHeight = 0 OnClick = listBox1Click - ScrollWidth = 342 + ScrollWidth = 396 TabOrder = 2 TopIndex = -1 end object listBox2: TListBox Left = 0 - Height = 144 - Top = 192 - Width = 344 + Height = 145 + Top = 193 + Width = 400 ItemHeight = 0 OnClick = listBox2Click - ScrollWidth = 342 + ScrollWidth = 396 TabOrder = 3 TopIndex = -1 end object listBox3: TListBox Left = 0 - Height = 256 - Top = 336 - Width = 344 + Height = 258 + Top = 339 + Width = 400 ItemHeight = 0 OnClick = listBox3Click - ScrollWidth = 342 + ScrollWidth = 396 TabOrder = 4 TopIndex = -1 end object image1: TImage - Left = 344 + Left = 400 Height = 90 Top = 0 Width = 90 diff --git a/unit1.pas b/unit1.pas index 90f3173..8887e8f 100644 --- a/unit1.pas +++ b/unit1.pas @@ -205,7 +205,7 @@ begin image1.free; image1:=tImage.create(form1); image1.parent:=form1; - image1.left:=344; + image1.left:=400; image1.top:=0; image1.width:=form1.clientWidth-image1.left; image1.height:=form1.clientHeight-image1.top; -- cgit v1.2.3-54-g00ecf