From 841f3e321ff8b49e1408b14abead47bc291edeb8 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 25 Sep 2017 10:39:11 +0200 Subject: läuft soweit MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- unit1.lfm | 46 ++++++++++++++++++++++++---------------------- 1 file changed, 24 insertions(+), 22 deletions(-) (limited to 'unit1.lfm') diff --git a/unit1.lfm b/unit1.lfm index 9f8193f..9459406 100644 --- a/unit1.lfm +++ b/unit1.lfm @@ -1,86 +1,88 @@ -object Form1: TForm1 - Left = 1690 +object form1: Tform1 + Left = 437 Height = 597 - Top = 180 + Top = 199 Width = 854 - Caption = 'Form1' + Caption = 'form1' ClientHeight = 597 ClientWidth = 854 + OnCreate = FormCreate + OnDestroy = FormDestroy OnResize = FormResize LCLVersion = '1.6.4.0' - object Button1: TButton + object button1: TButton Left = 8 Height = 25 Top = 8 Width = 75 Caption = 'Laden' - OnClick = Button1Click + OnClick = button1Click TabOrder = 0 end - object Button2: TButton + object button2: TButton Left = 88 Height = 25 Top = 8 Width = 75 Caption = 'Speichern' - OnClick = Button2Click + OnClick = button2Click TabOrder = 1 end - object ListBox1: TListBox + object listBox1: TListBox Left = 0 Height = 152 Top = 40 Width = 344 ItemHeight = 0 - OnClick = ListBox1Click - ScrollWidth = 340 + OnClick = listBox1Click + ScrollWidth = 342 TabOrder = 2 TopIndex = -1 end - object ListBox2: TListBox + object listBox2: TListBox Left = 0 Height = 144 Top = 192 Width = 344 ItemHeight = 0 - OnClick = ListBox2Click - ScrollWidth = 340 + OnClick = listBox2Click + ScrollWidth = 342 TabOrder = 3 TopIndex = -1 end - object ListBox3: TListBox + object listBox3: TListBox Left = 0 Height = 256 Top = 336 Width = 344 ItemHeight = 0 - OnClick = ListBox3Click - ScrollWidth = 340 + OnClick = listBox3Click + ScrollWidth = 342 TabOrder = 4 TopIndex = -1 end - object Image1: TImage + object image1: TImage Left = 344 Height = 90 Top = 0 Width = 90 end - object Button3: TButton + object button3: TButton Left = 168 Height = 25 Top = 8 Width = 75 Caption = 'Teilen' - OnClick = Button3Click + OnClick = button3Click TabOrder = 5 end - object Button4: TButton + object button4: TButton Left = 248 Height = 25 Top = 8 Width = 75 Caption = 'Löschen' - OnClick = Button4Click + OnClick = button4Click TabOrder = 6 end object SaveDialog1: TSaveDialog -- cgit v1.2.3-54-g00ecf