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

Comparing oup/current/Tools/BinEdit.dfm (file contents):
Revision 179 by alloc, Sun May 13 22:18:18 2007 UTC vs.
Revision 218 by alloc, Fri Jun 15 22:12:39 2007 UTC

# Line 1 | Line 1
1   inherited Form_BinEdit: TForm_BinEdit
2 <  Caption = 'BinEdit'
3 <  KeyPreview = True
2 >  Caption = 'Form_BinEdit'
3    OnCloseQuery = FormCloseQuery
4    OnCreate = FormCreate
5    OnKeyUp = FormKeyUp
7  ExplicitWidth = 500
8  ExplicitHeight = 450
6    PixelsPerInch = 96
7    TextHeight = 13
8 <  inherited panel_files: TPanel
9 <    inherited filelist: TListBox
10 <      Height = 210
11 <    end
12 <    object panel_imexport: TPanel
13 <      Left = 0
14 <      Top = 363
15 <      Width = 200
16 <      Height = 60
17 <      Align = alBottom
18 <      BevelOuter = bvNone
19 <      TabOrder = 2
20 <      DesignSize = (
21 <        200
22 <        60)
23 <      object btn_export: TButton
24 <        Left = 4
25 <        Top = 4
26 <        Width = 190
27 <        Height = 25
28 <        Anchors = [akLeft, akTop, akRight]
29 <        Caption = 'Export to file...'
8 >  inherited panel_basecontent: TPanel
9 >    inherited panel_files: TPanel
10 >      ExplicitHeight = 532
11 >      inherited filelist: TListBox
12 >        Height = 347
13 >        OnClick = nil
14 >        OnMouseDown = nil
15 >        ExplicitTop = 125
16 >        ExplicitHeight = 407
17 >      end
18 >      inherited panel_extension: TPanel
19 >        inherited btn_sort_id_asc: TSpeedButton
20 >          OnClick = nil
21 >        end
22 >        inherited btn_sort_id_desc: TSpeedButton
23 >          OnClick = nil
24 >        end
25 >        inherited btn_sort_name_asc: TSpeedButton
26 >          OnClick = nil
27 >        end
28 >        inherited btn_sort_name_desc: TSpeedButton
29 >          OnClick = nil
30 >        end
31 >        inherited btn_sort_ext_asc: TSpeedButton
32 >          OnClick = nil
33 >        end
34 >        inherited btn_sort_ext_desc: TSpeedButton
35 >          OnClick = nil
36 >        end
37 >        inherited combo_extension: TComboBox
38 >          OnClick = nil
39 >        end
40 >        inherited check_zerobyte: TCheckBox
41 >          OnClick = nil
42 >        end
43 >        inherited check_filtername: TCheckBox
44 >          OnClick = nil
45 >        end
46 >      end
47 >      object panel_imexport: TPanel
48 >        Left = 0
49 >        Top = 472
50 >        Width = 200
51 >        Height = 60
52 >        Align = alBottom
53 >        BevelOuter = bvNone
54 >        TabOrder = 2
55 >        ExplicitTop = 363
56 >        DesignSize = (
57 >          200
58 >          60)
59 >        object btn_export: TButton
60 >          Left = 4
61 >          Top = 4
62 >          Width = 190
63 >          Height = 25
64 >          Anchors = [akLeft, akTop, akRight]
65 >          Caption = 'Export to file...'
66 >          TabOrder = 0
67 >        end
68 >        object btn_import: TButton
69 >          Left = 4
70 >          Top = 32
71 >          Width = 190
72 >          Height = 25
73 >          Anchors = [akLeft, akTop, akRight]
74 >          Caption = 'Import from file...'
75 >          TabOrder = 1
76 >        end
77 >      end
78 >    end
79 >    inherited panel_content: TPanel
80 >      ExplicitTop = 0
81 >      ExplicitWidth = 390
82 >      ExplicitHeight = 532
83 >      object Splitter2: TSplitter
84 >        Left = 0
85 >        Top = 209
86 >        Width = 390
87 >        Height = 8
88 >        Cursor = crVSplit
89 >        Align = alTop
90 >        AutoSnap = False
91 >        Beveled = True
92 >        MinSize = 40
93 >      end
94 >      object Splitter3: TSplitter
95 >        Left = 0
96 >        Top = 435
97 >        Width = 390
98 >        Height = 0
99 >        Cursor = crVSplit
100 >        Align = alBottom
101 >        AutoSnap = False
102 >        Beveled = True
103 >        MinSize = 40
104 >        ExplicitLeft = 32
105 >        ExplicitTop = 447
106 >      end
107 >      object hex: TMPHexEditor
108 >        Left = 0
109 >        Top = 0
110 >        Width = 390
111 >        Height = 209
112 >        Cursor = crIBeam
113 >        Align = alTop
114 >        Font.Charset = DEFAULT_CHARSET
115 >        Font.Color = clWindowText
116 >        Font.Height = -16
117 >        Font.Name = 'Courier'
118 >        Font.Style = []
119 >        OnKeyUp = hexKeyUp
120 >        ParentFont = False
121          TabOrder = 0
122 <        OnClick = popup_exportClick
122 >        BytesPerRow = 16
123 >        Translation = tkASCII
124 >        OffsetFormat = '6!10:0x|'
125 >        Colors.Background = clWindow
126 >        Colors.ChangedBackground = clWindow
127 >        Colors.ChangedText = clRed
128 >        Colors.CursorFrame = clNavy
129 >        Colors.Offset = clBlack
130 >        Colors.OddColumn = clBlue
131 >        Colors.EvenColumn = clNavy
132 >        Colors.CurrentOffsetBackground = clBtnShadow
133 >        Colors.OffsetBackGround = clBtnFace
134 >        Colors.CurrentOffset = clBtnHighlight
135 >        Colors.Grid = clBtnFace
136 >        Colors.NonFocusCursorFrame = clAqua
137 >        Colors.ActiveFieldBackground = clWindow
138 >        FocusFrame = True
139 >        NoSizeChange = True
140 >        AllowInsertMode = False
141 >        DrawGridLines = False
142 >        Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
143 >        OnChange = hexChange
144 >        ShowPositionIfNotFocused = True
145 >        OnSelectionChanged = hexSelectionChanged
146 >        ExplicitLeft = 32
147 >        ExplicitTop = 12
148        end
149 <      object btn_import: TButton
150 <        Left = 4
151 <        Top = 32
152 <        Width = 190
153 <        Height = 25
154 <        Anchors = [akLeft, akTop, akRight]
155 <        Caption = 'Import from file...'
149 >      object value_viewer: TWrapGrid
150 >        Left = 0
151 >        Top = 217
152 >        Width = 390
153 >        Height = 218
154 >        Align = alClient
155 >        ColCount = 1
156 >        DefaultColWidth = 80
157 >        DefaultRowHeight = 18
158 >        FixedCols = 0
159 >        RowCount = 8
160 >        FixedRows = 0
161 >        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
162 >        ScrollBars = ssVertical
163          TabOrder = 1
164 <        OnClick = popup_importClick
164 >        OnDblClick = value_viewerDblClick
165 >        OnMouseDown = value_viewerMouseDown
166 >        ExplicitLeft = 32
167 >        ExplicitTop = 544
168 >        ExplicitHeight = 0
169 >      end
170 >      object VST: TVirtualStringTree
171 >        Left = 0
172 >        Top = 435
173 >        Width = 390
174 >        Height = 97
175 >        Align = alBottom
176 >        AnimationDuration = 0
177 >        AutoExpandDelay = 300
178 >        BiDiMode = bdLeftToRight
179 >        Colors.UnfocusedSelectionColor = clGradientActiveCaption
180 >        Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
181 >        Ctl3D = True
182 >        DragOperations = []
183 >        DrawSelectionMode = smBlendedRectangle
184 >        EditDelay = 200
185 >        Font.Charset = DEFAULT_CHARSET
186 >        Font.Color = clWindowText
187 >        Font.Height = -11
188 >        Font.Name = 'Tahoma'
189 >        Font.Style = []
190 >        Header.AutoSizeIndex = 0
191 >        Header.Font.Charset = DEFAULT_CHARSET
192 >        Header.Font.Color = clWindowText
193 >        Header.Font.Height = -11
194 >        Header.Font.Name = 'Tahoma'
195 >        Header.Font.Style = []
196 >        Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
197 >        Header.Style = hsFlatButtons
198 >        HintAnimation = hatNone
199 >        HintMode = hmTooltip
200 >        Indent = 14
201 >        ParentBiDiMode = False
202 >        ParentCtl3D = False
203 >        ParentFont = False
204 >        ParentShowHint = False
205 >        ShowHint = True
206 >        TabOrder = 2
207 >        TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
208 >        TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
209 >        TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
210 >        OnDblClick = VSTDblClick
211 >        OnFocusChanged = VSTFocusChanged
212 >        OnGetText = VSTGetText
213 >        OnHeaderDragged = VSTHeaderDragged
214 >        ExplicitLeft = 32
215 >        ExplicitTop = 447
216 >        Columns = <
217 >          item
218 >            MaxWidth = 300
219 >            MinWidth = 100
220 >            Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
221 >            Position = 0
222 >            Spacing = 20
223 >            Width = 150
224 >            WideText = 'Name'
225 >            WideHint = 'Name of the item.'
226 >          end
227 >          item
228 >            MaxWidth = 110
229 >            MinWidth = 80
230 >            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
231 >            Position = 1
232 >            Spacing = 20
233 >            Width = 85
234 >            WideText = 'Offset'
235 >            WideHint = 'Offset of the data-item.'
236 >          end
237 >          item
238 >            MaxWidth = 110
239 >            MinWidth = 75
240 >            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
241 >            Position = 2
242 >            Width = 75
243 >            WideText = 'Type'
244 >            WideHint = 'Data type of the item.'
245 >          end
246 >          item
247 >            MaxWidth = 250
248 >            MinWidth = 80
249 >            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
250 >            Position = 3
251 >            Width = 100
252 >            WideText = 'Value'
253 >            WideHint = 'Value of the item.'
254 >          end
255 >          item
256 >            MaxWidth = 400
257 >            MinWidth = 80
258 >            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
259 >            Position = 4
260 >            Width = 400
261 >            WideText = 'Description'
262 >          end>
263 >        WideDefaultText = ''
264        end
265      end
266    end
267 <  inherited content: TPanel
268 <    object Splitter2: TSplitter
269 <      Left = 0
270 <      Top = 209
271 <      Width = 283
272 <      Height = 9
273 <      Cursor = crVSplit
55 <      Align = alTop
56 <      AutoSnap = False
57 <      Beveled = True
58 <      MinSize = 40
59 <      ExplicitWidth = 425
60 <    end
61 <    object Splitter3: TSplitter
62 <      Left = 0
63 <      Top = 318
64 <      Width = 283
65 <      Height = 8
66 <      Cursor = crVSplit
67 <      Align = alBottom
68 <      AutoSnap = False
69 <      Beveled = True
70 <      MinSize = 40
71 <      ExplicitLeft = -9
72 <      ExplicitTop = 430
73 <      ExplicitWidth = 425
74 <    end
75 <    object hex: TMPHexEditor
76 <      Left = 0
77 <      Top = 0
78 <      Width = 283
79 <      Height = 209
80 <      Cursor = crIBeam
81 <      Align = alTop
82 <      Font.Charset = DEFAULT_CHARSET
83 <      Font.Color = clWindowText
84 <      Font.Height = -16
85 <      Font.Name = 'Courier'
86 <      Font.Style = []
87 <      OnKeyUp = hexKeyUp
88 <      ParentFont = False
89 <      TabOrder = 0
90 <      BytesPerRow = 16
91 <      Translation = tkASCII
92 <      OffsetFormat = '6!10:0x|'
93 <      Colors.Background = clWindow
94 <      Colors.ChangedBackground = clWindow
95 <      Colors.ChangedText = clRed
96 <      Colors.CursorFrame = clNavy
97 <      Colors.Offset = clBlack
98 <      Colors.OddColumn = clBlue
99 <      Colors.EvenColumn = clNavy
100 <      Colors.CurrentOffsetBackground = clBtnShadow
101 <      Colors.OffsetBackGround = clBtnFace
102 <      Colors.CurrentOffset = clBtnHighlight
103 <      Colors.Grid = clBtnFace
104 <      Colors.NonFocusCursorFrame = clAqua
105 <      Colors.ActiveFieldBackground = clWindow
106 <      FocusFrame = True
107 <      NoSizeChange = True
108 <      AllowInsertMode = False
109 <      DrawGridLines = False
110 <      Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
111 <      OnChange = hexChange
112 <      ShowPositionIfNotFocused = True
113 <      OnSelectionChanged = hexSelectionChanged
114 <    end
115 <    object value_viewer: TWrapGrid
116 <      Left = 0
117 <      Top = 218
118 <      Width = 283
119 <      Height = 100
120 <      Align = alClient
121 <      ColCount = 1
122 <      DefaultColWidth = 80
123 <      DefaultRowHeight = 18
124 <      FixedCols = 0
125 <      RowCount = 8
126 <      FixedRows = 0
127 <      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
128 <      PopupMenu = value_viewer_context
129 <      ScrollBars = ssVertical
130 <      TabOrder = 1
131 <      OnDblClick = value_viewerDblClick
132 <      OnMouseDown = value_viewerMouseDown
133 <    end
134 <    object VST: TVirtualStringTree
135 <      Left = 0
136 <      Top = 326
137 <      Width = 283
138 <      Height = 97
139 <      Align = alBottom
140 <      AnimationDuration = 0
141 <      AutoExpandDelay = 300
142 <      BiDiMode = bdLeftToRight
143 <      Colors.UnfocusedSelectionColor = clGradientActiveCaption
144 <      Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
145 <      Ctl3D = True
146 <      DragOperations = []
147 <      DrawSelectionMode = smBlendedRectangle
148 <      EditDelay = 200
149 <      Font.Charset = DEFAULT_CHARSET
150 <      Font.Color = clWindowText
151 <      Font.Height = -11
152 <      Font.Name = 'Tahoma'
153 <      Font.Style = []
154 <      Header.AutoSizeIndex = 0
155 <      Header.Font.Charset = DEFAULT_CHARSET
156 <      Header.Font.Color = clWindowText
157 <      Header.Font.Height = -11
158 <      Header.Font.Name = 'Tahoma'
159 <      Header.Font.Style = []
160 <      Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
161 <      Header.PopupMenu = VTHPopup
162 <      Header.Style = hsFlatButtons
163 <      HintAnimation = hatNone
164 <      HintMode = hmTooltip
165 <      Indent = 14
166 <      ParentBiDiMode = False
167 <      ParentCtl3D = False
168 <      ParentFont = False
169 <      ParentShowHint = False
170 <      ShowHint = True
171 <      TabOrder = 2
172 <      TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
173 <      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
174 <      TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
175 <      OnDblClick = VSTDblClick
176 <      OnFocusChanged = VSTFocusChanged
177 <      OnGetText = VSTGetText
178 <      OnHeaderDragged = VSTHeaderDragged
179 <      Columns = <
180 <        item
181 <          MaxWidth = 300
182 <          MinWidth = 100
183 <          Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
184 <          Position = 0
185 <          Spacing = 20
186 <          Width = 150
187 <          WideText = 'Name'
188 <          WideHint = 'Name of the item.'
189 <        end
190 <        item
191 <          MaxWidth = 110
192 <          MinWidth = 80
193 <          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
194 <          Position = 1
195 <          Spacing = 20
196 <          Width = 85
197 <          WideText = 'Offset'
198 <          WideHint = 'Offset of the data-item.'
199 <        end
200 <        item
201 <          MaxWidth = 110
202 <          MinWidth = 75
203 <          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
204 <          Position = 2
205 <          Width = 75
206 <          WideText = 'Type'
207 <          WideHint = 'Data type of the item.'
208 <        end
209 <        item
210 <          MaxWidth = 250
211 <          MinWidth = 80
212 <          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
213 <          Position = 3
214 <          Width = 100
215 <          WideText = 'Value'
216 <          WideHint = 'Value of the item.'
217 <        end
218 <        item
219 <          MaxWidth = 400
220 <          MinWidth = 80
221 <          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
222 <          Position = 4
223 <          Width = 400
224 <          WideText = 'Description'
225 <        end>
226 <      WideDefaultText = ''
267 >  inherited filepopup: TPopupMenu
268 >    OnPopup = nil
269 >    inherited popup_linkshere: TMenuItem
270 >      OnClick = nil
271 >    end
272 >    inherited popup_import: TMenuItem
273 >      OnClick = nil
274      end
275 +    inherited popup_export: TMenuItem
276 +      OnClick = nil
277 +    end
278 +  end
279 +  object VTHPopup: TVTHeaderPopupMenu
280 +    OnColumnChange = VTHPopupColumnChange
281 +    Left = 272
282 +    Top = 376
283    end
284 <  object value_viewer_context: TPopupMenu [3]
284 >  object value_viewer_context: TPopupMenu
285      AutoHotkeys = maManual
286      AutoLineReduction = maManual
287      OnPopup = value_viewer_contextPopup
# Line 238 | Line 293 | inherited Form_BinEdit: TForm_BinEdit
293      end
294      object value_viewer_context_copyasdec: TMenuItem
295        Caption = 'Copy to clipboard (as &dec)'
241      OnClick = value_viewer_context_copyClick
296      end
297      object value_viewer_context_copyasfloat: TMenuItem
298        Caption = 'Copy to clipboard (as &float)'
245      OnClick = value_viewer_context_copyClick
299      end
300      object value_viewer_context_copyasbitset: TMenuItem
301        Caption = 'Copy to clipboard (as &bitset)'
249      OnClick = value_viewer_context_copyClick
302      end
303      object value_viewer_context_copyasstring: TMenuItem
304        Caption = 'Copy to clipboard (as &string)'
253      OnClick = value_viewer_context_copyClick
305      end
306      object value_viewer_context_copyashex: TMenuItem
307        Caption = 'Copy to clipboard (as &hex)'
257      OnClick = value_viewer_context_copyClick
308      end
309    end
260  object VTHPopup: TVTHeaderPopupMenu [4]
261    OnColumnChange = VTHPopupColumnChange
262    Left = 272
263    Top = 376
264  end
310   end

Diff Legend

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