-
-
Notifications
You must be signed in to change notification settings - Fork 51
/
ChatGPT.FrameImagePreview.fmx
107 lines (107 loc) · 3.37 KB
/
ChatGPT.FrameImagePreview.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
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
object FramePreview: TFramePreview
Padding.Left = 20.000000000000000000
Padding.Top = 20.000000000000000000
Padding.Right = 20.000000000000000000
Padding.Bottom = 20.000000000000000000
Size.Width = 706.000000000000000000
Size.Height = 635.000000000000000000
Size.PlatformDefault = False
OnClick = FrameClick
OnResized = FrameResized
object RectangleBG: TRectangle
Align = Contents
Fill.Color = xB4000000
HitTest = False
Size.Width = 706.000000000000000000
Size.Height = 635.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
end
object SaveDialogJPG: TSaveDialog
DefaultExt = '*.jpg'
Filter = 'JPG|*.jpg'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 140
Top = 484
end
object Image: TImage
MultiResBitmap = <
item
end>
HitTest = False
Position.X = 96.000000000000000000
Position.Y = 80.000000000000000000
Size.Width = 345.000000000000000000
Size.Height = 249.000000000000000000
Size.PlatformDefault = False
WrapMode = Place
end
object LayoutControls: TLayout
Align = Contents
Size.Width = 706.000000000000000000
Size.Height = 635.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object LayoutControlsContent: TLayout
Align = Bottom
Position.Y = 549.000000000000000000
Size.Width = 706.000000000000000000
Size.Height = 86.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Rectangle1: TRectangle
Align = Contents
Fill.Kind = Gradient
Fill.Gradient.Points = <
item
Color = claBlack
Offset = 0.000000000000000000
end
item
Color = claNull
Offset = 1.000000000000000000
end>
Fill.Gradient.StartPosition.X = 0.500000000000000000
Fill.Gradient.StartPosition.Y = 1.000000000000000000
Fill.Gradient.StopPosition.X = 0.499999970197677600
Fill.Gradient.StopPosition.Y = 0.000000000000000000
Size.Width = 706.000000000000000000
Size.Height = 86.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
object ButtonDownload: TButton
Align = Right
Hint = 'Save as ...'
ImageIndex = 15
Margins.Top = 20.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 20.000000000000000000
Position.X = 640.000000000000000000
Position.Y = 20.000000000000000000
Size.Width = 46.000000000000000000
Size.Height = 46.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'buttonstyle_icon'
TabOrder = 1
OnClick = ButtonDownloadClick
end
object ButtonShare: TButton
Align = Right
Hint = 'Share'
ImageIndex = 14
Margins.Top = 20.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 20.000000000000000000
Position.X = 574.000000000000000000
Position.Y = 20.000000000000000000
Size.Width = 46.000000000000000000
Size.Height = 46.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'buttonstyle_icon'
TabOrder = 0
OnClick = ButtonShareClick
end
end
end
end
end