-
-
Notifications
You must be signed in to change notification settings - Fork 51
/
ChatGPT.FrameCode.fmx
168 lines (168 loc) · 6.44 KB
/
ChatGPT.FrameCode.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
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
object FrameCode: TFrameCode
ClipChildren = True
HitTest = False
Margins.Bottom = 5.000000000000000000
Size.Width = 575.000000000000000000
Size.Height = 387.000000000000000000
Size.PlatformDefault = False
OnResize = FrameResize
OnResized = FrameResize
object RectangleHead: TRectangle
Align = Top
ClipChildren = True
Corners = [TopLeft, TopRight]
Fill.Color = xFF353440
Padding.Left = 16.000000000000000000
Padding.Top = 6.000000000000000000
Padding.Right = 16.000000000000000000
Padding.Bottom = 6.000000000000000000
Sides = [Top, Left, Right]
Size.Width = 575.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF1A1922
XRadius = 6.000000000000000000
YRadius = 6.000000000000000000
object LabelLanguage: TLabel
Align = Client
StyledSettings = [Style]
Size.Width = 462.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 11.500000000000000000
TextSettings.FontColor = xFFD9D9E3
TextSettings.WordWrap = False
TextSettings.Trimming = None
Text = 'language'
TabOrder = 0
end
object LayoutCopyCode: TLayout
Align = Right
Cursor = crHandPoint
HitTest = True
Position.X = 478.000000000000000000
Position.Y = 6.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
OnClick = LayoutCopyCodeClick
object PathCopy: TPath
Align = Left
Data.Path = {
4E0000000000000000005C410000004002000000ED0D6F410000004002000000
4CA67E41D2353B4002000000B3EA7F4106128340010000000000804100008840
0200000000008041384A854002000000C0EC7F41499D8240020000007AC77F41
D3F67F400100000000008E410000804002000000D8F097410000804002000000
0000A0414B3CA040020000000000A0410000C840010000000000A04100009E41
020000000000A041D8F0A74102000000D8F097410000B0410200000000008E41
0000B041010000000000C8400000B041020000004B3CA0400000B04102000000
00008040D8F0A741020000000000804000009E4101000000000080400000C840
02000000000080404B3CA040020000004B3CA04000008040020000000000C840
00008040010000007C380041D3F67F4002000000061E004102D9814002000000
B30C004117BC834002000000E0040041ECA38540010000000000004100008840
02000000000000419678404002000000261E1041000000400200000000002441
000000400100000000005C41000000400300000000005C410000004000000000
00005C410000D04001000000000024410000D04002000000924B17410000D040
02000000A5200C4162D6C240020000005CB805416FF5AE400100000077100641
A301B040010000000000C8400000B04002000000CBBEBA400000B04002000000
0000B040CBBEBA40020000000000B0400000C840010000000000B04000009E41
020000000000B0404850A14102000000CBBEBA400000A441020000000000C840
0000A4410100000000008E410000A44102000000485091410000A44102000000
000094414850A141020000000000944100009E4101000000000094410000C840
0200000000009441CBBEBA4002000000485091410000B0400200000000008E41
0000B040010000009EEF7941A301B04001000000AE477A416FF5AE4002000000
3BDF734162D6C24002000000A2B468410000D0400200000000005C410000D040
0300000000005C410000D0400000000000005C41000060400100000000002441
0000604002000000655F1D41000060400200000000001841957D754002000000
000018410000884002000000000018413541954002000000655F1D410000A040
02000000000024410000A0400100000000005C410000A0400200000090A06241
0000A04002000000000068413541954002000000000068410000884002000000
00006841957D75400200000090A06241000060400200000000005C4100006040
0300000000005C4100006040}
Fill.Color = xFFD9D9E3
HitTest = False
Size.Width = 11.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
WrapMode = Fit
end
object LabelCopy: TLabel
Align = Right
AutoSize = True
StyledSettings = [Style]
Position.X = 26.000000000000000000
Size.Width = 55.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 11.500000000000000000
TextSettings.FontColor = xFFD9D9E3
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
TextSettings.Trimming = None
Text = 'Copy code'
TabOrder = 0
OnResize = LabelCopyResize
OnResized = LabelCopyResize
end
end
end
object RectangleClient: TRectangle
Touch.InteractiveGestures = [LongTap]
Align = Client
Corners = [BottomLeft, BottomRight]
Fill.Color = claBlack
Size.Width = 575.000000000000000000
Size.Height = 355.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 6.000000000000000000
YRadius = 6.000000000000000000
OnMouseDown = RectangleClientMouseDown
OnMouseMove = RectangleClientMouseMove
OnMouseUp = RectangleClientMouseUp
object MemoCode: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
Caret.Color = x00FFFFFF
DataDetectorTypes = []
DisableMouseWheel = True
Lines.Strings = (
'begin'
''
'end.')
ReadOnly = True
StyledSettings = [Style]
TextSettings.Font.Family = 'Consolas'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFFE8E8E8
Align = Client
CanParentFocus = True
Cursor = crDefault
EnableDragHighlight = False
Margins.Left = 5.000000000000000000
Margins.Top = 5.000000000000000000
Margins.Right = 5.000000000000000000
Margins.Bottom = 5.000000000000000000
Size.Width = 565.000000000000000000
Size.Height = 345.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'memostyle_code'
TabOrder = 0
OnClick = MemoCodeClick
OnMouseMove = MemoCodeMouseMove
OnMouseWheel = MemoCodeMouseWheel
OnMouseLeave = MemoCodeMouseLeave
OnPresentationNameChoosing = MemoCodePresentationNameChoosing
Viewport.Width = 565.000000000000000000
Viewport.Height = 345.000000000000000000
end
end
object TimerMouseOver: TTimer
Enabled = False
Interval = 50
OnTimer = TimerMouseOverTimer
Left = 136
Top = 160
end
end