| 1 | object Form8: TForm8 | 
 
 
 
 
 | 2 | Left = 0 | 
 
 
 
 
 | 3 | Top = 0 | 
 
 
 
 
 | 4 | Width = 650 | 
 
 
 
 
 | 5 | Height = 450 | 
 
 
 
 
 | 6 | BorderIcons = [biSystemMenu, biMaximize] | 
 
 
 
 
 | 7 | Caption = 'Binary .dat-Editor' | 
 
 
 
 
 | 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 | OldCreateOrder = False | 
 
 
 
 
 | 16 | Visible = True | 
 
 
 
 
 | 17 | WindowState = wsMaximized | 
 
 
 
 
 | 18 | OnActivate = FormActivate | 
 
 
 
 
 | 19 | OnClose = FormClose | 
 
 
 
 
 | 20 | OnCloseQuery = FormCloseQuery | 
 
 
 
 
 | 21 | OnCreate = FormCreate | 
 
 
 
 
 | 22 | OnResize = FormResize | 
 
 
 
 
 | 23 | PixelsPerInch = 96 | 
 
 
 
 
 | 24 | TextHeight = 13 | 
 
 
 
 
 | 25 | object Splitter1: TSplitter | 
 
 
 
 
 | 26 | Left = 150 | 
 
 
 
 
 | 27 | Top = 0 | 
 
 
 
 
 | 28 | Width = 9 | 
 
 
 
 
 | 29 | Height = 423 | 
 
 
 
 
 | 30 | AutoSnap = False | 
 
 
 
 
 | 31 | Beveled = True | 
 
 
 
 
 | 32 | MinSize = 150 | 
 
 
 
 
 | 33 | end | 
 
 
 
 
 | 34 | object panel_data: TPanel | 
 
 
 
 
 | 35 | Left = 159 | 
 
 
 
 
 | 36 | Top = 0 | 
 
 
 
 
 | 37 | Width = 483 | 
 
 
 
 
 | 38 | Height = 423 | 
 
 
 
 
 | 39 | Align = alClient | 
 
 
 
 
 | 40 | BevelOuter = bvNone | 
 
 
 
 
 | 41 | TabOrder = 0 | 
 
 
 
 
 | 42 | OnResize = panel_dataResize | 
 
 
 
 
 | 43 | object Splitter2: TSplitter | 
 
 
 
 
 | 44 | Left = 0 | 
 
 
 
 
 | 45 | Top = 209 | 
 
 
 
 
 | 46 | Width = 483 | 
 
 
 
 
 | 47 | Height = 9 | 
 
 
 
 
 | 48 | Cursor = crVSplit | 
 
 
 
 
 | 49 | Align = alTop | 
 
 
 
 
 | 50 | AutoSnap = False | 
 
 
 
 
 | 51 | Beveled = True | 
 
 
 
 
 | 52 | MinSize = 40 | 
 
 
 
 
 | 53 | end | 
 
 
 
 
 | 54 | object Splitter3: TSplitter | 
 
 
 
 
 | 55 | Left = 0 | 
 
 
 
 
 | 56 | Top = 375 | 
 
 
 
 
 | 57 | Width = 483 | 
 
 
 
 
 | 58 | Height = 8 | 
 
 
 
 
 | 59 | Cursor = crVSplit | 
 
 
 
 
 | 60 | Align = alBottom | 
 
 
 
 
 | 61 | AutoSnap = False | 
 
 
 
 
 | 62 | Beveled = True | 
 
 
 
 
 | 63 | MinSize = 40 | 
 
 
 
 
 | 64 | end | 
 
 
 
 
 | 65 | object hex: TMPHexEditor | 
 
 
 
 
 | 66 | Left = 0 | 
 
 
 
 
 | 67 | Top = 0 | 
 
 
 
 
 | 68 | Width = 483 | 
 
 
 
 
 | 69 | Height = 209 | 
 
 
 
 
 | 70 | Cursor = crIBeam | 
 
 
 
 
 | 71 | Align = alTop | 
 
 
 
 
 | 72 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 73 | Font.Color = clWindowText | 
 
 
 
 
 | 74 | Font.Height = -16 | 
 
 
 
 
 | 75 | Font.Name = 'Courier' | 
 
 
 
 
 | 76 | Font.Style = [] | 
 
 
 
 
 | 77 | ParentFont = False | 
 
 
 
 
 | 78 | TabOrder = 0 | 
 
 
 
 
 | 79 | BytesPerRow = 16 | 
 
 
 
 
 | 80 | Translation = tkASCII | 
 
 
 
 
 | 81 | OffsetFormat = '6!10:0x|' | 
 
 
 
 
 | 82 | Colors.Background = clWindow | 
 
 
 
 
 | 83 | Colors.ChangedBackground = clWindow | 
 
 
 
 
 | 84 | Colors.ChangedText = clRed | 
 
 
 
 
 | 85 | Colors.CursorFrame = clNavy | 
 
 
 
 
 | 86 | Colors.Offset = clBlack | 
 
 
 
 
 | 87 | Colors.OddColumn = clBlue | 
 
 
 
 
 | 88 | Colors.EvenColumn = clNavy | 
 
 
 
 
 | 89 | Colors.CurrentOffsetBackground = clBtnShadow | 
 
 
 
 
 | 90 | Colors.OffsetBackGround = clBtnFace | 
 
 
 
 
 | 91 | Colors.CurrentOffset = clBtnHighlight | 
 
 
 
 
 | 92 | Colors.Grid = clBtnFace | 
 
 
 
 
 | 93 | Colors.NonFocusCursorFrame = clAqua | 
 
 
 
 
 | 94 | Colors.ActiveFieldBackground = clWindow | 
 
 
 
 
 | 95 | FocusFrame = True | 
 
 
 
 
 | 96 | NoSizeChange = True | 
 
 
 
 
 | 97 | AllowInsertMode = False | 
 
 
 
 
 | 98 | DrawGridLines = False | 
 
 
 
 
 | 99 | Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de' | 
 
 
 
 
 | 100 | OnChange = hexChange | 
 
 
 
 
 | 101 | ShowPositionIfNotFocused = True | 
 
 
 
 
 | 102 | OnSelectionChanged = hexSelectionChanged | 
 
 
 
 
 | 103 | end | 
 
 
 
 
 | 104 | object structs: TWrapGrid | 
 
 
 
 
 | 105 | Left = 0 | 
 
 
 
 
 | 106 | Top = 383 | 
 
 
 
 
 | 107 | Width = 483 | 
 
 
 
 
 | 108 | Height = 40 | 
 
 
 
 
 | 109 | Align = alBottom | 
 
 
 
 
 | 110 | DefaultColWidth = 80 | 
 
 
 
 
 | 111 | DefaultRowHeight = 18 | 
 
 
 
 
 | 112 | Enabled = False | 
 
 
 
 
 | 113 | FixedCols = 0 | 
 
 
 
 
 | 114 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing] | 
 
 
 
 
 | 115 | TabOrder = 1 | 
 
 
 
 
 | 116 | OnClick = structsClick | 
 
 
 
 
 | 117 | OnDblClick = structsDblClick | 
 
 
 
 
 | 118 | end | 
 
 
 
 
 | 119 | object value_viewer: TWrapGrid | 
 
 
 
 
 | 120 | Left = 0 | 
 
 
 
 
 | 121 | Top = 218 | 
 
 
 
 
 | 122 | Width = 483 | 
 
 
 
 
 | 123 | Height = 157 | 
 
 
 
 
 | 124 | Align = alClient | 
 
 
 
 
 | 125 | DefaultColWidth = 80 | 
 
 
 
 
 | 126 | DefaultRowHeight = 18 | 
 
 
 
 
 | 127 | FixedCols = 0 | 
 
 
 
 
 | 128 | RowCount = 8 | 
 
 
 
 
 | 129 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing] | 
 
 
 
 
 | 130 | PopupMenu = value_viewer_context | 
 
 
 
 
 | 131 | TabOrder = 2 | 
 
 
 
 
 | 132 | OnDblClick = value_viewerDblClick | 
 
 
 
 
 | 133 | OnMouseDown = value_viewerMouseDown | 
 
 
 
 
 | 134 | end | 
 
 
 
 
 | 135 | end | 
 
 
 
 
 | 136 | object panel_files: TPanel | 
 
 
 
 
 | 137 | Left = 0 | 
 
 
 
 
 | 138 | Top = 0 | 
 
 
 
 
 | 139 | Width = 150 | 
 
 
 
 
 | 140 | Height = 423 | 
 
 
 
 
 | 141 | Align = alLeft | 
 
 
 
 
 | 142 | BevelOuter = bvNone | 
 
 
 
 
 | 143 | TabOrder = 1 | 
 
 
 
 
 | 144 | object Bevel1: TBevel | 
 
 
 
 
 | 145 | Left = 0 | 
 
 
 
 
 | 146 | Top = 359 | 
 
 
 
 
 | 147 | Width = 150 | 
 
 
 
 
 | 148 | Height = 6 | 
 
 
 
 
 | 149 | Align = alBottom | 
 
 
 
 
 | 150 | Style = bsRaised | 
 
 
 
 
 | 151 | end | 
 
 
 
 
 | 152 | object list: TListBox | 
 
 
 
 
 | 153 | Left = 0 | 
 
 
 
 
 | 154 | Top = 0 | 
 
 
 
 
 | 155 | Width = 150 | 
 
 
 
 
 | 156 | Height = 256 | 
 
 
 
 
 | 157 | Align = alClient | 
 
 
 
 
 | 158 | ItemHeight = 13 | 
 
 
 
 
 | 159 | TabOrder = 0 | 
 
 
 
 
 | 160 | OnClick = listClick | 
 
 
 
 
 | 161 | end | 
 
 
 
 
 | 162 | object panel_extension: TPanel | 
 
 
 
 
 | 163 | Left = 0 | 
 
 
 
 
 | 164 | Top = 256 | 
 
 
 
 
 | 165 | Width = 150 | 
 
 
 
 
 | 166 | Height = 103 | 
 
 
 
 
 | 167 | Align = alBottom | 
 
 
 
 
 | 168 | BevelOuter = bvNone | 
 
 
 
 
 | 169 | TabOrder = 1 | 
 
 
 
 
 | 170 | OnResize = panel_extensionResize | 
 
 
 
 
 | 171 | object lbl_filter: TLabel | 
 
 
 
 
 | 172 | Left = 2 | 
 
 
 
 
 | 173 | Top = 62 | 
 
 
 
 
 | 174 | Width = 100 | 
 
 
 
 
 | 175 | Height = 17 | 
 
 
 
 
 | 176 | AutoSize = False | 
 
 
 
 
 | 177 | Caption = 'Filter by &extension:' | 
 
 
 
 
 | 178 | FocusControl = combo_extension | 
 
 
 
 
 | 179 | end | 
 
 
 
 
 | 180 | object combo_extension: TComboBox | 
 
 
 
 
 | 181 | Left = 2 | 
 
 
 
 
 | 182 | Top = 76 | 
 
 
 
 
 | 183 | Width = 145 | 
 
 
 
 
 | 184 | Height = 21 | 
 
 
 
 
 | 185 | Style = csDropDownList | 
 
 
 
 
 | 186 | DropDownCount = 12 | 
 
 
 
 
 | 187 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 188 | Font.Color = clWindowText | 
 
 
 
 
 | 189 | Font.Height = -11 | 
 
 
 
 
 | 190 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 191 | Font.Style = [] | 
 
 
 
 
 | 192 | ItemHeight = 13 | 
 
 
 
 
 | 193 | ParentFont = False | 
 
 
 
 
 | 194 | Sorted = True | 
 
 
 
 
 | 195 | TabOrder = 3 | 
 
 
 
 
 | 196 | OnClick = combo_extensionClick | 
 
 
 
 
 | 197 | end | 
 
 
 
 
 | 198 | object check_zerobyte: TCheckBox | 
 
 
 
 
 | 199 | Left = 2 | 
 
 
 
 
 | 200 | Top = 44 | 
 
 
 
 
 | 201 | Width = 130 | 
 
 
 
 
 | 202 | Height = 13 | 
 
 
 
 
 | 203 | Caption = 'Show &zero-byte files' | 
 
 
 
 
 | 204 | TabOrder = 2 | 
 
 
 
 
 | 205 | OnClick = check_zerobyteClick | 
 
 
 
 
 | 206 | end | 
 
 
 
 
 | 207 | object edit_filtername: TEdit | 
 
 
 
 
 | 208 | Left = 2 | 
 
 
 
 
 | 209 | Top = 20 | 
 
 
 
 
 | 210 | Width = 145 | 
 
 
 
 
 | 211 | Height = 18 | 
 
 
 
 
 | 212 | AutoSize = False | 
 
 
 
 
 | 213 | TabOrder = 1 | 
 
 
 
 
 | 214 | end | 
 
 
 
 
 | 215 | object check_filtername: TCheckBox | 
 
 
 
 
 | 216 | Left = 2 | 
 
 
 
 
 | 217 | Top = 5 | 
 
 
 
 
 | 218 | Width = 130 | 
 
 
 
 
 | 219 | Height = 15 | 
 
 
 
 
 | 220 | Caption = 'Filter by file&name:' | 
 
 
 
 
 | 221 | TabOrder = 0 | 
 
 
 
 
 | 222 | OnClick = check_filternameClick | 
 
 
 
 
 | 223 | end | 
 
 
 
 
 | 224 | end | 
 
 
 
 
 | 225 | object panel_imexport: TPanel | 
 
 
 
 
 | 226 | Left = 0 | 
 
 
 
 
 | 227 | Top = 365 | 
 
 
 
 
 | 228 | Width = 150 | 
 
 
 
 
 | 229 | Height = 58 | 
 
 
 
 
 | 230 | Align = alBottom | 
 
 
 
 
 | 231 | BevelOuter = bvNone | 
 
 
 
 
 | 232 | TabOrder = 2 | 
 
 
 
 
 | 233 | OnResize = panel_imexportResize | 
 
 
 
 
 | 234 | object btn_export: TButton | 
 
 
 
 
 | 235 | Left = 4 | 
 
 
 
 
 | 236 | Top = 4 | 
 
 
 
 
 | 237 | Width = 142 | 
 
 
 
 
 | 238 | Height = 25 | 
 
 
 
 
 | 239 | Caption = 'Export to file...' | 
 
 
 
 
 | 240 | TabOrder = 0 | 
 
 
 
 
 | 241 | OnClick = btn_exportClick | 
 
 
 
 
 | 242 | end | 
 
 
 
 
 | 243 | object btn_import: TButton | 
 
 
 
 
 | 244 | Left = 4 | 
 
 
 
 
 | 245 | Top = 32 | 
 
 
 
 
 | 246 | Width = 142 | 
 
 
 
 
 | 247 | Height = 25 | 
 
 
 
 
 | 248 | Caption = 'Import from file...' | 
 
 
 
 
 | 249 | TabOrder = 1 | 
 
 
 
 
 | 250 | OnClick = btn_importClick | 
 
 
 
 
 | 251 | end | 
 
 
 
 
 | 252 | end | 
 
 
 
 
 | 253 | end | 
 
 
 
 
 | 254 | object opend: TOpenDialog | 
 
 
 
 
 | 255 | Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing] | 
 
 
 
 
 | 256 | Left = 120 | 
 
 
 
 
 | 257 | Top = 392 | 
 
 
 
 
 | 258 | end | 
 
 
 
 
 | 259 | object saved: TSaveDialog | 
 
 
 
 
 | 260 | Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing] | 
 
 
 
 
 | 261 | Left = 120 | 
 
 
 
 
 | 262 | Top = 368 | 
 
 
 
 
 | 263 | end | 
 
 
 
 
 | 264 | object value_viewer_context: TPopupMenu | 
 
 
 
 
 | 265 | AutoHotkeys = maManual | 
 
 
 
 
 | 266 | OnPopup = value_viewer_contextPopup | 
 
 
 
 
 | 267 | Left = 240 | 
 
 
 
 
 | 268 | Top = 248 | 
 
 
 
 
 | 269 | object value_viewer_context_copy: TMenuItem | 
 
 
 
 
 | 270 | Caption = 'Copy to &clipboard' | 
 
 
 
 
 | 271 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 272 | end | 
 
 
 
 
 | 273 | object value_viewer_context_copyasdec: TMenuItem | 
 
 
 
 
 | 274 | Caption = 'Copy to clipboard (as &dec)' | 
 
 
 
 
 | 275 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 276 | end | 
 
 
 
 
 | 277 | object value_viewer_context_copyasfloat: TMenuItem | 
 
 
 
 
 | 278 | Caption = 'Copy to clipboard (as &float)' | 
 
 
 
 
 | 279 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 280 | end | 
 
 
 
 
 | 281 | object value_viewer_context_copyasbitset: TMenuItem | 
 
 
 
 
 | 282 | Caption = 'Copy to clipboard (as &bitset)' | 
 
 
 
 
 | 283 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 284 | end | 
 
 
 
 
 | 285 | object value_viewer_context_copyasstring: TMenuItem | 
 
 
 
 
 | 286 | Caption = 'Copy to clipboard (as &string)' | 
 
 
 
 
 | 287 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 288 | end | 
 
 
 
 
 | 289 | object value_viewer_context_copyashex: TMenuItem | 
 
 
 
 
 | 290 | Caption = 'Copy to clipboard (as &hex)' | 
 
 
 
 
 | 291 | OnClick = value_viewer_context_copyClick | 
 
 
 
 
 | 292 | end | 
 
 
 
 
 | 293 | end | 
 
 
 
 
 | 294 | end |