-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUnit1.fmx
executable file
·61 lines (61 loc) · 2.08 KB
/
Unit1.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
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 480
ClientWidth = 640
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnShow = FormShow
DesignerMasterStyle = 0
object ListView1: TListView
ItemAppearanceClassName = 'TDynamicAppearance'
ItemEditAppearanceClassName = 'TDynamicAppearance'
HeaderAppearanceClassName = 'TListHeaderObjects'
FooterAppearanceClassName = 'TListHeaderObjects'
Align = Top
Size.Width = 640.000000000000000000
Size.Height = 353.000000000000000000
Size.PlatformDefault = False
ItemAppearanceObjects.ItemObjects.ObjectsCollection = <
item
AppearanceObjectName = 'Text1'
AppearanceClassName = 'TTextObjectAppearance'
Appearance.Font.Size = 16.000000000000000000
Appearance.Font.StyleExt = {00070000000000000004000000}
Appearance.Width = 167.000000000000000000
Appearance.Height = 44.000000000000000000
end
item
AppearanceObjectName = 'Text2'
AppearanceClassName = 'TTextObjectAppearance'
Appearance.Font.Size = 20.000000000000000000
Appearance.Font.StyleExt = {04070000000200000004000000}
Appearance.TextColor = xFFFF2020
Appearance.Width = 193.000000000000000000
Appearance.Height = 44.000000000000000000
Appearance.PlaceOffset.X = 166.000000000000000000
end>
ItemAppearanceObjects.ItemEditObjects.ObjectsCollection = <
item
AppearanceObjectName = 'Text1'
AppearanceClassName = 'TTextObjectAppearance'
end>
end
object CornerButton1: TCornerButton
Align = Client
Margins.Left = 10.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 10.000000000000000000
Margins.Bottom = 10.000000000000000000
Sides = [Top, Left, Bottom, Right]
Size.Width = 620.000000000000000000
Size.Height = 107.000000000000000000
Size.PlatformDefault = False
Text = 'RenderList()'
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
OnClick = CornerButton1Click
end
end