-
Notifications
You must be signed in to change notification settings - Fork 34
/
VCLForm.dfm
139 lines (139 loc) · 3.52 KB
/
VCLForm.dfm
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
object Form1: TForm1
Left = 0
Top = 0
Caption = 'TFireMonkeyContainer demo'
ClientHeight = 340
ClientWidth = 680
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
DesignSize = (
680
340)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 465
Top = 18
Width = 203
Height = 19
Anchors = [akTop, akRight]
Caption = 'TFireMonkeyContainer demo'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ExplicitLeft = 551
end
object Label2: TLabel
Left = 465
Top = 48
Width = 203
Height = 73
Anchors = [akTop, akRight, akBottom]
AutoSize = False
Caption =
'This is a VCL form holding VCL controls. On the left is a TFireM' +
'onkeyContainer inside a TPanel (to show a border.) It is holdin' +
'g a FireMonkey form.'
WordWrap = True
end
object Label3: TLabel
Left = 465
Top = 129
Width = 213
Height = 39
Caption =
'FireMonkeyContainers get drag/drop events (pass these on to your' +
' embedded form however you want.)'
WordWrap = True
end
object btnOpenAnotherForm: TButton
Left = 465
Top = 302
Width = 203
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Open another form'
TabOrder = 0
OnClick = btnOpenAnotherFormClick
end
object PageControl1: TPageControl
Left = 16
Top = 18
Width = 443
Height = 309
ActivePage = TabSheet1
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'TabSheet1'
object Panel1: TPanel
AlignWithMargins = True
Left = 1
Top = 3
Width = 431
Height = 275
Margins.Left = 1
Align = alClient
BevelInner = bvLowered
Caption = 'Panel1'
TabOrder = 0
object FireMonkeyContainer1: TFireMonkeyContainer
Left = 2
Top = 2
Width = 427
Height = 271
OnCreateFMXForm = FireMonkeyContainer1CreateFMXForm
OnDestroyFMXForm = FireMonkeyContainer1DestroyFMXForm
Align = alClient
OnDragDrop = FireMonkeyContainerDragDrop
OnDragOver = FireMonkeyContainerDragOver
end
end
end
object TabSheet2: TTabSheet
Caption = 'TabSheet2'
ImageIndex = 1
object Panel2: TPanel
AlignWithMargins = True
Left = 1
Top = 3
Width = 431
Height = 275
Margins.Left = 1
Align = alClient
BevelInner = bvLowered
Caption = 'Panel1'
TabOrder = 0
object FireMonkeyContainer2: TFireMonkeyContainer
Left = 2
Top = 2
Width = 427
Height = 271
OnCreateFMXForm = FireMonkeyContainer2CreateFMXForm
OnDestroyFMXForm = FireMonkeyContainer2DestroyFMXForm
Align = alClient
OnDragDrop = FireMonkeyContainerDragDrop
OnDragOver = FireMonkeyContainerDragOver
end
end
end
end
object btnDrag: TButton
Left = 465
Top = 171
Width = 203
Height = 30
Anchors = [akTop, akRight]
Caption = 'Drag me over a FMX form'
DragMode = dmAutomatic
TabOrder = 2
end
end