source: oup/current/Unit8_binedit.dfm@ 29

Last change on this file since 29 was 10, checked in by alloc, 18 years ago
  • Property svn:executable set to *
File size: 10.6 KB
Line 
1object Form8: TForm8
2 Left = 0
3 Top = 0
4 BorderIcons = [biSystemMenu, biMaximize]
5 Caption = 'Binary .dat-Editor'
6 ClientHeight = 555
7 ClientWidth = 642
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'Tahoma'
13 Font.Style = []
14 FormStyle = fsMDIChild
15 KeyPreview = True
16 OldCreateOrder = False
17 Visible = True
18 WindowState = wsMaximized
19 OnClose = FormClose
20 OnCloseQuery = FormCloseQuery
21 OnCreate = FormCreate
22 OnKeyUp = FormKeyUp
23 OnResize = FormResize
24 PixelsPerInch = 96
25 TextHeight = 13
26 object Splitter1: TSplitter
27 Left = 150
28 Top = 0
29 Width = 9
30 Height = 555
31 AutoSnap = False
32 Beveled = True
33 MinSize = 150
34 ExplicitHeight = 423
35 end
36 object panel_data: TPanel
37 Left = 159
38 Top = 0
39 Width = 483
40 Height = 555
41 Align = alClient
42 BevelOuter = bvNone
43 TabOrder = 0
44 object Splitter2: TSplitter
45 Left = 0
46 Top = 209
47 Width = 483
48 Height = 9
49 Cursor = crVSplit
50 Align = alTop
51 AutoSnap = False
52 Beveled = True
53 MinSize = 40
54 end
55 object Splitter3: TSplitter
56 Left = 0
57 Top = 450
58 Width = 483
59 Height = 8
60 Cursor = crVSplit
61 Align = alBottom
62 AutoSnap = False
63 Beveled = True
64 MinSize = 40
65 ExplicitTop = 375
66 end
67 object hex: TMPHexEditor
68 Left = 0
69 Top = 0
70 Width = 483
71 Height = 209
72 Cursor = crIBeam
73 Align = alTop
74 Font.Charset = DEFAULT_CHARSET
75 Font.Color = clWindowText
76 Font.Height = -16
77 Font.Name = 'Courier'
78 Font.Style = []
79 OnKeyUp = hexKeyUp
80 ParentFont = False
81 TabOrder = 0
82 BytesPerRow = 16
83 Translation = tkASCII
84 OffsetFormat = '6!10:0x|'
85 Colors.Background = clWindow
86 Colors.ChangedBackground = clWindow
87 Colors.ChangedText = clRed
88 Colors.CursorFrame = clNavy
89 Colors.Offset = clBlack
90 Colors.OddColumn = clBlue
91 Colors.EvenColumn = clNavy
92 Colors.CurrentOffsetBackground = clBtnShadow
93 Colors.OffsetBackGround = clBtnFace
94 Colors.CurrentOffset = clBtnHighlight
95 Colors.Grid = clBtnFace
96 Colors.NonFocusCursorFrame = clAqua
97 Colors.ActiveFieldBackground = clWindow
98 FocusFrame = True
99 NoSizeChange = True
100 AllowInsertMode = False
101 DrawGridLines = False
102 Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
103 OnChange = hexChange
104 ShowPositionIfNotFocused = True
105 OnSelectionChanged = hexSelectionChanged
106 end
107 object value_viewer: TWrapGrid
108 Left = 0
109 Top = 218
110 Width = 483
111 Height = 232
112 Align = alClient
113 ColCount = 1
114 DefaultColWidth = 80
115 DefaultRowHeight = 18
116 FixedCols = 0
117 RowCount = 8
118 FixedRows = 0
119 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
120 PopupMenu = value_viewer_context
121 TabOrder = 1
122 OnDblClick = value_viewerDblClick
123 OnMouseDown = value_viewerMouseDown
124 end
125 object VST: TVirtualStringTree
126 Left = 0
127 Top = 458
128 Width = 483
129 Height = 97
130 Align = alBottom
131 AnimationDuration = 0
132 AutoExpandDelay = 300
133 BiDiMode = bdLeftToRight
134 Colors.UnfocusedSelectionColor = clGradientActiveCaption
135 Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
136 Ctl3D = True
137 DragOperations = []
138 DrawSelectionMode = smBlendedRectangle
139 EditDelay = 200
140 Font.Charset = DEFAULT_CHARSET
141 Font.Color = clWindowText
142 Font.Height = -11
143 Font.Name = 'Tahoma'
144 Font.Style = []
145 Header.AutoSizeIndex = 0
146 Header.Font.Charset = DEFAULT_CHARSET
147 Header.Font.Color = clWindowText
148 Header.Font.Height = -11
149 Header.Font.Name = 'Tahoma'
150 Header.Font.Style = []
151 Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
152 Header.PopupMenu = VTHPopup
153 Header.Style = hsFlatButtons
154 HintAnimation = hatNone
155 HintMode = hmTooltip
156 Indent = 14
157 ParentBiDiMode = False
158 ParentCtl3D = False
159 ParentFont = False
160 ParentShowHint = False
161 ShowHint = True
162 TabOrder = 2
163 TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
164 TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
165 TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
166 OnDblClick = VSTDblClick
167 OnFocusChanged = VSTFocusChanged
168 OnGetText = VSTGetText
169 OnHeaderDragged = VSTHeaderDragged
170 Columns = <
171 item
172 MaxWidth = 300
173 MinWidth = 100
174 Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
175 Position = 0
176 Spacing = 20
177 Width = 150
178 WideText = 'Name'
179 WideHint = 'Name of the item.'
180 end
181 item
182 MaxWidth = 110
183 MinWidth = 80
184 Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
185 Position = 1
186 Spacing = 20
187 Width = 85
188 WideText = 'Offset'
189 WideHint = 'Offset of the data-item.'
190 end
191 item
192 MaxWidth = 110
193 MinWidth = 75
194 Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
195 Position = 2
196 Width = 75
197 WideText = 'Type'
198 WideHint = 'Data type of the item.'
199 end
200 item
201 MaxWidth = 250
202 MinWidth = 80
203 Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
204 Position = 3
205 Width = 100
206 WideText = 'Value'
207 WideHint = 'Value of the item.'
208 end
209 item
210 MaxWidth = 400
211 MinWidth = 80
212 Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
213 Position = 4
214 Width = 400
215 WideText = 'Description'
216 end>
217 WideDefaultText = ''
218 end
219 end
220 object panel_files: TPanel
221 Left = 0
222 Top = 0
223 Width = 150
224 Height = 555
225 Align = alLeft
226 BevelOuter = bvNone
227 TabOrder = 1
228 object Bevel1: TBevel
229 Left = 0
230 Top = 491
231 Width = 150
232 Height = 6
233 Align = alBottom
234 Style = bsRaised
235 ExplicitTop = 359
236 end
237 object list: TListBox
238 Left = 0
239 Top = 0
240 Width = 150
241 Height = 388
242 Align = alClient
243 ItemHeight = 13
244 TabOrder = 0
245 OnClick = listClick
246 end
247 object panel_extension: TPanel
248 Left = 0
249 Top = 388
250 Width = 150
251 Height = 103
252 Align = alBottom
253 BevelOuter = bvNone
254 TabOrder = 1
255 OnResize = panel_extensionResize
256 object lbl_filter: TLabel
257 Left = 2
258 Top = 62
259 Width = 100
260 Height = 17
261 AutoSize = False
262 Caption = 'Filter by &extension:'
263 FocusControl = combo_extension
264 end
265 object combo_extension: TComboBox
266 Left = 2
267 Top = 76
268 Width = 145
269 Height = 21
270 Style = csDropDownList
271 DropDownCount = 12
272 Font.Charset = DEFAULT_CHARSET
273 Font.Color = clWindowText
274 Font.Height = -11
275 Font.Name = 'Tahoma'
276 Font.Style = []
277 ItemHeight = 13
278 ParentFont = False
279 Sorted = True
280 TabOrder = 3
281 OnClick = combo_extensionClick
282 end
283 object check_zerobyte: TCheckBox
284 Left = 2
285 Top = 44
286 Width = 130
287 Height = 13
288 Caption = 'Show &zero-byte files'
289 TabOrder = 2
290 OnClick = check_zerobyteClick
291 end
292 object edit_filtername: TEdit
293 Left = 2
294 Top = 20
295 Width = 145
296 Height = 18
297 AutoSize = False
298 TabOrder = 1
299 end
300 object check_filtername: TCheckBox
301 Left = 2
302 Top = 5
303 Width = 130
304 Height = 15
305 Caption = 'Filter by file&name:'
306 TabOrder = 0
307 OnClick = check_filternameClick
308 end
309 end
310 object panel_imexport: TPanel
311 Left = 0
312 Top = 497
313 Width = 150
314 Height = 58
315 Align = alBottom
316 BevelOuter = bvNone
317 TabOrder = 2
318 OnResize = panel_imexportResize
319 object btn_export: TButton
320 Left = 4
321 Top = 4
322 Width = 142
323 Height = 25
324 Caption = 'Export to file...'
325 TabOrder = 0
326 OnClick = btn_exportClick
327 end
328 object btn_import: TButton
329 Left = 4
330 Top = 32
331 Width = 142
332 Height = 25
333 Caption = 'Import from file...'
334 TabOrder = 1
335 OnClick = btn_importClick
336 end
337 end
338 end
339 object opend: TOpenDialog
340 Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
341 Left = 120
342 Top = 392
343 end
344 object saved: TSaveDialog
345 Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
346 Left = 120
347 Top = 368
348 end
349 object value_viewer_context: TPopupMenu
350 AutoHotkeys = maManual
351 OnPopup = value_viewer_contextPopup
352 Left = 240
353 Top = 248
354 object value_viewer_context_copy: TMenuItem
355 Caption = 'Copy to &clipboard'
356 OnClick = value_viewer_context_copyClick
357 end
358 object value_viewer_context_copyasdec: TMenuItem
359 Caption = 'Copy to clipboard (as &dec)'
360 OnClick = value_viewer_context_copyClick
361 end
362 object value_viewer_context_copyasfloat: TMenuItem
363 Caption = 'Copy to clipboard (as &float)'
364 OnClick = value_viewer_context_copyClick
365 end
366 object value_viewer_context_copyasbitset: TMenuItem
367 Caption = 'Copy to clipboard (as &bitset)'
368 OnClick = value_viewer_context_copyClick
369 end
370 object value_viewer_context_copyasstring: TMenuItem
371 Caption = 'Copy to clipboard (as &string)'
372 OnClick = value_viewer_context_copyClick
373 end
374 object value_viewer_context_copyashex: TMenuItem
375 Caption = 'Copy to clipboard (as &hex)'
376 OnClick = value_viewer_context_copyClick
377 end
378 end
379 object VTHPopup: TVTHeaderPopupMenu
380 OnColumnChange = VTHPopupColumnChange
381 Left = 200
382 Top = 496
383 end
384end
Note: See TracBrowser for help on using the repository browser.