1 files changed, 48 insertions, 9 deletions
diff --git a/unit1.lfm b/unit1.lfm
index 7d13593..61427f1 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -1,17 +1,17 @@
 object Form1: TForm1
-  Left = 282
-  Height = 325
-  Top = 130
-  Width = 647
+  Left = 279
+  Height = 526
+  Top = 374
+  Width = 697
   Caption = 'Form1'
-  ClientHeight = 325
-  ClientWidth = 647
+  ClientHeight = 526
+  ClientWidth = 697
   OnActivate = FormActivate
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnKeyDown = FormKeyDown
   OnResize = FormResize
-  LCLVersion = '1.0.2.0'
+  LCLVersion = '1.6.2.0'
   object Button1: TButton
     Left = 0
     Height = 25
@@ -19,6 +19,7 @@ object Form1: TForm1
     Width = 67
     Caption = 'erzeugen'
     OnClick = Button1Click
+    PopupMenu = PopupMenu1
     TabOrder = 0
   end
   object SpinEdit1: TSpinEdit
@@ -29,6 +30,7 @@ object Form1: TForm1
     Width = 56
     OnChange = SpinEdit1Change
     ParentShowHint = False
+    PopupMenu = PopupMenu1
     ShowHint = True
     TabOrder = 1
     Value = 5
@@ -41,6 +43,7 @@ object Form1: TForm1
     Width = 56
     OnChange = SpinEdit2Change
     ParentShowHint = False
+    PopupMenu = PopupMenu1
     ShowHint = True
     TabOrder = 2
     Value = 5
@@ -53,6 +56,7 @@ object Form1: TForm1
     Width = 56
     OnChange = SpinEdit3Change
     ParentShowHint = False
+    PopupMenu = PopupMenu1
     ShowHint = True
     TabOrder = 3
     Value = 16
@@ -62,6 +66,7 @@ object Form1: TForm1
     Height = 21
     Top = 2
     Width = 100
+    PopupMenu = PopupMenu1
     TabOrder = 4
   end
   object Button2: TButton
@@ -71,6 +76,7 @@ object Form1: TForm1
     Width = 48
     Caption = 'zurück'
     OnClick = Button2Click
+    PopupMenu = PopupMenu1
     TabOrder = 5
   end
   object Button3: TButton
@@ -80,6 +86,7 @@ object Form1: TForm1
     Width = 48
     Caption = 'laden'
     OnClick = Button3Click
+    PopupMenu = PopupMenu1
     TabOrder = 6
   end
   object Button4: TButton
@@ -89,6 +96,7 @@ object Form1: TForm1
     Width = 67
     Caption = 'speichern'
     OnClick = Button4Click
+    PopupMenu = PopupMenu1
     TabOrder = 7
   end
   object Button5: TButton
@@ -98,15 +106,18 @@ object Form1: TForm1
     Width = 64
     Caption = 'erzeugen'
     OnClick = Button5Click
+    PopupMenu = PopupMenu1
     TabOrder = 8
   end
   object CheckBox1: TCheckBox
     Left = 260
-    Height = 17
+    Height = 21
     Top = 4
-    Width = 78
+    Width = 100
     Caption = 'geschlossen'
     OnChange = CheckBox1Change
+    OnKeyDown = FormKeyDown
+    PopupMenu = PopupMenu1
     TabOrder = 9
   end
   object Timer1: TTimer
@@ -122,4 +133,32 @@ object Form1: TForm1
     left = 64
     top = 32
   end
+  object PopupMenu1: TPopupMenu
+    left = 96
+    top = 32
+    object MenuItem1: TMenuItem
+      Caption = 'füllen'
+      OnClick = MenuItem1Click
+    end
+    object MenuItem2: TMenuItem
+      Caption = 'leeren'
+      OnClick = MenuItem2Click
+    end
+    object MenuItem5: TMenuItem
+      Caption = 'ohne Nullen leeren'
+      OnClick = MenuItem5Click
+    end
+    object MenuItem4: TMenuItem
+      Caption = '10 Mal leeren'
+      OnClick = MenuItem4Click
+    end
+    object MenuItem6: TMenuItem
+      Caption = '10 Mal ohne Nullen leeren'
+      OnClick = MenuItem6Click
+    end
+    object MenuItem3: TMenuItem
+      Caption = 'Lösbarkeit'
+      OnClick = MenuItem3Click
+    end
+  end
 end