forked from FMXExpress/Trolledge
-
Notifications
You must be signed in to change notification settings - Fork 0
/
uMemoFrame.fmx
251 lines (251 loc) · 8.72 KB
/
uMemoFrame.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
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
object MemoFrame: TMemoFrame
Size.Width = 672.000000000000000000
Size.Height = 502.000000000000000000
Size.PlatformDefault = False
OnDragEnter = FrameDragEnter
OnDragOver = FrameDragOver
OnDragDrop = FrameDragDrop
object ImageViewer1: TImageViewer
Align = Client
Size.Width = 672.000000000000000000
Size.Height = 469.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Viewport.Width = 668.000000000000000000
Viewport.Height = 465.000000000000000000
end
object pnlMemoFind: TPanel
Align = Bottom
Position.Y = 476.000000000000000000
Size.Width = 672.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 1
object edFindText: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = Client
TabOrder = 1
Size.Width = 507.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
end
object lbFindText: TLabel
Align = Left
Margins.Left = 4.000000000000000000
Position.X = 4.000000000000000000
Size.Width = 53.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
Text = 'Find text:'
end
object btnFindText: TButton
Align = Right
Position.X = 564.000000000000000000
Size.Width = 80.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
end
object btnCloseFindBar: TButton
Align = Right
Position.X = 644.000000000000000000
Size.Width = 28.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'cleareditbutton'
TabOrder = 0
end
end
object pnlMemoStatus: TPanel
Align = Top
Size.Width = 672.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object lbFileName: TLabel
Align = Left
AutoSize = True
StyledSettings = [Family, Size, FontColor]
Margins.Left = 8.000000000000000000
Position.X = 8.000000000000000000
Size.Width = 22.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'File'
end
object lbFilePath: TLabel
Align = Client
Size.Width = 576.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
end
object btnCloseFrame: TSpeedButton
Align = Right
Position.X = 639.000000000000000000
Size.Width = 33.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
Text = 'X'
object Image1: TImage
Tag = 13
MultiResBitmap = <
item
Width = 36
Height = 36
PNG = {
89504E470D0A1A0A0000000D4948445200000024000000240806000000E10098
98000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
01D0494441545847ED964152C2301486DBBAE5048ADE41584119C70DF710053D
00B0E600C0D28523A387C00388CEC0CE437806D8B020BE1F5E9C0C2669D2A21B
F3CD74D23F40DE4721AF8D0281404043B7DBBDA021DE257F068341C26B6492F0
68A4D7EB75922479EDF7FB0F14BDA520B35AAD265883A46E78DA88B500BE1516
A253F9BEC7E1707847A3D8453B52268EE3164F89CD6673391E8FDF38FFE08847
2D8BC5E2B35EAF9769C10A4F55299FCCE7F317CE46343260321A8DEEF95C8B55
08A03824A414C62C29838CD3D5CD1402289EA669994EBFA590697E8AAC524406
3809011457A530EE4B159501CE4200C56BB5DA29153CE7A90A32FDD7A6879001
797A4B4CBB0FDBF89A73443BE7894440211990D987348852A9D411423C738E20
770819E0F5934966B39968369BD3F57A7D4622F2E793E4960179AED0AF92EB0A
19FEC0922AEDBE63B40ACE5E780B9976131D1F7454B7A9809497906D6BA3B8DA
D109E7DB8C8AB3904B9FD997C2E82BE524E4D3F4505CEDE890DAEFE83632857C
642428AE4A617495B20AE59191A0B8E936C3598BB50F2D97CB062D78C51138C9
30821EC4DAB8AD7046476FD1936783A316AB103FD9DDD201011F19897A9BC1E7
DAB4C6FBF69522FCE5437E2010F86744D1176A2423FF698C4EDA000000004945
4E44AE426082}
end>
Align = Client
HitTest = False
Margins.Left = 4.000000000000000000
Margins.Top = 4.000000000000000000
Margins.Right = 4.000000000000000000
Margins.Bottom = 4.000000000000000000
Size.Width = 25.000000000000000000
Size.Height = 25.000000000000000000
Size.PlatformDefault = False
end
end
object btnSplitEditor: TSpeedButton
Align = Right
Position.X = 606.000000000000000000
Size.Width = 33.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
Text = 'btnSplitEditor'
object Image2: TImage
Tag = 12
MultiResBitmap = <
item
Width = 36
Height = 36
PNG = {
89504E470D0A1A0A0000000D4948445200000024000000240806000000E10098
98000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
0086494441545847EDD1410E80200C0440F4CF7D451FAD21A1090748DB05120E
3B178CBA4BD14244447490887CED322C9B79DAEAEA8B5535944332E962E36D80
642AF705B4B842B2474ED9CB764C1FEC18C664BA8637770E63A29D6F5BAF313D
F555BFCCEC182ADBE196AF0C85648F15A307090D54F51B205F289A49199DDA83
64888888C24AF901B6B4618682DCAB120000000049454E44AE426082}
end>
Align = Client
HitTest = False
Margins.Left = 4.000000000000000000
Margins.Top = 4.000000000000000000
Margins.Right = 4.000000000000000000
Margins.Bottom = 4.000000000000000000
Size.Width = 25.000000000000000000
Size.Height = 25.000000000000000000
Size.PlatformDefault = False
end
end
end
object TMSFMXMemo1: TTMSFMXMemo
Align = Client
Cursor = crIBeam
DisableFocusEffect = False
TabOrder = 3
OnApplyStyleLookup = TMSFMXMemo1ApplyStyleLookup
OnDragEnter = TMSFMXMemo1DragEnter
OnDragOver = TMSFMXMemo1DragOver
OnDragDrop = TMSFMXMemo1DragDrop
OnClick = TMSFMXMemo1Click
Size.Width = 672.000000000000000000
Size.Height = 469.000000000000000000
Size.PlatformDefault = False
AdaptToStyle = True
ActiveLineSettings.ShowActiveLine = False
ActiveLineSettings.ShowActiveLineIndicator = False
ActiveLineSettings.ActiveLineAtCursor = True
AutoCompletion.StartToken = '.,('
AutoCompletion.Width = 400
CaseSensitive = False
Font.Family = 'Courier New'
Gutter.Font.Family = 'Courier New'
KeyboardType = Default
Lines.Strings = (
'')
ReadOnly = False
TabSize = 4
TrimTrailingSpaces = False
UseStyler = True
UrlAware = False
Version = '1.5.2.5'
WantTab = True
OnCursorChange = TMSFMXMemo1CursorChange
end
object pnlGoTo: TPanel
Align = Contents
Margins.Left = 50.000000000000000000
Margins.Top = 32.000000000000000000
Margins.Right = 50.000000000000000000
Margins.Bottom = 200.000000000000000000
Size.Width = 572.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object lbGoToHint: TLabel
Align = Top
Size.Width = 572.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'lbGoToHint'
end
object ListView1: TListView
ItemAppearanceClassName = 'TImageListItemBottomDetailAppearance'
ItemEditAppearanceClassName = 'TImageListItemBottomDetailShowCheckAppearance'
HeaderAppearanceClassName = 'TListHeaderObjects'
FooterAppearanceClassName = 'TListHeaderObjects'
Align = Client
Margins.Top = 4.000000000000000000
Size.Width = 572.000000000000000000
Size.Height = 228.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
OnKeyDown = ListView1KeyDown
OnDblClick = ListView1DblClick
end
object edGoToFilter: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = Top
TabOrder = 2
Position.Y = 16.000000000000000000
Size.Width = 572.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
OnTyping = edGoToFilterTyping
OnKeyDown = edGoToFilterKeyDown
end
end
object treeZipView: TTreeView
Align = Client
Size.Width = 672.000000000000000000
Size.Height = 443.000000000000000000
Size.PlatformDefault = False
TabOrder = 5
Visible = False
Viewport.Width = 668.000000000000000000
Viewport.Height = 439.000000000000000000
end
end