Changeset 227 for oup/current
- Timestamp:
- Jun 20, 2007, 12:06:10 AM (18 years ago)
- Location:
- oup/current
- Files:
-
- 2 added
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/DataAccess/DataAccess.pas
r193 r227 2 2 interface 3 3 4 uses TypeDefs, Classes, StrUtils, SysUtils ;4 uses TypeDefs, Classes, StrUtils, SysUtils, _MetaManager; 5 5 6 6 type … … 14 14 FLevelNumber: Integer; 15 15 FChangeRights: TChangeRights; 16 FMeta: TMetaManager; 16 17 procedure SetDataOS(DataOS: TDataOS); 17 18 public … … 22 23 property LevelNumber: Integer read FLevelNumber; 23 24 property ChangeRights: TChangeRights read FChangeRights; 25 property MetaData: TMetaManager read FMeta; 24 26 25 27 constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract; -
oup/current/Main.dfm
r222 r227 139 139 OnClick = menu_metaClick 140 140 end 141 object menu_filemanager: TTBItem 142 Caption = '&FileManager' 143 OnClick = menu_filemanagerClick 144 end 141 145 object menu_filecompare: TTBItem 142 146 Caption = '&File compare ...' … … 198 202 Checked = True 199 203 OnClick = menu_view_toolbarClick 204 end 205 object menu_view_toolbar_tools: TTBItem 206 Caption = '&Toolbar (Tools)' 207 Checked = True 208 OnClick = menu_view_toolbar_toolsClick 200 209 end 201 210 object menu_view_statusbar: TTBItem … … 216 225 end 217 226 end 218 object Toolbar : TTBToolbar227 object Toolbar_main: TTBToolbar 219 228 Left = 0 220 229 Top = 23 221 Caption = 'Toolbar '230 Caption = 'Toolbar_main' 222 231 DragHandleStyle = dhDouble 223 232 Images = MenuImages 224 233 TabOrder = 1 225 OnDockChanged = Toolbar DockChanged234 OnDockChanged = Toolbar_mainDockChanged 226 235 object tbOpen: TTBItem 227 236 Caption = 'Open .dat' … … 252 261 object TBSeparatorItem1: TTBSeparatorItem 253 262 end 254 object tb_preview: TTBItem255 Caption = 'Preview'256 DisplayMode = nbdmImageAndText257 Enabled = False258 ImageIndex = 4259 OnClick = menu_previewClick260 end261 object tb_datedit: TTBItem262 Caption = 'DatEditor'263 DisplayMode = nbdmImageAndText264 Enabled = False265 ImageIndex = 5266 OnClick = menu_bineditClick267 end268 object tb_rawedit: TTBItem269 Caption = 'RawEditor'270 DisplayMode = nbdmImageAndText271 Enabled = False272 ImageIndex = 6273 OnClick = menu_raweditClick274 end275 object tb_txmpreplacer: TTBItem276 Caption = 'TXMP replacer'277 DisplayMode = nbdmImageAndText278 Enabled = False279 ImageIndex = 7280 OnClick = menu_txmpreplaceClick281 end282 object tb_extractor: TTBItem283 Caption = 'File extractor'284 DisplayMode = nbdmImageAndText285 Enabled = False286 ImageIndex = 8287 OnClick = menu_extractorClick288 end289 object tb_meta: TTBItem290 Caption = 'MetaEditor'291 DisplayMode = nbdmImageAndText292 Enabled = False293 ImageIndex = 11294 OnClick = menu_metaClick295 end296 object tb_compare: TTBItem297 Caption = 'File compare'298 DisplayMode = nbdmImageAndText299 Enabled = False300 ImageIndex = 10301 OnClick = menu_filecompareClick302 end303 object tb_structure: TTBItem304 Caption = 'Level structure'305 DisplayMode = nbdmImageAndText306 Enabled = False307 ImageIndex = 12308 end309 263 end 310 264 object MDIToolbar: TTBToolbar 311 Left = 0265 Left = 29 312 266 Top = 49 313 267 Caption = 'MDIToolbar' 314 268 DockableTo = [dpTop, dpBottom] 315 269 DockMode = dmCannotFloat 316 DockPos = 0317 DockRow = 2270 DockPos = 29 271 DockRow = 3 318 272 DragHandleStyle = dhDouble 319 273 TabOrder = 2 … … 341 295 OnMouseMove = MDITabMouseMove 342 296 OnMouseUp = MDITabMouseUp 297 end 298 end 299 object Toolbar_tools: TTBToolbar 300 Left = 328 301 Top = 23 302 Caption = 'Toolbar' 303 DockPos = 334 304 DragHandleStyle = dhDouble 305 Images = MenuImages 306 TabOrder = 3 307 OnDockChanged = Toolbar_mainDockChanged 308 object tb_preview: TTBItem 309 Caption = 'Preview' 310 DisplayMode = nbdmImageAndText 311 Enabled = False 312 ImageIndex = 4 313 OnClick = menu_previewClick 314 end 315 object tb_datedit: TTBItem 316 Caption = 'DatEditor' 317 DisplayMode = nbdmImageAndText 318 Enabled = False 319 ImageIndex = 5 320 OnClick = menu_bineditClick 321 end 322 object tb_rawedit: TTBItem 323 Caption = 'RawEditor' 324 DisplayMode = nbdmImageAndText 325 Enabled = False 326 ImageIndex = 6 327 OnClick = menu_raweditClick 328 end 329 object tb_txmpreplacer: TTBItem 330 Caption = 'TXMP replacer' 331 DisplayMode = nbdmImageAndText 332 Enabled = False 333 ImageIndex = 7 334 OnClick = menu_txmpreplaceClick 335 end 336 object tb_extractor: TTBItem 337 Caption = 'File extractor' 338 DisplayMode = nbdmImageAndText 339 Enabled = False 340 ImageIndex = 8 341 OnClick = menu_extractorClick 342 end 343 object tb_meta: TTBItem 344 Caption = 'MetaEditor' 345 DisplayMode = nbdmImageAndText 346 Enabled = False 347 ImageIndex = 11 348 OnClick = menu_metaClick 349 end 350 object tb_filemanager: TTBItem 351 Caption = 'FileManager' 352 OnClick = menu_filemanagerClick 353 end 354 object tb_compare: TTBItem 355 Caption = 'File compare' 356 DisplayMode = nbdmImageAndText 357 Enabled = False 358 ImageIndex = 10 359 OnClick = menu_filecompareClick 360 end 361 object tb_structure: TTBItem 362 Caption = 'Level structure' 363 DisplayMode = nbdmImageAndText 364 Enabled = False 365 ImageIndex = 12 343 366 end 344 367 end -
oup/current/Main.pas
r224 r227 45 45 menu_sep2: TTBSeparatorItem; 46 46 menu_About: TTBItem; 47 Toolbar :TTBToolbar;47 Toolbar_main: TTBToolbar; 48 48 tbOpen: TTBItem; 49 49 DockLeft: TTBDock; … … 58 58 menu_view_toolbar: TTBItem; 59 59 tb_separator1: TTBSeparatorItem; 60 tb_preview: TTBItem;61 tb_structure: TTBItem;62 tb_compare: TTBItem;63 tb_extractor: TTBItem;64 tb_txmpreplacer: TTBItem;65 tb_rawedit: TTBItem;66 tb_datedit: TTBItem;67 60 menu_windows_tilevert: TTBItem; 68 tb_meta: TTBItem;69 61 menu_meta: TTBItem; 70 62 TBSeparatorItem1: TTBSeparatorItem; … … 76 68 menu_conns: TTBSubmenuItem; 77 69 menu_windows: TTBSubmenuItem; 70 menu_filemanager: TTBItem; 71 Toolbar_tools: TTBToolbar; 72 tb_preview: TTBItem; 73 tb_datedit: TTBItem; 74 tb_rawedit: TTBItem; 75 tb_txmpreplacer: TTBItem; 76 tb_extractor: TTBItem; 77 tb_meta: TTBItem; 78 tb_filemanager: TTBItem; 79 tb_compare: TTBItem; 80 tb_structure: TTBItem; 81 menu_view_toolbar_tools: TTBItem; 78 82 procedure FormClose(Sender: TObject; var Action: TCloseAction); 79 83 procedure FormResize(Sender: TObject); … … 90 94 procedure MDITabMouseMove(Sender: TObject; Shift: TShiftState; X, 91 95 Y: Integer); 92 procedure Toolbar DockChanged(Sender: TObject);96 procedure Toolbar_mainDockChanged(Sender: TObject); 93 97 procedure CreateConnection(filename: String); 94 98 function CheckConnectionCloseable(index: Integer): Boolean; … … 125 129 126 130 procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA; 131 procedure menu_filemanagerClick(Sender: TObject); 132 procedure menu_view_toolbar_toolsClick(Sender: TObject); 127 133 private 128 134 public … … 139 145 140 146 uses 141 LevelDB, MetaEditor ;147 LevelDB, MetaEditor, FileManager; 142 148 143 149 {$R *.dfm} … … 448 454 449 455 450 procedure TForm_Main.Toolbar DockChanged(Sender: TObject);456 procedure TForm_Main.Toolbar_mainDockChanged(Sender: TObject); 451 457 var 452 458 toolbar: TTBToolbar; … … 618 624 619 625 620 {#################################} 626 procedure TForm_Main.menu_filemanagerClick(Sender: TObject); 627 begin 628 open_child('filemanager'); 629 end; 630 631 {#################################} 621 632 {##### View-Menu-Handlers #####} 622 633 {#################################} … … 703 714 begin 704 715 menu_view_toolbar.Checked := not menu_view_toolbar.Checked; 705 Toolbar.Visible := menu_view_toolbar.Checked; 716 Toolbar_main.Visible := menu_view_toolbar.Checked; 717 end; 718 719 procedure TForm_Main.menu_view_toolbar_toolsClick(Sender: TObject); 720 begin 721 menu_view_toolbar_tools.Checked := not menu_view_toolbar_tools.Checked; 722 Toolbar_tools.Visible := menu_view_toolbar_tools.Checked; 706 723 end; 707 724 … … 739 756 end; 740 757 const 741 Tools: array[0.. 5] of TTool = (758 Tools: array[0..6] of TTool = ( 742 759 (name: 'binedit'; icon: 5; caption: 'Binary .dat-Editor'; classt: TForm_BinEdit), 743 760 (name: 'extractor'; icon: 8; caption: 'Extractor'; classt: TForm_Extractor), … … 745 762 (name: 'rawedit'; icon: 6; caption: 'Binary .raw-Editor'; classt: TForm_RawEdit), 746 763 (name: 'txmpreplace'; icon: 7; caption: 'TXMP Replacer'; classt: TForm_TxmpReplace), 764 (name: 'filemanager'; icon:-1; caption: 'FileManager'; classt: TForm_FileManager), 747 765 (name: 'meta'; icon: 11; caption: 'MetaEditor'; classt: TForm_Meta) 748 766 ); -
oup/current/OniUnPacker.bdsproj
r224 r227 176 176 <Language Name="ProjectLang">$00000000</Language> 177 177 <Language Name="RootDir"></Language> 178 </Language> <Excluded_Packages> 178 </Language> 179 180 <Excluded_Packages> 179 181 <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages> 180 182 </Excluded_Packages> -
oup/current/OniUnPacker.dpr
r226 r227 149 149 Preview in 'Tools\Preview.pas' {Form_Preview}, 150 150 RawEdit in 'Tools\RawEdit.pas' {Form_RawEdit}, 151 TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace}; 151 TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace}, 152 FileManager in 'Tools\FileManager.pas' {Form_FileManager}; 152 153 153 154 {$R *.res} -
oup/current/Tools/_TemplateFileList.dfm
r222 r227 38 38 object tab_files: TTabSheet 39 39 Caption = 'Files' 40 ExplicitWidth = 23341 ExplicitHeight = 35342 40 object panel_extension: TPanel 43 41 Left = 0 … … 48 46 BevelOuter = bvNone 49 47 TabOrder = 0 50 ExplicitWidth = 23351 48 DesignSize = ( 52 49 190 … … 228 225 TabOrder = 3 229 226 OnClick = combo_extensionClick 230 ExplicitWidth = 232231 227 end 232 228 object check_zerobyte: TCheckBox … … 247 243 AutoSize = False 248 244 TabOrder = 1 249 ExplicitWidth = 232250 245 end 251 246 object check_filtername: TCheckBox … … 269 264 OnClick = listClick 270 265 OnMouseDown = listMouseDown 271 ExplicitWidth = 233272 ExplicitHeight = 228273 266 end 274 267 end … … 276 269 Caption = 'Meta' 277 270 ImageIndex = 1 271 object filelist_meta: TVirtualStringTree 272 Left = 0 273 Top = 0 274 Width = 190 275 Height = 503 276 Align = alClient 277 Header.AutoSizeIndex = 0 278 Header.Font.Charset = DEFAULT_CHARSET 279 Header.Font.Color = clWindowText 280 Header.Font.Height = -11 281 Header.Font.Name = 'Tahoma' 282 Header.Font.Style = [] 283 Header.MainColumn = -1 284 Header.Options = [hoColumnResize, hoDrag] 285 TabOrder = 0 286 Columns = <> 287 end 278 288 end 279 289 end -
oup/current/Tools/_TemplateFileList.pas
r222 r227 6 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 7 Dialogs, _TemplateFile, StdCtrls, ExtCtrls, Menus, Buttons, 8 ComCtrls, TypeDefs ;8 ComCtrls, TypeDefs, VirtualTrees; 9 9 10 10 type … … 39 39 filelist: TListBox; 40 40 tab_meta: TTabSheet; 41 filelist_meta: TVirtualStringTree; 41 42 procedure NewCon(ID: Integer); 42 43
Note:
See TracChangeset
for help on using the changeset viewer.