diff options
Diffstat (limited to 'unit1.lfm')
-rw-r--r-- | unit1.lfm | 36 |
1 files changed, 17 insertions, 19 deletions
@@ -9,9 +9,8 @@ object Form1: TForm1 OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
OnResize = FormResize
- LCLVersion = '1.6.2.0'
+ LCLVersion = '2.0.10.0'
object Button1: TButton
Left = 0
Height = 25
@@ -24,7 +23,7 @@ object Form1: TForm1 end
object SpinEdit1: TSpinEdit
Left = 72
- Height = 21
+ Height = 24
Hint = 'Breite'
Top = 2
Width = 56
@@ -37,7 +36,7 @@ object Form1: TForm1 end
object SpinEdit2: TSpinEdit
Left = 136
- Height = 21
+ Height = 24
Hint = 'Höhe'
Top = 2
Width = 56
@@ -50,7 +49,7 @@ object Form1: TForm1 end
object SpinEdit3: TSpinEdit
Left = 200
- Height = 21
+ Height = 24
Hint = 'Höhe'
Top = 2
Width = 56
@@ -62,7 +61,7 @@ object Form1: TForm1 Value = 16
end
object ProgressBar1: TProgressBar
- Left = 584
+ Left = 612
Height = 21
Top = 2
Width = 100
@@ -70,7 +69,7 @@ object Form1: TForm1 TabOrder = 4
end
object Button2: TButton
- Left = 340
+ Left = 368
Height = 25
Top = 0
Width = 48
@@ -80,7 +79,7 @@ object Form1: TForm1 TabOrder = 5
end
object Button3: TButton
- Left = 392
+ Left = 420
Height = 25
Top = 0
Width = 48
@@ -90,7 +89,7 @@ object Form1: TForm1 TabOrder = 6
end
object Button4: TButton
- Left = 444
+ Left = 472
Height = 25
Top = 0
Width = 67
@@ -100,7 +99,7 @@ object Form1: TForm1 TabOrder = 7
end
object Button5: TButton
- Left = 515
+ Left = 543
Height = 25
Top = 0
Width = 64
@@ -113,29 +112,28 @@ object Form1: TForm1 Left = 260
Height = 21
Top = 4
- Width = 100
+ Width = 103
Caption = 'geschlossen'
OnChange = CheckBox1Change
- OnKeyDown = FormKeyDown
PopupMenu = PopupMenu1
TabOrder = 9
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
- top = 32
+ Top = 32
end
object OpenDialog1: TOpenDialog
- left = 32
- top = 32
+ Left = 32
+ Top = 32
end
object SaveDialog1: TSaveDialog
- left = 64
- top = 32
+ Left = 64
+ Top = 32
end
object PopupMenu1: TPopupMenu
- left = 96
- top = 32
+ Left = 96
+ Top = 32
object MenuItem1: TMenuItem
Caption = 'füllen'
OnClick = MenuItem1Click
|