SpiceWarsPascal/spwunit1.frm at master · jidelberger/SpiceWarsPascal · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
object Form1: TForm1
  Left = 240
  Height = 515
  Top = 156
  Width = 639
  BorderStyle = bsSingle
  Caption = 'SpiceWars'
  ClientHeight = 515
  ClientWidth = 639
  OnCreate = FormCreate
  LCLVersion = '7.1'
  object Label1: TLabel
    Left = 42
    Height = 16
    Top = 27
    Width = 55
    Caption = 'Angebot:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 440
    Height = 16
    Top = 27
    Width = 60
    Caption = 'Laderaum'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 272
    Height = 16
    Top = 27
    Width = 41
    Caption = 'Menge'
    ParentColor = False
  end
  object lstAngebot: TListBox
    Left = 42
    Height = 232
    Top = 48
    Width = 134
    ItemHeight = 0
    OnClick = lstAngebotClick
    TabOrder = 0
  end
  object lstLaderaum: TListBox
    Left = 440
    Height = 232
    Top = 48
    Width = 144
    ItemHeight = 0
    OnClick = lstLaderaumClick
    TabOrder = 1
  end
  object lstPlaces: TListBox
    Left = 42
    Height = 144
    Top = 336
    Width = 134
    ItemHeight = 0
    TabOrder = 2
  end
  object lblStadt: TLabel
    Left = 248
    Height = 16
    Top = 336
    Width = 33
    Caption = 'Stadt'
    ParentColor = False
  end
  object btnKaufen: TButton
    Left = 248
    Height = 25
    Top = 120
    Width = 115
    Caption = 'Kaufen >>>'
    OnClick = btnKaufenClick
    TabOrder = 3
  end
  object edtMenge: TEdit
    Left = 248
    Height = 22
    Top = 61
    Width = 115
    TabOrder = 4
  end
  object btnVerkaufen: TButton
    Left = 248
    Height = 25
    Top = 160
    Width = 115
    Caption = '<<< Verkaufen'
    OnClick = btnVerkaufenClick
    TabOrder = 5
  end
  object btnSegeln: TButton
    Left = 248
    Height = 25
    Top = 360
    Width = 115
    Caption = 'Weitersegeln'
    OnClick = btnSegelnClick
    TabOrder = 6
  end
end