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
|
object PackageListFrm: TPackageListFrm
Left = 578
Height = 265
Top = 314
Width = 394
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'PackageListFrm'
ClientHeight = 265
ClientWidth = 394
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyPress = FormKeyPress
PopupMode = pmExplicit
Position = poOwnerFormCenter
LCLVersion = '2.1.0.0'
object pnMessage: TPanel
Left = 0
Height = 47
Top = 0
Width = 394
Align = alTop
BevelOuter = bvNone
ClientHeight = 47
ClientWidth = 394
TabOrder = 0
object lbMessage: TLabel
Left = 11
Height = 15
Top = 11
Width = 372
Anchors = [akTop, akLeft, akRight]
Caption = 'lbMessage'
ParentColor = False
WordWrap = True
OnResize = lbMessageResize
end
end
object pnButtons: TPanel
Left = 0
Height = 41
Top = 224
Width = 394
Align = alBottom
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 394
TabOrder = 1
object bOk: TButton
Left = 309
Height = 26
Top = 8
Width = 75
Anchors = [akTop, akRight]
Caption = 'Ok'
ModalResult = 1
TabOrder = 2
Visible = False
end
object bYes: TButton
Left = 232
Height = 26
Top = 8
Width = 75
Anchors = [akTop, akRight]
Caption = 'Yes'
ModalResult = 6
TabOrder = 0
end
object bNo: TButton
Left = 309
Height = 26
Top = 8
Width = 75
Anchors = [akTop, akRight]
Caption = 'No'
ModalResult = 7
TabOrder = 1
end
object lbHint: TLabel
Left = 12
Height = 15
Top = 11
Width = 33
Caption = 'lbHint'
Enabled = False
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
Visible = False
end
end
object pnUpDown: TPanel
Left = 370
Height = 177
Top = 47
Width = 24
Align = alRight
BevelOuter = bvNone
TabOrder = 2
Visible = False
end
end
|
