| 1 | object Form1: TForm1 | 
 
 
 
 
 | 2 | Left = 0 | 
 
 
 
 
 | 3 | Top = 0 | 
 
 
 
 
 | 4 | HorzScrollBar.Visible = False | 
 
 
 
 
 | 5 | VertScrollBar.Visible = False | 
 
 
 
 
 | 6 | AutoScroll = False | 
 
 
 
 
 | 7 | Caption = 'Form1' | 
 
 
 
 
 | 8 | ClientHeight = 563 | 
 
 
 
 
 | 9 | ClientWidth = 692 | 
 
 
 
 
 | 10 | Color = clBtnFace | 
 
 
 
 
 | 11 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 12 | Font.Color = clWindowText | 
 
 
 
 
 | 13 | Font.Height = -11 | 
 
 
 
 
 | 14 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 15 | Font.Style = [] | 
 
 
 
 
 | 16 | Menu = menu | 
 
 
 
 
 | 17 | OldCreateOrder = False | 
 
 
 
 
 | 18 | OnClose = FormClose | 
 
 
 
 
 | 19 | OnCreate = FormCreate | 
 
 
 
 
 | 20 | OnResize = FormResize | 
 
 
 
 
 | 21 | PixelsPerInch = 96 | 
 
 
 
 
 | 22 | TextHeight = 13 | 
 
 
 
 
 | 23 | object panel_all: TPanel | 
 
 
 
 
 | 24 | Left = 0 | 
 
 
 
 
 | 25 | Top = 100 | 
 
 
 
 
 | 26 | Width = 692 | 
 
 
 
 
 | 27 | Height = 300 | 
 
 
 
 
 | 28 | BevelOuter = bvNone | 
 
 
 
 
 | 29 | TabOrder = 0 | 
 
 
 
 
 | 30 | object Splitter2: TSplitter | 
 
 
 
 
 | 31 | Left = 360 | 
 
 
 
 
 | 32 | Top = 0 | 
 
 
 
 
 | 33 | Width = 8 | 
 
 
 
 
 | 34 | Height = 300 | 
 
 
 
 
 | 35 | AutoSnap = False | 
 
 
 
 
 | 36 | Beveled = True | 
 
 
 
 
 | 37 | MinSize = 360 | 
 
 
 
 
 | 38 | end | 
 
 
 
 
 | 39 | object panel_left: TPanel | 
 
 
 
 
 | 40 | Left = 0 | 
 
 
 
 
 | 41 | Top = 0 | 
 
 
 
 
 | 42 | Width = 360 | 
 
 
 
 
 | 43 | Height = 300 | 
 
 
 
 
 | 44 | Cursor = crDrag | 
 
 
 
 
 | 45 | Align = alLeft | 
 
 
 
 
 | 46 | BevelOuter = bvNone | 
 
 
 
 
 | 47 | TabOrder = 0 | 
 
 
 
 
 | 48 | object Splitter1: TSplitter | 
 
 
 
 
 | 49 | Left = 0 | 
 
 
 
 
 | 50 | Top = 241 | 
 
 
 
 
 | 51 | Width = 360 | 
 
 
 
 
 | 52 | Height = 8 | 
 
 
 
 
 | 53 | Cursor = crVSplit | 
 
 
 
 
 | 54 | Align = alTop | 
 
 
 
 
 | 55 | AutoSnap = False | 
 
 
 
 
 | 56 | Beveled = True | 
 
 
 
 
 | 57 | MinSize = 75 | 
 
 
 
 
 | 58 | OnMoved = Splitter1Moved | 
 
 
 
 
 | 59 | end | 
 
 
 
 
 | 60 | object panel_files: TPanel | 
 
 
 
 
 | 61 | Left = 0 | 
 
 
 
 
 | 62 | Top = 0 | 
 
 
 
 
 | 63 | Width = 360 | 
 
 
 
 
 | 64 | Height = 241 | 
 
 
 
 
 | 65 | Align = alTop | 
 
 
 
 
 | 66 | BevelOuter = bvNone | 
 
 
 
 
 | 67 | TabOrder = 0 | 
 
 
 
 
 | 68 | object btn_extractconvert: TButton | 
 
 
 
 
 | 69 | Left = 1 | 
 
 
 
 
 | 70 | Top = 220 | 
 
 
 
 
 | 71 | Width = 358 | 
 
 
 
 
 | 72 | Height = 20 | 
 
 
 
 
 | 73 | Caption = 'Convert and extract file' | 
 
 
 
 
 | 74 | Enabled = False | 
 
 
 
 
 | 75 | TabOrder = 0 | 
 
 
 
 
 | 76 | WordWrap = True | 
 
 
 
 
 | 77 | OnClick = btn_extractconvertClick | 
 
 
 
 
 | 78 | end | 
 
 
 
 
 | 79 | object list_files: TListBox | 
 
 
 
 
 | 80 | Left = 0 | 
 
 
 
 
 | 81 | Top = 0 | 
 
 
 
 
 | 82 | Width = 360 | 
 
 
 
 
 | 83 | Height = 218 | 
 
 
 
 
 | 84 | Align = alTop | 
 
 
 
 
 | 85 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 86 | Font.Color = clWindowText | 
 
 
 
 
 | 87 | Font.Height = -11 | 
 
 
 
 
 | 88 | Font.Name = 'Fixedsys' | 
 
 
 
 
 | 89 | Font.Style = [] | 
 
 
 
 
 | 90 | ItemHeight = 15 | 
 
 
 
 
 | 91 | ParentFont = False | 
 
 
 
 
 | 92 | TabOrder = 1 | 
 
 
 
 
 | 93 | OnClick = list_filesDblClick | 
 
 
 
 
 | 94 | OnDblClick = list_filesDblClick | 
 
 
 
 
 | 95 | end | 
 
 
 
 
 | 96 | end | 
 
 
 
 
 | 97 | object list_extensions: TListBox | 
 
 
 
 
 | 98 | Left = 0 | 
 
 
 
 
 | 99 | Top = 249 | 
 
 
 
 
 | 100 | Width = 360 | 
 
 
 
 
 | 101 | Height = 51 | 
 
 
 
 
 | 102 | Align = alClient | 
 
 
 
 
 | 103 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 104 | Font.Color = clWindowText | 
 
 
 
 
 | 105 | Font.Height = -11 | 
 
 
 
 
 | 106 | Font.Name = 'Fixedsys' | 
 
 
 
 
 | 107 | Font.Style = [] | 
 
 
 
 
 | 108 | ItemHeight = 15 | 
 
 
 
 
 | 109 | ParentFont = False | 
 
 
 
 
 | 110 | Sorted = True | 
 
 
 
 
 | 111 | TabOrder = 1 | 
 
 
 
 
 | 112 | OnClick = list_extensionsClick | 
 
 
 
 
 | 113 | OnDblClick = list_extensionsClick | 
 
 
 
 
 | 114 | end | 
 
 
 
 
 | 115 | end | 
 
 
 
 
 | 116 | object panel_file: TPanel | 
 
 
 
 
 | 117 | Left = 368 | 
 
 
 
 
 | 118 | Top = 0 | 
 
 
 
 
 | 119 | Width = 324 | 
 
 
 
 
 | 120 | Height = 300 | 
 
 
 
 
 | 121 | Align = alClient | 
 
 
 
 
 | 122 | BevelOuter = bvNone | 
 
 
 
 
 | 123 | TabOrder = 1 | 
 
 
 
 
 | 124 | object lbl_fileinfo: TLabel | 
 
 
 
 
 | 125 | Left = 0 | 
 
 
 
 
 | 126 | Top = 0 | 
 
 
 
 
 | 127 | Width = 324 | 
 
 
 
 
 | 128 | Height = 44 | 
 
 
 
 
 | 129 | Align = alTop | 
 
 
 
 
 | 130 | AutoSize = False | 
 
 
 
 
 | 131 | end | 
 
 
 
 
 | 132 | object lbl_zerobyte: TLabel | 
 
 
 
 
 | 133 | Left = 32 | 
 
 
 
 
 | 134 | Top = 136 | 
 
 
 
 
 | 135 | Width = 265 | 
 
 
 
 
 | 136 | Height = 41 | 
 
 
 
 
 | 137 | AutoSize = False | 
 
 
 
 
 | 138 | Caption = | 
 
 
 
 
 | 139 | 'Zero byte file. Oni will take the data for this file of level0_f' + | 
 
 
 
 
 | 140 | 'inal.dat/raw' | 
 
 
 
 
 | 141 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 142 | Font.Color = clWindowText | 
 
 
 
 
 | 143 | Font.Height = -16 | 
 
 
 
 
 | 144 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 145 | Font.Style = [] | 
 
 
 
 
 | 146 | ParentFont = False | 
 
 
 
 
 | 147 | Visible = False | 
 
 
 
 
 | 148 | WordWrap = True | 
 
 
 
 
 | 149 | end | 
 
 
 
 
 | 150 | object hex: TMPHexEditor | 
 
 
 
 
 | 151 | Left = 0 | 
 
 
 
 
 | 152 | Top = 44 | 
 
 
 
 
 | 153 | Width = 324 | 
 
 
 
 
 | 154 | Height = 256 | 
 
 
 
 
 | 155 | Cursor = crIBeam | 
 
 
 
 
 | 156 | Align = alClient | 
 
 
 
 
 | 157 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 158 | Font.Color = clWindowText | 
 
 
 
 
 | 159 | Font.Height = -16 | 
 
 
 
 
 | 160 | Font.Name = 'Fixedsys' | 
 
 
 
 
 | 161 | Font.Style = [] | 
 
 
 
 
 | 162 | ParentFont = False | 
 
 
 
 
 | 163 | TabOrder = 0 | 
 
 
 
 
 | 164 | BytesPerRow = 16 | 
 
 
 
 
 | 165 | Translation = tkAsIs | 
 
 
 
 
 | 166 | OffsetFormat = '6!10:0x|' | 
 
 
 
 
 | 167 | Colors.Background = clWindow | 
 
 
 
 
 | 168 | Colors.ChangedBackground = clWhite | 
 
 
 
 
 | 169 | Colors.ChangedText = clRed | 
 
 
 
 
 | 170 | Colors.CursorFrame = clNavy | 
 
 
 
 
 | 171 | Colors.Offset = clBlack | 
 
 
 
 
 | 172 | Colors.OddColumn = clBlue | 
 
 
 
 
 | 173 | Colors.EvenColumn = clNavy | 
 
 
 
 
 | 174 | Colors.CurrentOffsetBackground = clBtnShadow | 
 
 
 
 
 | 175 | Colors.OffsetBackGround = clBtnFace | 
 
 
 
 
 | 176 | Colors.CurrentOffset = clBtnHighlight | 
 
 
 
 
 | 177 | Colors.Grid = clBtnFace | 
 
 
 
 
 | 178 | Colors.NonFocusCursorFrame = clAqua | 
 
 
 
 
 | 179 | Colors.ActiveFieldBackground = clWindow | 
 
 
 
 
 | 180 | FocusFrame = False | 
 
 
 
 
 | 181 | AllowInsertMode = False | 
 
 
 
 
 | 182 | DrawGridLines = False | 
 
 
 
 
 | 183 | ReadOnlyView = True | 
 
 
 
 
 | 184 | Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de' | 
 
 
 
 
 | 185 | end | 
 
 
 
 
 | 186 | end | 
 
 
 
 
 | 187 | end | 
 
 
 
 
 | 188 | object group_progress: TGroupBox | 
 
 
 
 
 | 189 | Left = 296 | 
 
 
 
 
 | 190 | Top = 480 | 
 
 
 
 
 | 191 | Width = 297 | 
 
 
 
 
 | 192 | Height = 57 | 
 
 
 
 
 | 193 | Caption = 'Extracting...' | 
 
 
 
 
 | 194 | TabOrder = 1 | 
 
 
 
 
 | 195 | Visible = False | 
 
 
 
 
 | 196 | object lbl_progress: TLabel | 
 
 
 
 
 | 197 | Left = 10 | 
 
 
 
 
 | 198 | Top = 36 | 
 
 
 
 
 | 199 | Width = 279 | 
 
 
 
 
 | 200 | Height = 18 | 
 
 
 
 
 | 201 | AutoSize = False | 
 
 
 
 
 | 202 | end | 
 
 
 
 
 | 203 | object progress: TProgressBar | 
 
 
 
 
 | 204 | Left = 8 | 
 
 
 
 
 | 205 | Top = 16 | 
 
 
 
 
 | 206 | Width = 217 | 
 
 
 
 
 | 207 | Height = 17 | 
 
 
 
 
 | 208 | Step = 1 | 
 
 
 
 
 | 209 | TabOrder = 0 | 
 
 
 
 
 | 210 | end | 
 
 
 
 
 | 211 | object btn_extractcancel: TButton | 
 
 
 
 
 | 212 | Left = 232 | 
 
 
 
 
 | 213 | Top = 16 | 
 
 
 
 
 | 214 | Width = 57 | 
 
 
 
 
 | 215 | Height = 33 | 
 
 
 
 
 | 216 | Caption = 'Cancel' | 
 
 
 
 
 | 217 | TabOrder = 1 | 
 
 
 
 
 | 218 | OnClick = btn_extractcancelClick | 
 
 
 
 
 | 219 | end | 
 
 
 
 
 | 220 | end | 
 
 
 
 
 | 221 | object statbar: TStatusBar | 
 
 
 
 
 | 222 | Left = 0 | 
 
 
 
 
 | 223 | Top = 546 | 
 
 
 
 
 | 224 | Width = 692 | 
 
 
 
 
 | 225 | Height = 17 | 
 
 
 
 
 | 226 | BiDiMode = bdLeftToRight | 
 
 
 
 
 | 227 | Panels = < | 
 
 
 
 
 | 228 | item | 
 
 
 
 
 | 229 | Text = 'Current .dat: -' | 
 
 
 
 
 | 230 | Width = 500 | 
 
 
 
 
 | 231 | end | 
 
 
 
 
 | 232 | item | 
 
 
 
 
 | 233 | Text = 'Files: -' | 
 
 
 
 
 | 234 | Width = 90 | 
 
 
 
 
 | 235 | end | 
 
 
 
 
 | 236 | item | 
 
 
 
 
 | 237 | Text = 'Extensions: -' | 
 
 
 
 
 | 238 | Width = 100 | 
 
 
 
 
 | 239 | end> | 
 
 
 
 
 | 240 | ParentBiDiMode = False | 
 
 
 
 
 | 241 | end | 
 
 
 
 
 | 242 | object fopen: TOpenDialog | 
 
 
 
 
 | 243 | Filter = 'Oni-Dat-Files|*.dat|Oni-Sep-Files (MAC)|*.sep' | 
 
 
 
 
 | 244 | Left = 64 | 
 
 
 
 
 | 245 | Top = 120 | 
 
 
 
 
 | 246 | end | 
 
 
 
 
 | 247 | object menu: TMainMenu | 
 
 
 
 
 | 248 | AutoHotkeys = maManual | 
 
 
 
 
 | 249 | Left = 224 | 
 
 
 
 
 | 250 | object menu_main: TMenuItem | 
 
 
 
 
 | 251 | Caption = '&Main' | 
 
 
 
 
 | 252 | object menu_loaddat: TMenuItem | 
 
 
 
 
 | 253 | Caption = '&Select .dat-file ...' | 
 
 
 
 
 | 254 | OnClick = menu_loaddatClick | 
 
 
 
 
 | 255 | end | 
 
 
 
 
 | 256 | object menu_sep1: TMenuItem | 
 
 
 
 
 | 257 | Caption = '-' | 
 
 
 
 
 | 258 | end | 
 
 
 
 
 | 259 | object menu_exit: TMenuItem | 
 
 
 
 
 | 260 | Caption = '&Exit' | 
 
 
 
 
 | 261 | OnClick = menu_exitClick | 
 
 
 
 
 | 262 | end | 
 
 
 
 
 | 263 | end | 
 
 
 
 
 | 264 | object menu_extract: TMenuItem | 
 
 
 
 
 | 265 | Caption = '&Extract/Convert' | 
 
 
 
 
 | 266 | Enabled = False | 
 
 
 
 
 | 267 | object menu_extractfile: TMenuItem | 
 
 
 
 
 | 268 | Caption = 'Convert and extract current &file' | 
 
 
 
 
 | 269 | OnClick = menu_extractfileClick | 
 
 
 
 
 | 270 | end | 
 
 
 
 
 | 271 | object menu_extractlist: TMenuItem | 
 
 
 
 
 | 272 | Caption = 'Convert and extract all files currently in &list' | 
 
 
 
 
 | 273 | OnClick = menu_extractlistClick | 
 
 
 
 
 | 274 | end | 
 
 
 
 
 | 275 | object menu_extractall: TMenuItem | 
 
 
 
 
 | 276 | Caption = 'Convert and extract &all files' | 
 
 
 
 
 | 277 | OnClick = menu_extractallClick | 
 
 
 
 
 | 278 | end | 
 
 
 
 
 | 279 | end | 
 
 
 
 
 | 280 | object menu_tools: TMenuItem | 
 
 
 
 
 | 281 | Caption = '&Tools' | 
 
 
 
 
 | 282 | Enabled = False | 
 
 
 
 
 | 283 | object menu_preview: TMenuItem | 
 
 
 
 
 | 284 | Caption = '&Preview Window ...' | 
 
 
 
 
 | 285 | OnClick = menu_previewClick | 
 
 
 
 
 | 286 | end | 
 
 
 
 
 | 287 | object menu_binedit: TMenuItem | 
 
 
 
 
 | 288 | Caption = '&Binary .dat editor ...' | 
 
 
 
 
 | 289 | OnClick = menu_bineditClick | 
 
 
 
 
 | 290 | end | 
 
 
 
 
 | 291 | object menu_txmpreplace: TMenuItem | 
 
 
 
 
 | 292 | Caption = '&TXMP replacer ...' | 
 
 
 
 
 | 293 | OnClick = menu_txmpreplaceClick | 
 
 
 
 
 | 294 | end | 
 
 
 
 
 | 295 | end | 
 
 
 
 
 | 296 | end | 
 
 
 
 
 | 297 | end |