Examples/graphics/Playingcards/unit1.lfm at master · PascalCorpsman/Examples · 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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
object Form1: TForm1
  Left = 330
  Height = 468
  Top = 107
  Width = 525
  Caption = 'Form1'
  ClientHeight = 468
  ClientWidth = 525
  Position = poScreenCenter
  LCLVersion = '4.99.0.0'
  OnCreate = FormCreate
  object Label1: TLabel
    Left = 8
    Height = 16
    Top = 8
    Width = 41
    Caption = 'Label1'
  end
  object PageControl1: TPageControl
    Left = 8
    Height = 240
    Top = 176
    Width = 512
    ActivePage = TabSheet3
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 2
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Back'
      ClientHeight = 206
      ClientWidth = 506
      object Label4: TLabel
        Left = 6
        Height = 16
        Top = 60
        Width = 34
        Caption = 'Index'
      end
      object ComboBox3: TComboBox
        Left = 62
        Height = 28
        Top = 51
        Width = 169
        ItemHeight = 0
        ItemIndex = 0
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
        )
        TabOrder = 0
        Text = '1'
        OnChange = ComboBox3Change
      end
      object Button3: TButton
        Left = 254
        Height = 25
        Top = 53
        Width = 125
        Caption = 'Add Card Back'
        TabOrder = 1
        OnClick = Button3Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Face'
      ClientHeight = 206
      ClientWidth = 506
      object Label2: TLabel
        Left = 6
        Height = 16
        Top = 20
        Width = 23
        Caption = 'Suit'
      end
      object ComboBox1: TComboBox
        Left = 62
        Height = 28
        Top = 11
        Width = 169
        ItemHeight = 0
        ItemIndex = 0
        Items.Strings = (
          'Clubs'
          'Diamonds'
          'Hearts'
          'Spades'
          'Joker'
        )
        TabOrder = 0
        Text = 'Clubs'
        OnChange = ComboBox1Change
      end
      object ComboBox2: TComboBox
        Left = 62
        Height = 28
        Top = 51
        Width = 169
        ItemHeight = 0
        ItemIndex = 0
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12'
          '13'
        )
        TabOrder = 1
        Text = '1'
        OnChange = ComboBox2Change
      end
      object Label3: TLabel
        Left = 6
        Height = 16
        Top = 60
        Width = 34
        Caption = 'Index'
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Tool'
      ClientHeight = 206
      ClientWidth = 506
      object Label5: TLabel
        Left = 6
        Height = 16
        Top = 60
        Width = 34
        Caption = 'Index'
      end
      object ComboBox4: TComboBox
        Left = 62
        Height = 28
        Top = 51
        Width = 169
        ItemHeight = 0
        ItemIndex = 0
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
        )
        TabOrder = 0
        Text = '1'
        OnChange = ComboBox4Change
      end
      object Button2: TButton
        Left = 254
        Height = 25
        Top = 53
        Width = 125
        Caption = 'Add Card Tool'
        TabOrder = 1
        OnClick = Button2Click
      end
    end
  end
  object Button1: TButton
    Left = 8
    Height = 32
    Top = 432
    Width = 512
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Close'
    TabOrder = 1
    OnClick = Button1Click
  end
  object CheckBox1: TCheckBox
    Left = 296
    Height = 22
    Top = 96
    Width = 74
    Caption = 'selected'
    TabOrder = 2
    OnClick = CheckBox1Click
  end
  object Label6: TLabel
    Left = 128
    Height = 16
    Top = 104
    Width = 34
    Caption = 'Value'
  end
  object Label7: TLabel
    Left = 176
    Height = 16
    Top = 104
    Width = 41
    Caption = 'Label7'
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.bmp'
    Filter = 'Bitmap|*.bmp|All|*.*'
    Left = 400
    Top = 264
  end
end