| 1 | object Form8: TForm8 | 
 
 
 
 
 | 2 | Left = 0 | 
 
 
 
 
 | 3 | Top = 0 | 
 
 
 
 
 | 4 | BorderIcons = [biSystemMenu, biMaximize] | 
 
 
 
 
 | 5 | Caption = 'Binary .dat-Editor' | 
 
 
 
 
 | 6 | ClientHeight = 423 | 
 
 
 
 
 | 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 | OnActivate = FormActivate | 
 
 
 
 
 | 20 | OnClose = FormClose | 
 
 
 
 
 | 21 | OnCloseQuery = FormCloseQuery | 
 
 
 
 
 | 22 | OnCreate = FormCreate | 
 
 
 
 
 | 23 | OnKeyUp = FormKeyUp | 
 
 
 
 
 | 24 | OnResize = FormResize | 
 
 
 
 
 | 25 | PixelsPerInch = 96 | 
 
 
 
 
 | 26 | TextHeight = 13 | 
 
 
 
 
 | 27 | object Splitter1: TSplitter | 
 
 
 
 
 | 28 | Left = 150 | 
 
 
 
 
 | 29 | Top = 0 | 
 
 
 
 
 | 30 | Width = 9 | 
 
 
 
 
 | 31 | Height = 423 | 
 
 
 
 
 | 32 | AutoSnap = False | 
 
 
 
 
 | 33 | Beveled = True | 
 
 
 
 
 | 34 | MinSize = 150 | 
 
 
 
 
 | 35 | end | 
 
 
 
 
 | 36 | object panel_data: TPanel | 
 
 
 
 
 | 37 | Left = 159 | 
 
 
 
 
 | 38 | Top = 0 | 
 
 
 
 
 | 39 | Width = 483 | 
 
 
 
 
 | 40 | Height = 423 | 
 
 
 
 
 | 41 | Align = alClient | 
 
 
 
 
 | 42 | BevelOuter = bvNone | 
 
 
 
 
 | 43 | TabOrder = 0 | 
 
 
 
 
 | 44 | OnResize = panel_dataResize | 
 
 
 
 
 | 45 | object Splitter2: TSplitter | 
 
 
 
 
 | 46 | Left = 0 | 
 
 
 
 
 | 47 | Top = 209 | 
 
 
 
 
 | 48 | Width = 483 | 
 
 
 
 
 | 49 | Height = 9 | 
 
 
 
 
 | 50 | Cursor = crVSplit | 
 
 
 
 
 | 51 | Align = alTop | 
 
 
 
 
 | 52 | AutoSnap = False | 
 
 
 
 
 | 53 | Beveled = True | 
 
 
 
 
 | 54 | MinSize = 40 | 
 
 
 
 
 | 55 | end | 
 
 
 
 
 | 56 | object Splitter3: TSplitter | 
 
 
 
 
 | 57 | Left = 0 | 
 
 
 
 
 | 58 | Top = 375 | 
 
 
 
 
 | 59 | Width = 483 | 
 
 
 
 
 | 60 | Height = 8 | 
 
 
 
 
 | 61 | Cursor = crVSplit | 
 
 
 
 
 | 62 | Align = alBottom | 
 
 
 
 
 | 63 | AutoSnap = False | 
 
 
 
 
 | 64 | Beveled = True | 
 
 
 
 
 | 65 | MinSize = 40 | 
 
 
 
 
 | 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 structs: TWrapGrid | 
 
 
 
 
 | 108 | Left = 0 | 
 
 
 
 
 | 109 | Top = 383 | 
 
 
 
 
 | 110 | Width = 483 | 
 
 
 
 
 | 111 | Height = 40 | 
 
 
 
 
 | 112 | Align = alBottom | 
 
 
 
 
 | 113 | ColCount = 1 | 
 
 
 
 
 | 114 | DefaultColWidth = 80 | 
 
 
 
 
 | 115 | DefaultRowHeight = 18 | 
 
 
 
 
 | 116 | Enabled = False | 
 
 
 
 
 | 117 | FixedCols = 0 | 
 
 
 
 
 | 118 | RowCount = 1 | 
 
 
 
 
 | 119 | FixedRows = 0 | 
 
 
 
 
 | 120 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing] | 
 
 
 
 
 | 121 | TabOrder = 1 | 
 
 
 
 
 | 122 | OnClick = structsClick | 
 
 
 
 
 | 123 | OnDblClick = structsDblClick | 
 
 
 
 
 | 124 | end | 
 
 
 
 
 | 125 | object value_viewer: TWrapGrid | 
 
 
 
 
 | 126 | Left = 0 | 
 
 
 
 
 | 127 | Top = 218 | 
 
 
 
 
 | 128 | Width = 483 | 
 
 
 
 
 | 129 | Height = 157 | 
 
 
 
 
 | 130 | Align = alClient | 
 
 
 
 
 | 131 | ColCount = 1 | 
 
 
 
 
 | 132 | DefaultColWidth = 80 | 
 
 
 
 
 | 133 | DefaultRowHeight = 18 | 
 
 
 
 
 | 134 | FixedCols = 0 | 
 
 
 
 
 | 135 | RowCount = 8 | 
 
 
 
 
 | 136 | FixedRows = 0 | 
 
 
 
 
 | 137 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing] | 
 
 
 
 
 | 138 | PopupMenu = value_viewer_context | 
 
 
 
 
 | 139 | TabOrder = 2 | 
 
 
 
 
 | 140 | OnDblClick = value_viewerDblClick | 
 
 
 
 
 | 141 | OnMouseDown = value_viewerMouseDown | 
 
 
 
 
 | 142 | end | 
 
 
 
 
 | 143 | end | 
 
 
 
 
 | 144 | object panel_files: TPanel | 
 
 
 
 
 | 145 | Left = 0 | 
 
 
 
 
 | 146 | Top = 0 | 
 
 
 
 
 | 147 | Width = 150 | 
 
 
 
 
 | 148 | Height = 423 | 
 
 
 
 
 | 149 | Align = alLeft | 
 
 
 
 
 | 150 | BevelOuter = bvNone | 
 
 
 
 
 | 151 | TabOrder = 1 | 
 
 
 
 
 | 152 | object Bevel1: TBevel | 
 
 
 
 
 | 153 | Left = 0 | 
 
 
 
 
 | 154 | Top = 359 | 
 
 
 
 
 | 155 | Width = 150 | 
 
 
 
 
 | 156 | Height = 6 | 
 
 
 
 
 | 157 | Align = alBottom | 
 
 
 
 
 | 158 | Style = bsRaised | 
 
 
 
 
 | 159 | end | 
 
 
 
 
 | 160 | object list: TListBox | 
 
 
 
 
 | 161 | Left = 0 | 
 
 
 
 
 | 162 | Top = 0 | 
 
 
 
 
 | 163 | Width = 150 | 
 
 
 
 
 | 164 | Height = 256 | 
 
 
 
 
 | 165 | Align = alClient | 
 
 
 
 
 | 166 | ItemHeight = 13 | 
 
 
 
 
 | 167 | TabOrder = 0 | 
 
 
 
 
 | 168 | OnClick = listClick | 
 
 
 
 
 | 169 | end | 
 
 
 
 
 | 170 | object panel_extension: TPanel | 
 
 
 
 
 | 171 | Left = 0 | 
 
 
 
 
 | 172 | Top = 256 | 
 
 
 
 
 | 173 | Width = 150 | 
 
 
 
 
 | 174 | Height = 103 | 
 
 
 
 
 | 175 | Align = alBottom | 
 
 
 
 
 | 176 | BevelOuter = bvNone | 
 
 
 
 
 | 177 | TabOrder = 1 | 
 
 
 
 
 | 178 | OnResize = panel_extensionResize | 
 
 
 
 
 | 179 | object lbl_filter: TLabel | 
 
 
 
 
 | 180 | Left = 2 | 
 
 
 
 
 | 181 | Top = 62 | 
 
 
 
 
 | 182 | Width = 100 | 
 
 
 
 
 | 183 | Height = 17 | 
 
 
 
 
 | 184 | AutoSize = False | 
 
 
 
 
 | 185 | Caption = 'Filter by &extension:' | 
 
 
 
 
 | 186 | FocusControl = combo_extension | 
 
 
 
 
 | 187 | end | 
 
 
 
 
 | 188 | object combo_extension: TComboBox | 
 
 
 
 
 | 189 | Left = 2 | 
 
 
 
 
 | 190 | Top = 76 | 
 
 
 
 
 | 191 | Width = 145 | 
 
 
 
 
 | 192 | Height = 21 | 
 
 
 
 
 | 193 | Style = csDropDownList | 
 
 
 
 
 | 194 | DropDownCount = 12 | 
 
 
 
 
 | 195 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 196 | Font.Color = clWindowText | 
 
 
 
 
 | 197 | Font.Height = -11 | 
 
 
 
 
 | 198 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 199 | Font.Style = [] | 
 
 
 
 
 | 200 | ItemHeight = 13 | 
 
 
 
 
 | 201 | ParentFont = False | 
 
 
 
 
 | 202 | Sorted = True | 
 
 
 
 
 | 203 | TabOrder = 3 | 
 
 
 
 
 | 204 | OnClick = combo_extensionClick | 
 
 
 
 
 | 205 | end | 
 
 
 
 
 | 206 | object check_zerobyte: TCheckBox | 
 
 
 
 
 | 207 | Left = 2 | 
 
 
 
 
 | 208 | Top = 44 | 
 
 
 
 
 | 209 | Width = 130 | 
 
 
 
 
 | 210 | Height = 13 | 
 
 
 
 
 | 211 | Caption = 'Show &zero-byte files' | 
 
 
 
 
 | 212 | TabOrder = 2 | 
 
 
 
 
 | 213 | OnClick = check_zerobyteClick | 
 
 
 
 
 | 214 | end | 
 
 
 
 
 | 215 | object edit_filtername: TEdit | 
 
 
 
 
 | 216 | Left = 2 | 
 
 
 
 
 | 217 | Top = 20 | 
 
 
 
 
 | 218 | Width = 145 | 
 
 
 
 
 | 219 | Height = 18 | 
 
 
 
 
 | 220 | AutoSize = False | 
 
 
 
 
 | 221 | TabOrder = 1 | 
 
 
 
 
 | 222 | end | 
 
 
 
 
 | 223 | object check_filtername: TCheckBox | 
 
 
 
 
 | 224 | Left = 2 | 
 
 
 
 
 | 225 | Top = 5 | 
 
 
 
 
 | 226 | Width = 130 | 
 
 
 
 
 | 227 | Height = 15 | 
 
 
 
 
 | 228 | Caption = 'Filter by file&name:' | 
 
 
 
 
 | 229 | TabOrder = 0 | 
 
 
 
 
 | 230 | OnClick = check_filternameClick | 
 
 
 
 
 | 231 | end | 
 
 
 
 
 | 232 | end | 
 
 
 
 
 | 233 | object panel_imexport: TPanel | 
 
 
 
 
 | 234 | Left = 0 | 
 
 
 
 
 | 235 | Top = 365 | 
 
 
 
 
 | 236 | Width = 150 | 
 
 
 
 
 | 237 | Height = 58 | 
 
 
 
 
 | 238 | Align = alBottom | 
 
 
 
 
 | 239 | BevelOuter = bvNone | 
 
 
 
 
 | 240 | TabOrder = 2 | 
 
 
 
 
 | 241 | OnResize = panel_imexportResize | 
 
 
 
 
 | 242 | object btn_export: TButton | 
 
 
 
 
 | 243 | Left = 4 | 
 
 
 
 
 | 244 | Top = 4 | 
 
 
 
 
 | 245 | Width = 142 | 
 
 
 
 
 | 246 | Height = 25 | 
 
 
 
 
 | 247 | Caption = 'Export to file...' | 
 
 
 
 
 | 248 | TabOrder = 0 | 
 
 
 
 
 | 249 | OnClick = btn_exportClick | 
 
 
 
 
 | 250 | end | 
 
 
 
 
 | 251 | object btn_import: TButton | 
 
 
 
 
 | 252 | Left = 4 | 
 
 
 
 
 | 253 | Top = 32 | 
 
 
 
 
 | 254 | Width = 142 | 
 
 
 
 
 | 255 | Height = 25 | 
 
 
 
 
 | 256 | Caption = 'Import from file...' | 
 
 
 
 
 | 257 | TabOrder = 1 | 
 
 
 
 
 | 258 | OnClick = btn_importClick | 
 
 
 
 
 | 259 | end | 
 
 
 
 
 | 260 | end | 
 
 
 
 
 | 261 | end | 
 
 
 
 
 | 262 | object opend: TOpenDialog | 
 
 
 
 
 | 263 | Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing] | 
 
 
 
 
 | 264 | Left = 120 | 
 
 
 
 
 | 265 | Top = 392 | 
 
 
 
 
 | 266 | end | 
 
 
 
 
 | 267 | object saved: TSaveDialog | 
 
 
 
 
 | 268 | Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing] | 
 
 
 
 
 | 269 | Left = 120 | 
 
 
 
 
 | 270 | Top = 368 | 
 
 
 
 
 | 271 | end | 
 
 
 
 
 | 272 | object value_viewer_context: TPopupMenu | 
 
 
 
 
 | 273 | AutoHotkeys = maManual | 
 
 
 
 
 | 274 | OnPopup = value_viewer_contextPopup | 
 
 
 
 
 | 275 | Left = 240 | 
 
 
 
 
 | 276 | Top = 248 | 
 
 
 
 
 | 277 | object value_viewer_context_copy: TMenuItem | 
 
 
 
 
 | 278 | Caption = 'Copy to &clipboard' | 
 
 
 
 
 | 279 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 280 | end | 
 
 
 
 
 | 281 | object value_viewer_context_copyasdec: TMenuItem | 
 
 
 
 
 | 282 | Caption = 'Copy to clipboard (as &dec)' | 
 
 
 
 
 | 283 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 284 | end | 
 
 
 
 
 | 285 | object value_viewer_context_copyasfloat: TMenuItem | 
 
 
 
 
 | 286 | Caption = 'Copy to clipboard (as &float)' | 
 
 
 
 
 | 287 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 288 | end | 
 
 
 
 
 | 289 | object value_viewer_context_copyasbitset: TMenuItem | 
 
 
 
 
 | 290 | Caption = 'Copy to clipboard (as &bitset)' | 
 
 
 
 
 | 291 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 292 | end | 
 
 
 
 
 | 293 | object value_viewer_context_copyasstring: TMenuItem | 
 
 
 
 
 | 294 | Caption = 'Copy to clipboard (as &string)' | 
 
 
 
 
 | 295 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 296 | end | 
 
 
 
 
 | 297 | object value_viewer_context_copyashex: TMenuItem | 
 
 
 
 
 | 298 | Caption = 'Copy to clipboard (as &hex)' | 
 
 
 
 
 | 299 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 300 | end | 
 
 
 
 
 | 301 | end | 
 
 
 
 
 | 302 | end |