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

Diff Legend

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