Index: oup/current/DataAccess/DataAccess.pas
===================================================================
--- oup/current/DataAccess/DataAccess.pas (revision 226)
+++ oup/current/DataAccess/DataAccess.pas (revision 227)
@@ -2,5 +2,5 @@
interface
-uses TypeDefs, Classes, StrUtils, SysUtils;
+uses TypeDefs, Classes, StrUtils, SysUtils, _MetaManager;
type
@@ -14,4 +14,5 @@
FLevelNumber: Integer;
FChangeRights: TChangeRights;
+ FMeta: TMetaManager;
procedure SetDataOS(DataOS: TDataOS);
public
@@ -22,4 +23,5 @@
property LevelNumber: Integer read FLevelNumber;
property ChangeRights: TChangeRights read FChangeRights;
+ property MetaData: TMetaManager read FMeta;
constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract;
Index: oup/current/Main.dfm
===================================================================
--- oup/current/Main.dfm (revision 226)
+++ oup/current/Main.dfm (revision 227)
@@ -139,4 +139,8 @@
OnClick = menu_metaClick
end
+ object menu_filemanager: TTBItem
+ Caption = '&FileManager'
+ OnClick = menu_filemanagerClick
+ end
object menu_filecompare: TTBItem
Caption = '&File compare ...'
@@ -198,4 +202,9 @@
Checked = True
OnClick = menu_view_toolbarClick
+ end
+ object menu_view_toolbar_tools: TTBItem
+ Caption = '&Toolbar (Tools)'
+ Checked = True
+ OnClick = menu_view_toolbar_toolsClick
end
object menu_view_statusbar: TTBItem
@@ -216,12 +225,12 @@
end
end
- object Toolbar: TTBToolbar
+ object Toolbar_main: TTBToolbar
Left = 0
Top = 23
- Caption = 'Toolbar'
+ Caption = 'Toolbar_main'
DragHandleStyle = dhDouble
Images = MenuImages
TabOrder = 1
- OnDockChanged = ToolbarDockChanged
+ OnDockChanged = Toolbar_mainDockChanged
object tbOpen: TTBItem
Caption = 'Open .dat'
@@ -252,68 +261,13 @@
object TBSeparatorItem1: TTBSeparatorItem
end
- object tb_preview: TTBItem
- Caption = 'Preview'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 4
- OnClick = menu_previewClick
- end
- object tb_datedit: TTBItem
- Caption = 'DatEditor'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 5
- OnClick = menu_bineditClick
- end
- object tb_rawedit: TTBItem
- Caption = 'RawEditor'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 6
- OnClick = menu_raweditClick
- end
- object tb_txmpreplacer: TTBItem
- Caption = 'TXMP replacer'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 7
- OnClick = menu_txmpreplaceClick
- end
- object tb_extractor: TTBItem
- Caption = 'File extractor'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 8
- OnClick = menu_extractorClick
- end
- object tb_meta: TTBItem
- Caption = 'MetaEditor'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 11
- OnClick = menu_metaClick
- end
- object tb_compare: TTBItem
- Caption = 'File compare'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 10
- OnClick = menu_filecompareClick
- end
- object tb_structure: TTBItem
- Caption = 'Level structure'
- DisplayMode = nbdmImageAndText
- Enabled = False
- ImageIndex = 12
- end
end
object MDIToolbar: TTBToolbar
- Left = 0
+ Left = 29
Top = 49
Caption = 'MDIToolbar'
DockableTo = [dpTop, dpBottom]
DockMode = dmCannotFloat
- DockPos = 0
- DockRow = 2
+ DockPos = 29
+ DockRow = 3
DragHandleStyle = dhDouble
TabOrder = 2
@@ -341,4 +295,73 @@
OnMouseMove = MDITabMouseMove
OnMouseUp = MDITabMouseUp
+ end
+ end
+ object Toolbar_tools: TTBToolbar
+ Left = 328
+ Top = 23
+ Caption = 'Toolbar'
+ DockPos = 334
+ DragHandleStyle = dhDouble
+ Images = MenuImages
+ TabOrder = 3
+ OnDockChanged = Toolbar_mainDockChanged
+ object tb_preview: TTBItem
+ Caption = 'Preview'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 4
+ OnClick = menu_previewClick
+ end
+ object tb_datedit: TTBItem
+ Caption = 'DatEditor'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 5
+ OnClick = menu_bineditClick
+ end
+ object tb_rawedit: TTBItem
+ Caption = 'RawEditor'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 6
+ OnClick = menu_raweditClick
+ end
+ object tb_txmpreplacer: TTBItem
+ Caption = 'TXMP replacer'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 7
+ OnClick = menu_txmpreplaceClick
+ end
+ object tb_extractor: TTBItem
+ Caption = 'File extractor'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 8
+ OnClick = menu_extractorClick
+ end
+ object tb_meta: TTBItem
+ Caption = 'MetaEditor'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 11
+ OnClick = menu_metaClick
+ end
+ object tb_filemanager: TTBItem
+ Caption = 'FileManager'
+ OnClick = menu_filemanagerClick
+ end
+ object tb_compare: TTBItem
+ Caption = 'File compare'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 10
+ OnClick = menu_filecompareClick
+ end
+ object tb_structure: TTBItem
+ Caption = 'Level structure'
+ DisplayMode = nbdmImageAndText
+ Enabled = False
+ ImageIndex = 12
end
end
Index: oup/current/Main.pas
===================================================================
--- oup/current/Main.pas (revision 226)
+++ oup/current/Main.pas (revision 227)
@@ -45,5 +45,5 @@
menu_sep2: TTBSeparatorItem;
menu_About: TTBItem;
- Toolbar: TTBToolbar;
+ Toolbar_main: TTBToolbar;
tbOpen: TTBItem;
DockLeft: TTBDock;
@@ -58,13 +58,5 @@
menu_view_toolbar: TTBItem;
tb_separator1: TTBSeparatorItem;
- tb_preview: TTBItem;
- tb_structure: TTBItem;
- tb_compare: TTBItem;
- tb_extractor: TTBItem;
- tb_txmpreplacer: TTBItem;
- tb_rawedit: TTBItem;
- tb_datedit: TTBItem;
menu_windows_tilevert: TTBItem;
- tb_meta: TTBItem;
menu_meta: TTBItem;
TBSeparatorItem1: TTBSeparatorItem;
@@ -76,4 +68,16 @@
menu_conns: TTBSubmenuItem;
menu_windows: TTBSubmenuItem;
+ menu_filemanager: TTBItem;
+ Toolbar_tools: TTBToolbar;
+ tb_preview: TTBItem;
+ tb_datedit: TTBItem;
+ tb_rawedit: TTBItem;
+ tb_txmpreplacer: TTBItem;
+ tb_extractor: TTBItem;
+ tb_meta: TTBItem;
+ tb_filemanager: TTBItem;
+ tb_compare: TTBItem;
+ tb_structure: TTBItem;
+ menu_view_toolbar_tools: TTBItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormResize(Sender: TObject);
@@ -90,5 +94,5 @@
procedure MDITabMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
- procedure ToolbarDockChanged(Sender: TObject);
+ procedure Toolbar_mainDockChanged(Sender: TObject);
procedure CreateConnection(filename: String);
function CheckConnectionCloseable(index: Integer): Boolean;
@@ -125,4 +129,6 @@
procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
+ procedure menu_filemanagerClick(Sender: TObject);
+ procedure menu_view_toolbar_toolsClick(Sender: TObject);
private
public
@@ -139,5 +145,5 @@
uses
- LevelDB, MetaEditor;
+ LevelDB, MetaEditor, FileManager;
{$R *.dfm}
@@ -448,5 +454,5 @@
-procedure TForm_Main.ToolbarDockChanged(Sender: TObject);
+procedure TForm_Main.Toolbar_mainDockChanged(Sender: TObject);
var
toolbar: TTBToolbar;
@@ -618,5 +624,10 @@
- {#################################}
+ procedure TForm_Main.menu_filemanagerClick(Sender: TObject);
+begin
+ open_child('filemanager');
+end;
+
+{#################################}
{##### View-Menu-Handlers #####}
{#################################}
@@ -703,5 +714,11 @@
begin
menu_view_toolbar.Checked := not menu_view_toolbar.Checked;
- Toolbar.Visible := menu_view_toolbar.Checked;
+ Toolbar_main.Visible := menu_view_toolbar.Checked;
+end;
+
+procedure TForm_Main.menu_view_toolbar_toolsClick(Sender: TObject);
+begin
+ menu_view_toolbar_tools.Checked := not menu_view_toolbar_tools.Checked;
+ Toolbar_tools.Visible := menu_view_toolbar_tools.Checked;
end;
@@ -739,5 +756,5 @@
end;
const
- Tools: array[0..5] of TTool = (
+ Tools: array[0..6] of TTool = (
(name: 'binedit'; icon: 5; caption: 'Binary .dat-Editor'; classt: TForm_BinEdit),
(name: 'extractor'; icon: 8; caption: 'Extractor'; classt: TForm_Extractor),
@@ -745,4 +762,5 @@
(name: 'rawedit'; icon: 6; caption: 'Binary .raw-Editor'; classt: TForm_RawEdit),
(name: 'txmpreplace'; icon: 7; caption: 'TXMP Replacer'; classt: TForm_TxmpReplace),
+ (name: 'filemanager'; icon:-1; caption: 'FileManager'; classt: TForm_FileManager),
(name: 'meta'; icon: 11; caption: 'MetaEditor'; classt: TForm_Meta)
);
Index: oup/current/OniUnPacker.bdsproj
===================================================================
--- oup/current/OniUnPacker.bdsproj (revision 226)
+++ oup/current/OniUnPacker.bdsproj (revision 227)
@@ -176,5 +176,7 @@
$00000000
-
+
+
+
Borland Web Wizard Package
Index: oup/current/OniUnPacker.dpr
===================================================================
--- oup/current/OniUnPacker.dpr (revision 226)
+++ oup/current/OniUnPacker.dpr (revision 227)
@@ -149,5 +149,6 @@
Preview in 'Tools\Preview.pas' {Form_Preview},
RawEdit in 'Tools\RawEdit.pas' {Form_RawEdit},
- TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace};
+ TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace},
+ FileManager in 'Tools\FileManager.pas' {Form_FileManager};
{$R *.res}
Index: oup/current/Tools/FileManager.dfm
===================================================================
--- oup/current/Tools/FileManager.dfm (revision 227)
+++ oup/current/Tools/FileManager.dfm (revision 227)
@@ -0,0 +1,6 @@
+inherited Form_FileManager: TForm_FileManager
+ Caption = 'Form_FileManager'
+ OnCreate = FormCreate
+ PixelsPerInch = 96
+ TextHeight = 13
+end
Index: oup/current/Tools/FileManager.pas
===================================================================
--- oup/current/Tools/FileManager.pas (revision 227)
+++ oup/current/Tools/FileManager.pas (revision 227)
@@ -0,0 +1,36 @@
+unit FileManager;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, _BaseTemplate, StdCtrls, ExtCtrls;
+
+type
+ TForm_FileManager = class(TForm_BaseTemplate)
+ procedure FormCreate(Sender: TObject);
+ private
+ procedure NewCon(ID: Integer);
+ public
+ end;
+
+implementation
+{$R *.dfm}
+
+
+procedure TForm_FileManager.NewCon(ID: Integer);
+begin
+ if ID >= 0 then
+ begin
+ end;
+end;
+
+
+procedure TForm_FileManager.FormCreate(Sender: TObject);
+begin
+ inherited;
+ OnNewConnection := NewCon;
+ UpdateConList;
+end;
+
+end.
Index: oup/current/Tools/_TemplateFileList.dfm
===================================================================
--- oup/current/Tools/_TemplateFileList.dfm (revision 226)
+++ oup/current/Tools/_TemplateFileList.dfm (revision 227)
@@ -38,6 +38,4 @@
object tab_files: TTabSheet
Caption = 'Files'
- ExplicitWidth = 233
- ExplicitHeight = 353
object panel_extension: TPanel
Left = 0
@@ -48,5 +46,4 @@
BevelOuter = bvNone
TabOrder = 0
- ExplicitWidth = 233
DesignSize = (
190
@@ -228,5 +225,4 @@
TabOrder = 3
OnClick = combo_extensionClick
- ExplicitWidth = 232
end
object check_zerobyte: TCheckBox
@@ -247,5 +243,4 @@
AutoSize = False
TabOrder = 1
- ExplicitWidth = 232
end
object check_filtername: TCheckBox
@@ -269,6 +264,4 @@
OnClick = listClick
OnMouseDown = listMouseDown
- ExplicitWidth = 233
- ExplicitHeight = 228
end
end
@@ -276,4 +269,21 @@
Caption = 'Meta'
ImageIndex = 1
+ object filelist_meta: TVirtualStringTree
+ Left = 0
+ Top = 0
+ Width = 190
+ Height = 503
+ Align = alClient
+ Header.AutoSizeIndex = 0
+ Header.Font.Charset = DEFAULT_CHARSET
+ Header.Font.Color = clWindowText
+ Header.Font.Height = -11
+ Header.Font.Name = 'Tahoma'
+ Header.Font.Style = []
+ Header.MainColumn = -1
+ Header.Options = [hoColumnResize, hoDrag]
+ TabOrder = 0
+ Columns = <>
+ end
end
end
Index: oup/current/Tools/_TemplateFileList.pas
===================================================================
--- oup/current/Tools/_TemplateFileList.pas (revision 226)
+++ oup/current/Tools/_TemplateFileList.pas (revision 227)
@@ -6,5 +6,5 @@
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, _TemplateFile, StdCtrls, ExtCtrls, Menus, Buttons,
- ComCtrls, TypeDefs;
+ ComCtrls, TypeDefs, VirtualTrees;
type
@@ -39,4 +39,5 @@
filelist: TListBox;
tab_meta: TTabSheet;
+ filelist_meta: TVirtualStringTree;
procedure NewCon(ID: Integer);