ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/MetaEditor.dfm
(Generate patch)

Comparing oup/current/Tools/MetaEditor.dfm (file contents):
Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

# Line 1 | Line 1
1   inherited Form_Meta: TForm_Meta
2    Caption = 'Form_Meta'
3 +  ClientHeight = 449
4    OnCreate = FormCreate
5 +  ExplicitWidth = 606
6 +  ExplicitHeight = 476
7    PixelsPerInch = 96
8    TextHeight = 13
9    inherited panel_basecontent: TPanel
10 +    Height = 424
11      ExplicitLeft = 0
12      ExplicitTop = 25
13      ExplicitWidth = 598
14 <    ExplicitHeight = 532
14 >    ExplicitHeight = 424
15      object splitter: TSplitter
16 <      Left = 502
16 >      Left = 190
17        Top = 0
18        Width = 8
19 <      Height = 532
19 >      Height = 424
20        Align = alRight
21        AutoSnap = False
22        Beveled = True
23        MinSize = 200
24 <      ExplicitLeft = 353
24 >      ExplicitLeft = 287
25 >      ExplicitTop = 16
26 >      ExplicitHeight = 532
27      end
28      object VST: TVirtualStringTree
29        Left = 0
30        Top = 0
31 <      Width = 502
32 <      Height = 532
31 >      Width = 190
32 >      Height = 424
33        Align = alClient
34        AnimationDuration = 0
35        Header.AutoSizeIndex = 0
# Line 33 | Line 39 | inherited Form_Meta: TForm_Meta
39        Header.Font.Name = 'Tahoma'
40        Header.Font.Style = []
41        Header.Options = [hoColumnResize, hoDrag, hoVisible]
42 +      HintAnimation = hatNone
43 +      HintMode = hmHint
44 +      ParentShowHint = False
45 +      ShowHint = True
46        TabOrder = 0
47        TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoDeleteMovedNodes]
48        TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
# Line 40 | Line 50 | inherited Form_Meta: TForm_Meta
50        OnFocusChanging = VSTFocusChanging
51        OnGetText = VSTGetText
52        OnPaintText = VSTPaintText
53 +      OnGetHint = VSTGetHint
54 +      OnGetPopupMenu = VSTGetPopupMenu
55        OnInitChildren = VSTInitChildren
56        Columns = <
57          item
58            Position = 0
59            Width = 250
60 <          WideText = 'FName'
60 >          WideText = 'Name'
61          end
62          item
63            Position = 1
64 <          WideText = 'FType'
64 >          Width = 100
65 >          WideText = 'Type'
66          end
67          item
68            Position = 2
69 <          WideText = 'FID'
70 <        end
58 <        item
59 <          Position = 3
60 <          WideText = 'Data'
69 >          Width = 150
70 >          WideText = 'Value'
71          end>
72      end
73 <    object Panel2: TPanel
74 <      Left = 510
73 >    object rightPages: TPageControl
74 >      Left = 198
75        Top = 0
76 <      Width = 88
77 <      Height = 532
76 >      Width = 400
77 >      Height = 424
78 >      ActivePage = tab_meta
79        Align = alRight
69      BevelOuter = bvNone
70      Caption = 'Panel2'
80        TabOrder = 1
81 +      object tab_meta: TTabSheet
82 +        Caption = 'Meta Edit'
83 +        ImageIndex = 1
84 +        ExplicitLeft = 0
85 +        ExplicitTop = 0
86 +        ExplicitWidth = 0
87 +        ExplicitHeight = 0
88 +      end
89 +      object tab_hex: TTabSheet
90 +        Caption = 'Binary Edit'
91 +        ExplicitLeft = 0
92 +        ExplicitTop = 0
93 +        ExplicitWidth = 0
94 +        ExplicitHeight = 0
95 +        object splitter_hex_1: TSplitter
96 +          Left = 0
97 +          Top = 100
98 +          Width = 392
99 +          Height = 8
100 +          Cursor = crVSplit
101 +          Align = alTop
102 +          AutoSnap = False
103 +          Beveled = True
104 +          MinSize = 40
105 +          ExplicitTop = 209
106 +          ExplicitWidth = 192
107 +        end
108 +        object splitter_hex_2: TSplitter
109 +          Left = 0
110 +          Top = 256
111 +          Width = 392
112 +          Height = 8
113 +          Cursor = crVSplit
114 +          Align = alBottom
115 +          AutoSnap = False
116 +          Beveled = True
117 +          MinSize = 40
118 +          ExplicitTop = 300
119 +          ExplicitWidth = 192
120 +        end
121 +        object panel_hex_actions: TPanel
122 +          Left = 0
123 +          Top = 361
124 +          Width = 392
125 +          Height = 35
126 +          Align = alBottom
127 +          BevelOuter = bvNone
128 +          Caption = 'panel_hex_actions'
129 +          TabOrder = 0
130 +          object btn_export: TButton
131 +            Left = 2
132 +            Top = 6
133 +            Width = 117
134 +            Height = 25
135 +            Caption = 'Export to file...'
136 +            TabOrder = 0
137 +          end
138 +          object btn_import: TButton
139 +            Left = 125
140 +            Top = 6
141 +            Width = 117
142 +            Height = 25
143 +            Caption = 'Import from file...'
144 +            TabOrder = 1
145 +          end
146 +        end
147 +        object hex: TMPHexEditor
148 +          Left = 0
149 +          Top = 0
150 +          Width = 392
151 +          Height = 100
152 +          Cursor = crIBeam
153 +          Align = alTop
154 +          Font.Charset = DEFAULT_CHARSET
155 +          Font.Color = clWindowText
156 +          Font.Height = -16
157 +          Font.Name = 'Courier'
158 +          Font.Style = []
159 +          ParentFont = False
160 +          TabOrder = 1
161 +          BytesPerRow = 16
162 +          Translation = tkASCII
163 +          OffsetFormat = '6!10:0x|'
164 +          Colors.Background = clWindow
165 +          Colors.ChangedBackground = clWindow
166 +          Colors.ChangedText = clRed
167 +          Colors.CursorFrame = clNavy
168 +          Colors.Offset = clBlack
169 +          Colors.OddColumn = clBlue
170 +          Colors.EvenColumn = clNavy
171 +          Colors.CurrentOffsetBackground = clBtnShadow
172 +          Colors.OffsetBackground = clBtnFace
173 +          Colors.CurrentOffset = clBtnHighlight
174 +          Colors.Grid = clBtnFace
175 +          Colors.NonFocusCursorFrame = clAqua
176 +          Colors.ActiveFieldBackground = clWindow
177 +          FocusFrame = True
178 +          NoSizeChange = True
179 +          AllowInsertMode = False
180 +          DrawGridLines = False
181 +          Version = 'september 30, 2007; '#169' markus stephany, vcl[at]mirkes[dot]de'
182 +          ShowPositionIfNotFocused = True
183 +        end
184 +        object value_viewer: TWrapGrid
185 +          Left = 0
186 +          Top = 108
187 +          Width = 392
188 +          Height = 148
189 +          Align = alClient
190 +          ColCount = 1
191 +          DefaultColWidth = 80
192 +          DefaultRowHeight = 18
193 +          FixedCols = 0
194 +          RowCount = 8
195 +          FixedRows = 0
196 +          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
197 +          ScrollBars = ssVertical
198 +          TabOrder = 2
199 +        end
200 +        object structviewer: TVirtualStringTree
201 +          Left = 0
202 +          Top = 264
203 +          Width = 392
204 +          Height = 97
205 +          Align = alBottom
206 +          AnimationDuration = 0
207 +          AutoExpandDelay = 300
208 +          BiDiMode = bdLeftToRight
209 +          Colors.UnfocusedSelectionColor = clGradientActiveCaption
210 +          Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
211 +          Ctl3D = True
212 +          DragOperations = []
213 +          DrawSelectionMode = smBlendedRectangle
214 +          EditDelay = 200
215 +          Font.Charset = DEFAULT_CHARSET
216 +          Font.Color = clWindowText
217 +          Font.Height = -11
218 +          Font.Name = 'Tahoma'
219 +          Font.Style = []
220 +          Header.AutoSizeIndex = 0
221 +          Header.Font.Charset = DEFAULT_CHARSET
222 +          Header.Font.Color = clWindowText
223 +          Header.Font.Height = -11
224 +          Header.Font.Name = 'Tahoma'
225 +          Header.Font.Style = []
226 +          Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
227 +          Header.Style = hsFlatButtons
228 +          HintAnimation = hatNone
229 +          HintMode = hmTooltip
230 +          Indent = 14
231 +          ParentBiDiMode = False
232 +          ParentCtl3D = False
233 +          ParentFont = False
234 +          ParentShowHint = False
235 +          ShowHint = True
236 +          TabOrder = 3
237 +          TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
238 +          TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
239 +          TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
240 +          OnFocusChanged = VSTFocusChanged
241 +          OnGetText = VSTGetText
242 +          Columns = <
243 +            item
244 +              MaxWidth = 300
245 +              MinWidth = 100
246 +              Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
247 +              Position = 0
248 +              Spacing = 20
249 +              Width = 150
250 +              WideText = 'Name'
251 +              WideHint = 'Name of the item.'
252 +            end
253 +            item
254 +              MaxWidth = 110
255 +              MinWidth = 80
256 +              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
257 +              Position = 1
258 +              Spacing = 20
259 +              Width = 85
260 +              WideText = 'Offset'
261 +              WideHint = 'Offset of the data-item.'
262 +            end
263 +            item
264 +              MaxWidth = 110
265 +              MinWidth = 75
266 +              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
267 +              Position = 2
268 +              Width = 75
269 +              WideText = 'Type'
270 +              WideHint = 'Data type of the item.'
271 +            end
272 +            item
273 +              MaxWidth = 250
274 +              MinWidth = 80
275 +              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
276 +              Position = 3
277 +              Width = 100
278 +              WideText = 'Value'
279 +              WideHint = 'Value of the item.'
280 +            end
281 +            item
282 +              MaxWidth = 400
283 +              MinWidth = 80
284 +              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
285 +              Position = 4
286 +              Width = 400
287 +              WideText = 'Description'
288 +            end>
289 +          WideDefaultText = ''
290 +        end
291 +      end
292 +    end
293 +  end
294 +  object value_viewer_context: TPopupMenu
295 +    AutoHotkeys = maManual
296 +    AutoLineReduction = maManual
297 +    Left = 300
298 +    Top = 196
299 +    object value_viewer_context_copy: TMenuItem
300 +      Caption = 'Copy to &clipboard'
301 +    end
302 +    object value_viewer_context_copyasdec: TMenuItem
303 +      Caption = 'Copy to clipboard (as &dec)'
304 +    end
305 +    object value_viewer_context_copyasfloat: TMenuItem
306 +      Caption = 'Copy to clipboard (as &float)'
307 +    end
308 +    object value_viewer_context_copyasbitset: TMenuItem
309 +      Caption = 'Copy to clipboard (as &bitset)'
310 +    end
311 +    object value_viewer_context_copyasstring: TMenuItem
312 +      Caption = 'Copy to clipboard (as &string)'
313 +    end
314 +    object value_viewer_context_copyashex: TMenuItem
315 +      Caption = 'Copy to clipboard (as &hex)'
316 +    end
317 +  end
318 +  object VTHPopup: TVTHeaderPopupMenu
319 +    Left = 292
320 +    Top = 340
321 +  end
322 +  object vst_popup: TPopupMenu
323 +    AutoHotkeys = maManual
324 +    Left = 80
325 +    Top = 204
326 +    object vst_newRoot: TMenuItem
327 +      Caption = 'Set as root element in new window'
328 +      OnClick = vst_newRootClick
329 +    end
330 +    object vst_setRoot: TMenuItem
331 +      Caption = 'Set as root element here'
332 +      OnClick = vst_setRootClick
333      end
334    end
335   end

Diff Legend

Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)