-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMessageBox.fmx
70 lines (70 loc) · 2.02 KB
/
MessageBox.fmx
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
object msgForm: TmsgForm
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = Single
Caption = 'Form2'
ClientHeight = 140
ClientWidth = 450
Position = MainFormCenter
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object Button1: TCornerButton
Tag = -1
Anchors = [akRight, akBottom]
ModalResult = 2
Position.X = 356.000000000000000000
Position.Y = 108.000000000000000000
Sides = [Top, Left, Bottom, Right]
TabOrder = 1
Text = 'Cancel'
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
object Button2: TCornerButton
Tag = 2
Anchors = [akRight, akBottom]
ModalResult = 7
Position.X = 264.000000000000000000
Position.Y = 108.000000000000000000
Sides = [Top, Left, Bottom, Right]
TabOrder = 2
Text = 'No'
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
object Button3: TCornerButton
Tag = 1
Anchors = [akRight, akBottom]
ModalResult = 6
Position.X = 172.000000000000000000
Position.Y = 108.000000000000000000
Sides = [Top, Left, Bottom, Right]
TabOrder = 0
Text = 'Yes'
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
object messageText: TLabel
Align = Top
Anchors = [akLeft, akTop, akRight, akBottom]
StyledSettings = [Family, FontColor]
Margins.Left = 8.000000000000000000
Margins.Top = 8.000000000000000000
Margins.Right = 8.000000000000000000
Margins.Bottom = 8.000000000000000000
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 434.000000000000000000
Size.Height = 85.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 16.000000000000000000
TextSettings.Font.StyleExt = {00030000000000000004000000}
TextSettings.HorzAlign = Center
TextSettings.Trimming = None
Text = 'messageText'
TabOrder = 4
end
end