releases/0.33a/Main.pas

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, Clipbrd, ExtCtrls, ComCtrls, Menus, Grids,
  MPHexEditor, ToolWin, ImgList, Tabs,
  MDITab, TB2Item, TB2Dock, TB2Toolbar, TB2MDI,
  Data, Functions, DataStructures, OniDataClass, Exporters,
  Helper_LevelDB, Settings, Template,
  BinEdit, Extractor, Preview, RawEdit, TxmpReplace;

type
  TForm_Main = class(TForm)
    saved:      TSaveDialog;
    opend:      TOpenDialog;
    statbar:    TStatusBar;
    MenuImages: TImageList;
    DockTop:    TTBDock;
    MainMenu:   TTBToolbar;
    menu_main:  TTBSubmenuItem;
    menu_loadfile: TTBItem;
    menu_sep1:  TTBSeparatorItem;
    menu_settings: TTBItem;
    menu_sep4:  TTBSeparatorItem;
    menu_exit:  TTBItem;
    menu_convert: TTBSubmenuItem;
    menu_createdb: TTBItem;
    menu_createlvl: TTBItem;
    menu_tools: TTBSubmenuItem;
    menu_preview: TTBItem;
    menu_binedit: TTBItem;
    menu_rawedit: TTBItem;
    menu_txmpreplace: TTBItem;
    menu_extractor: TTBItem;
    menu_filecompare: TTBItem;
    menu_levelstructedit: TTBItem;
    menu_windows: TTBSubmenuItem;
    menu_windows_cascade: TTBItem;
    menu_windows_tile: TTBItem;
    menu_windows_closeall: TTBItem;
    menu_sep3:  TTBSeparatorItem;
    menu_windows_next: TTBItem;
    menu_windows_previous: TTBItem;
    menu_sep2:  TTBSeparatorItem;
    menu_About: TTBItem;
    Toolbar:    TTBToolbar;
    tbOpen:     TTBItem;
    DockLeft:   TTBDock;
    DockRight:  TTBDock;
    DockBottom: TTBDock;
    MDIToolbar: TTBToolbar;
    TBControlItem1: TTBControlItem;
    MDITab:     TMDITab;
    menu_view:  TTBSubmenuItem;
    menu_view_mdibar: TTBItem;
    menu_view_statusbar: TTBItem;
    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;
    tb_db2dat: TTBItem;
    tb_dat2db: TTBItem;
    menu_loaddb: TTBItem;
    tb_opendb: TTBItem;
    procedure LoadFile(typedb: Boolean);
    function TryCloseAll: Boolean;
    procedure menu_AboutClick(Sender: TObject);
    procedure menu_settingsClick(Sender: TObject);
    procedure menu_filecompareClick(Sender: TObject);
    procedure menu_raweditClick(Sender: TObject);
    procedure menu_createlvlClick(Sender: TObject);
    procedure menu_extractorClick(Sender: TObject);
    procedure menu_createdbClick(Sender: TObject);
    procedure menu_windows_previousClick(Sender: TObject);
    procedure menu_windows_nextClick(Sender: TObject);
    procedure menu_windows_tileClick(Sender: TObject);
    function open_child(window_context: String; fileid: Integer): TForm_ToolTemplate;
    procedure menu_windows_closeallClick(Sender: TObject);
    procedure menu_windows_cascadeClick(Sender: TObject);
    procedure menu_bineditClick(Sender: TObject);
    procedure menu_loadfileClick(Sender: TObject);
    procedure menu_txmpreplaceClick(Sender: TObject);
    procedure menu_exitClick(Sender: TObject);
    procedure menu_previewClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure UpdateStatBar;
    procedure menu_view_mdibarClick(Sender: TObject);
    procedure menu_view_statusbarClick(Sender: TObject);
    procedure menu_view_toolbarClick(Sender: TObject);
    procedure MDITabDrawTab(Control: TCustomTabControl; TabIndex: Integer;
      const Rect: TRect; Active: Boolean);
    procedure ActivateTools(active: Boolean);
    procedure MDITabMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure menu_windows_tilevertClick(Sender: TObject);
    procedure menu_metaClick(Sender: TObject);
    procedure ToolbarDockChanged(Sender: TObject);
    procedure menu_loaddbClick(Sender: TObject);
  private
  public
  end;

var
  Form_Main: TForm_Main;

implementation

{$R *.dfm}


procedure TForm_Main.FormCreate(Sender: TObject);
begin
  Self.Caption := 'Oni Un/Packer ' + version;
  Self.FormResize(Self);

  if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
  begin
    AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) +
      '\oniunpacker.ini');
    Reset(AppSettingsFile);
    Read(AppSettingsFile, AppSettings);
    CloseFile(AppSettingsFile);
  end
  else
  begin
    AppSettings.DatPath     := 'D:\Spiele\Oni\GameDataFolder';
    AppSettings.ExtractPath := 'C:\Dokumente und Einstellungen\Administrator\Desktop';
    AppSettings.FilenumbersAsHex := False;
    AppSettings.CharSet     := DEFAULT_CHARSET;
    AppSettings.HideUnusedData := False;
  end;

  if MidStr(ParamStr(1), 1, 3) = 'opf' then
  begin
    ShowMessage('Load OPF-File: ' + ParamStr(2));
  end
  else if MidStr(ParamStr(1), 1, 4) = 'oldb' then
  begin
    if not CreateDataConnection(ParamStr(2), ODB_ADB) then
      ShowMessage('Error while loading the file:' + CrLf + ParamStr(
        2) + CrLf + 'Perhaps not an OniUnPacker-LevelDatabase-file?');
  end
  else if MidStr(ParamStr(1), 1, 3) = 'dat' then
  begin
    if not CreateDataConnection(ParamStr(2), ODB_Dat) then
      ShowMessage('Error while loading the file:' + CrLf + ParamStr(
        2) + CrLf + 'Perhaps not an Oni-.dat-file?');
  end;
  UpdateStatBar;
end;


procedure TForm_Main.FormResize(Sender: TObject);
const
  MinWidth: Integer  = 750;
  MinHeight: Integer = 500;
begin
  if Self.Width < MinWidth then
    Self.Width := MinWidth;
  if Self.Height < MinHeight then
    Self.Height := MinHeight;
  statbar.Panels.Items[0].Width := Self.Width - 200;
  MDITab.Width := Self.Width - 20;
end;


procedure TForm_Main.MDITabDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  x, y: Integer;
  iconindex: Integer;
  caption: String;
begin
  iconindex := TMDITab(Control).Glyphs[TabIndex];
  caption := TMDITab(Control).Captions[TabIndex];
  if active then
  begin
    Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsItalic];
    y := Rect.Top + 1;
  end else
    y := Rect.Top;
  if iconindex >= 0 then
  begin
    TMDITab(Control).Images.Draw(Control.Canvas, Rect.Left + 4, y, iconindex);
    x := Rect.Left + 26;
  end else
    x := Rect.Left + 4;
  Control.Canvas.TextOut(x, y + 2, caption);
end;


procedure TForm_Main.MDITabMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
  index: Integer;
begin
  pt.X := X;
  pt.Y := Y;
  index := MDITab.GetTabAtPos(pt);
  if (Button = mbRight) and (index >= 0) then
    MDITab.MDIChildren[index].Close;
end;

procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) + '\oniunpacker.ini');
  if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
    Reset(AppSettingsFile)
  else
    Rewrite(AppSettingsFile);
  Write(AppSettingsFile, AppSettings);
  CloseFile(AppSettingsFile);
  Action := caFree;
end;


procedure TForm_Main.ActivateTools(active: Boolean);
begin
  menu_tools.Enabled := active;
  tb_preview.Enabled := active;
  tb_datedit.Enabled := active;
  tb_rawedit.Enabled := active;
  tb_txmpreplacer.Enabled := active;
  tb_extractor.Enabled := active;
//  tb_compare.Enabled := active;
//  tb_structure.Enabled := active;
end;

procedure TForm_Main.UpdateStatBar;
begin
  if Assigned(OniDataConnection) then
  begin
    Self.Caption      := 'Oni Un/Packer ' + version + ' (' + ExtractFileName(
      OniDataConnection.FileName) + ')';
    ActivateTools(True);
    statbar.Panels.Items[1].Text := 'Files: ' + IntToStr(OniDataConnection.GetFilesCount);
    statbar.Panels.Items[2].Text :=
      'Extensions: ' + IntToStr(Length(OniDataConnection.GetExtensionsList));
    case OniDataConnection.Backend of
      ODB_Dat:
        begin
          statbar.Panels.Items[0].Text := '.dat loaded: ' + OniDataConnection.FileName;
        end;
      ODB_ADB:
        begin
          statbar.Panels.Items[0].Text := 'OLDB loaded: ' + OniDataConnection.FileName;
        end;
    else
      Self.Caption      := 'Oni Un/Packer ' + version;
      statbar.Panels.Items[0].Text := 'Nothing loaded';
      statbar.Panels.Items[1].Text := 'Files: -';
      statbar.Panels.Items[2].Text := 'Extensions: -';
      ActivateTools(False);
    end;
  end
  else
  begin
    Self.Caption      := 'Oni Un/Packer ' + version;
    statbar.Panels.Items[0].Text := 'Nothing loaded';
    statbar.Panels.Items[1].Text := 'Files: -';
    statbar.Panels.Items[2].Text := 'Extensions: -';
    ActivateTools(False);
  end;
end;


procedure TForm_Main.ToolbarDockChanged(Sender: TObject);
var
  toolbar: TTBToolbar;
  position: TTBDockPosition;
  mode: TTBItemDisplayMode;
  i: Integer;
  isEnabled: Boolean;
begin
  toolbar := TTBToolbar(Sender);
  if toolbar.Floating then
    mode := nbdmImageAndText
  else begin
    position := toolbar.CurrentDock.Position;
    if position in [dpLeft, dpRight] then
      mode := nbdmDefault
    else
      mode := nbdmImageAndText;
  end;
  for i := 0 to toolbar.Items.Count - 1 do
    toolbar.Items.Items[i].DisplayMode := mode;
end;

function TForm_Main.TryCloseAll: Boolean;
begin
  menu_windows_closeallClick(Self);
  Application.ProcessMessages;
  if MDITab.MDIChildCount = 0 then
    Result := True
  else
    Result := False;
end;


procedure TForm_Main.LoadFile(typedb: Boolean);
var
  ext: String;
begin
  if TryCloseAll then
  begin
    CloseDataConnection;
    opend.InitialDir := AppSettings.DatPath;
    opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
    if typedb then
      opend.FilterIndex := 3
    else
      opend.FilterIndex := 2;
    if opend.Execute then
    begin
      ext := ExtractFileExt(opend.FileName);
      if ext = '.dat' then
      begin
        if not CreateDataConnection(opend.FileName, ODB_Dat) then
          ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
            CrLf + 'Perhaps not an Oni-.dat-file?');
      end else if ext = '.oldb' then
      begin
        if not CreateDataConnection(opend.FileName, ODB_ADB) then
          ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
            CrLf + 'Perhaps not an OniUnPacker-LevelDatabase-file?');
      end else
        ShowMessage('Incompatible file');
      AppSettings.DatPath := ExtractFilepath(opend.FileName);
    end;
  end;
  UpdateStatBar;
end;


 {#################################}
 {##### Main-Menu-Handlers    #####}
 {#################################}
procedure TForm_Main.menu_loaddbClick(Sender: TObject);
begin
  LoadFile(True);
end;

procedure TForm_Main.menu_loadfileClick(Sender: TObject);
begin
  LoadFile(False);
end;


procedure TForm_Main.menu_settingsClick(Sender: TObject);
begin
  Form_Settings.Visible := True;
  Self.Enabled   := False;
end;


procedure TForm_Main.menu_exitClick(Sender: TObject);
begin
  Self.Close;
end;

 {####################################}
 {##### Converters-Menu-Handlers #####}
 {####################################}
procedure TForm_Main.menu_createdbClick(Sender: TObject);
begin
  if Assigned(OniDataConnection) then
    if MessageBox(Self.Handle, PChar('You have currently opened a level-file. ' +
          'Do you want to close it to continue?'), PChar('Close file?'),
          MB_YESNO + MB_ICONQUESTION) = ID_NO then
      Exit
    else begin
      if TryCloseAll then
      begin
        CloseDataConnection;
        UpdateStatBar;
      end else
        Exit;
    end;
  opend.Filter     := 'Oni-Dat-Files|*.dat';
  saved.Filter     := 'OUP-Level-DB (*.oldb)|*.oldb';
  saved.DefaultExt := 'oldb';
  if opend.Execute then
    if saved.Execute then
      Form_LevelDB.CreateDatabase(opend.FileName, saved.FileName);
end;


procedure TForm_Main.menu_createlvlClick(Sender: TObject);
begin
  if Assigned(OniDataConnection) then
    if MessageBox(Self.Handle, PChar('You have currently opened a level-file. ' +
          'Do you want to close it to continue?'), PChar('Close file?'),
          MB_YESNO + MB_ICONQUESTION) = ID_NO then
      Exit
    else begin
      if TryCloseAll then
      begin
        CloseDataConnection;
        UpdateStatBar;
      end else
        Exit;
    end;
  opend.Filter     := 'OUP-Level-DB (*.oldb)|*.oldb';
  saved.Filter     := 'Oni-Dat-Files|*.dat';
  saved.DefaultExt := 'dat';
  if opend.Execute then
    if saved.Execute then
      Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
end;

 {#################################}
 {##### Tools-Menu-Handlers   #####}
 {#################################}
procedure TForm_Main.menu_previewClick(Sender: TObject);
begin
  open_child('preview', -1);
end;


procedure TForm_Main.menu_txmpreplaceClick(Sender: TObject);
begin
  open_child('txmpreplace', -1);
end;


procedure TForm_Main.menu_bineditClick(Sender: TObject);
begin
  open_child('binedit', -1);
end;


procedure TForm_Main.menu_raweditClick(Sender: TObject);
begin
  open_child('rawedit', -1);
end;


procedure TForm_Main.menu_extractorClick(Sender: TObject);
begin
  open_child('extractor', -1);
end;


procedure TForm_Main.menu_metaClick(Sender: TObject);
begin
  ShowMessage('TBD');
end;


procedure TForm_Main.menu_filecompareClick(Sender: TObject);
begin
  open_child('compare', -1);
end;


 {#################################}
 {#####   View-Menu-Handlers  #####}
 {#################################}
procedure TForm_Main.menu_view_mdibarClick(Sender: TObject);
begin
  menu_view_mdibar.Checked := not menu_view_mdibar.Checked;
  mditoolbar.Visible := menu_view_mdibar.Checked;
end;


procedure TForm_Main.menu_view_statusbarClick(Sender: TObject);
begin
  menu_view_statusbar.Checked := not menu_view_statusbar.Checked;
  statbar.Visible := menu_view_statusbar.Checked;
end;


procedure TForm_Main.menu_view_toolbarClick(Sender: TObject);
begin
  menu_view_toolbar.Checked := not menu_view_toolbar.Checked;
  Toolbar.Visible := menu_view_toolbar.Checked;
end;


 {#################################}
 {#####  Window-Menu-Handlers #####}
 {#################################}
procedure TForm_Main.menu_windows_cascadeClick(Sender: TObject);
begin
  Self.Cascade;
end;


procedure TForm_Main.menu_windows_tileClick(Sender: TObject);
begin
  Self.TileMode := tbHorizontal;
  Self.Tile;
end;

procedure TForm_Main.menu_windows_tilevertClick(Sender: TObject);
begin
  Self.TileMode := tbVertical;
  Self.Tile;
end;


procedure TForm_Main.menu_windows_closeallClick(Sender: TObject);
begin
  MDITab.CloseAll;
end;


procedure TForm_Main.menu_windows_nextClick(Sender: TObject);
begin
  if MDIChildCount > 1 then
    if MDITab.TabIndex = MDITab.MDIChildCount - 1 then
      MDITab.MDIChildren[0].BringToFront
    else
      MDITab.MDIChildren[MDITab.TabIndex + 1].BringToFront;
end;


procedure TForm_Main.menu_windows_previousClick(Sender: TObject);
begin
  if MDIChildCount > 1 then
    if MDITab.TabIndex = 0 then
      MDITab.MDIChildren[MDITab.MDIChildCount - 1].BringToFront
    else
      MDITab.MDIChildren[MDITab.TabIndex - 1].BringToFront;
end;


procedure TForm_Main.menu_AboutClick(Sender: TObject);
begin
  ShowMessage('Will be implemented later ;)');
end;


function TForm_Main.open_child(window_context: String; fileid: Integer): TForm_ToolTemplate;
var
  toolform: TForm_ToolTemplate;
  i:       Integer;
  tag:     Integer;
  iconindex: Integer;
begin
  Result := nil;

  tag := 1;
  if MDIChildCount > 0 then
    for i := 0 to MDIChildCount - 1 do
      if MDIChildren[i].Tag >= tag then
        tag := MDIChildren[i].Tag + 1;

  iconindex := -1;

  if window_context = 'binedit' then
  begin
    toolform         := TForm_BinEdit.Create(Self);
    toolform.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
    iconindex        := 4;
  end;
  if window_context = 'extractor' then
  begin
    toolform         := TForm_Extractor.Create(Self);
    toolform.Caption := 'Extractor ' + IntToStr(tag);
    iconindex        := 7;
  end;
  if window_context = 'preview' then
  begin
    toolform         := TForm_Preview.Create(Self);
    toolform.Caption := 'Preview-Window ' + IntToStr(tag);
    iconindex        := 3;
  end;
  if window_context = 'rawedit' then
  begin
    toolform         := TForm_RawEdit.Create(Self);
    toolform.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
    iconindex        := 5;
  end;
  if window_context = 'txmpreplace' then
  begin
    toolform         := TForm_TxmpReplace.Create(Application);
    toolform.Caption := 'TXMP Replacer ' + IntToStr(tag);
    iconindex        := 6;
  end;

  if Assigned(toolform) then
  begin
    toolform.Name    := window_context + IntToStr(tag);
    toolform.Tag     := tag;
    MDITab.AddTab(TForm(toolform), iconindex);
    if fileid > -1 then
      toolform.SelectFileID(fileid);
    Result := toolform;
  end;
end;

end.
Revision:	53
Committed:	Sat Dec 23 23:36:07 2006 UTC (18 years, 10 months ago) by alloc
Content type:	text/x-pascal
Original Path:	*oup/current/Main.pas*
File size:	17793 byte(s)
Log Message:
#	Content
1	unit Main;
2
3	interface
4
5	uses
6	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	Dialogs, StdCtrls, StrUtils, Clipbrd, ExtCtrls, ComCtrls, Menus, Grids,
8	MPHexEditor, ToolWin, ImgList, Tabs,
9	MDITab, TB2Item, TB2Dock, TB2Toolbar, TB2MDI,
10	Data, Functions, DataStructures, OniDataClass, Exporters,
11	Helper_LevelDB, Settings, Template,
12	BinEdit, Extractor, Preview, RawEdit, TxmpReplace;
13
14	type
15	TForm_Main = class(TForm)
16	saved: TSaveDialog;
17	opend: TOpenDialog;
18	statbar: TStatusBar;
19	MenuImages: TImageList;
20	DockTop: TTBDock;
21	MainMenu: TTBToolbar;
22	menu_main: TTBSubmenuItem;
23	menu_loadfile: TTBItem;
24	menu_sep1: TTBSeparatorItem;
25	menu_settings: TTBItem;
26	menu_sep4: TTBSeparatorItem;
27	menu_exit: TTBItem;
28	menu_convert: TTBSubmenuItem;
29	menu_createdb: TTBItem;
30	menu_createlvl: TTBItem;
31	menu_tools: TTBSubmenuItem;
32	menu_preview: TTBItem;
33	menu_binedit: TTBItem;
34	menu_rawedit: TTBItem;
35	menu_txmpreplace: TTBItem;
36	menu_extractor: TTBItem;
37	menu_filecompare: TTBItem;
38	menu_levelstructedit: TTBItem;
39	menu_windows: TTBSubmenuItem;
40	menu_windows_cascade: TTBItem;
41	menu_windows_tile: TTBItem;
42	menu_windows_closeall: TTBItem;
43	menu_sep3: TTBSeparatorItem;
44	menu_windows_next: TTBItem;
45	menu_windows_previous: TTBItem;
46	menu_sep2: TTBSeparatorItem;
47	menu_About: TTBItem;
48	Toolbar: TTBToolbar;
49	tbOpen: TTBItem;
50	DockLeft: TTBDock;
51	DockRight: TTBDock;
52	DockBottom: TTBDock;
53	MDIToolbar: TTBToolbar;
54	TBControlItem1: TTBControlItem;
55	MDITab: TMDITab;
56	menu_view: TTBSubmenuItem;
57	menu_view_mdibar: TTBItem;
58	menu_view_statusbar: TTBItem;
59	menu_view_toolbar: TTBItem;
60	tb_separator1: TTBSeparatorItem;
61	tb_preview: TTBItem;
62	tb_structure: TTBItem;
63	tb_compare: TTBItem;
64	tb_extractor: TTBItem;
65	tb_txmpreplacer: TTBItem;
66	tb_rawedit: TTBItem;
67	tb_datedit: TTBItem;
68	menu_windows_tilevert: TTBItem;
69	tb_meta: TTBItem;
70	menu_meta: TTBItem;
71	TBSeparatorItem1: TTBSeparatorItem;
72	tb_db2dat: TTBItem;
73	tb_dat2db: TTBItem;
74	menu_loaddb: TTBItem;
75	tb_opendb: TTBItem;
76	procedure LoadFile(typedb: Boolean);
77	function TryCloseAll: Boolean;
78	procedure menu_AboutClick(Sender: TObject);
79	procedure menu_settingsClick(Sender: TObject);
80	procedure menu_filecompareClick(Sender: TObject);
81	procedure menu_raweditClick(Sender: TObject);
82	procedure menu_createlvlClick(Sender: TObject);
83	procedure menu_extractorClick(Sender: TObject);
84	procedure menu_createdbClick(Sender: TObject);
85	procedure menu_windows_previousClick(Sender: TObject);
86	procedure menu_windows_nextClick(Sender: TObject);
87	procedure menu_windows_tileClick(Sender: TObject);
88	function open_child(window_context: String; fileid: Integer): TForm_ToolTemplate;
89	procedure menu_windows_closeallClick(Sender: TObject);
90	procedure menu_windows_cascadeClick(Sender: TObject);
91	procedure menu_bineditClick(Sender: TObject);
92	procedure menu_loadfileClick(Sender: TObject);
93	procedure menu_txmpreplaceClick(Sender: TObject);
94	procedure menu_exitClick(Sender: TObject);
95	procedure menu_previewClick(Sender: TObject);
96	procedure FormClose(Sender: TObject; var Action: TCloseAction);
97	procedure FormResize(Sender: TObject);
98	procedure FormCreate(Sender: TObject);
99	procedure UpdateStatBar;
100	procedure menu_view_mdibarClick(Sender: TObject);
101	procedure menu_view_statusbarClick(Sender: TObject);
102	procedure menu_view_toolbarClick(Sender: TObject);
103	procedure MDITabDrawTab(Control: TCustomTabControl; TabIndex: Integer;
104	const Rect: TRect; Active: Boolean);
105	procedure ActivateTools(active: Boolean);
106	procedure MDITabMouseUp(Sender: TObject; Button: TMouseButton;
107	Shift: TShiftState; X, Y: Integer);
108	procedure menu_windows_tilevertClick(Sender: TObject);
109	procedure menu_metaClick(Sender: TObject);
110	procedure ToolbarDockChanged(Sender: TObject);
111	procedure menu_loaddbClick(Sender: TObject);
112	private
113	public
114	end;
115
116	var
117	Form_Main: TForm_Main;
118
119	implementation
120
121	{$R *.dfm}
122
123
124
125	procedure TForm_Main.FormCreate(Sender: TObject);
126	begin
127	Self.Caption := 'Oni Un/Packer ' + version;
128	Self.FormResize(Self);
129
130	if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
131	begin
132	AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) +
133	'\oniunpacker.ini');
134	Reset(AppSettingsFile);
135	Read(AppSettingsFile, AppSettings);
136	CloseFile(AppSettingsFile);
137	end
138	else
139	begin
140	AppSettings.DatPath := 'D:\Spiele\Oni\GameDataFolder';
141	AppSettings.ExtractPath := 'C:\Dokumente und Einstellungen\Administrator\Desktop';
142	AppSettings.FilenumbersAsHex := False;
143	AppSettings.CharSet := DEFAULT_CHARSET;
144	AppSettings.HideUnusedData := False;
145	end;
146
147	if MidStr(ParamStr(1), 1, 3) = 'opf' then
148	begin
149	ShowMessage('Load OPF-File: ' + ParamStr(2));
150	end
151	else if MidStr(ParamStr(1), 1, 4) = 'oldb' then
152	begin
153	if not CreateDataConnection(ParamStr(2), ODB_ADB) then
154	ShowMessage('Error while loading the file:' + CrLf + ParamStr(
155	2) + CrLf + 'Perhaps not an OniUnPacker-LevelDatabase-file?');
156	end
157	else if MidStr(ParamStr(1), 1, 3) = 'dat' then
158	begin
159	if not CreateDataConnection(ParamStr(2), ODB_Dat) then
160	ShowMessage('Error while loading the file:' + CrLf + ParamStr(
161	2) + CrLf + 'Perhaps not an Oni-.dat-file?');
162	end;
163	UpdateStatBar;
164	end;
165
166
167
168
169	procedure TForm_Main.FormResize(Sender: TObject);
170	const
171	MinWidth: Integer = 750;
172	MinHeight: Integer = 500;
173	begin
174	if Self.Width < MinWidth then
175	Self.Width := MinWidth;
176	if Self.Height < MinHeight then
177	Self.Height := MinHeight;
178	statbar.Panels.Items[0].Width := Self.Width - 200;
179	MDITab.Width := Self.Width - 20;
180	end;
181
182
183
184
185	procedure TForm_Main.MDITabDrawTab(Control: TCustomTabControl;
186	TabIndex: Integer; const Rect: TRect; Active: Boolean);
187	var
188	x, y: Integer;
189	iconindex: Integer;
190	caption: String;
191	begin
192	iconindex := TMDITab(Control).Glyphs[TabIndex];
193	caption := TMDITab(Control).Captions[TabIndex];
194	if active then
195	begin
196	Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsItalic];
197	y := Rect.Top + 1;
198	end else
199	y := Rect.Top;
200	if iconindex >= 0 then
201	begin
202	TMDITab(Control).Images.Draw(Control.Canvas, Rect.Left + 4, y, iconindex);
203	x := Rect.Left + 26;
204	end else
205	x := Rect.Left + 4;
206	Control.Canvas.TextOut(x, y + 2, caption);
207	end;
208
209
210
211
212
213
214	procedure TForm_Main.MDITabMouseUp(Sender: TObject; Button: TMouseButton;
215	Shift: TShiftState; X, Y: Integer);
216	var
217	pt: TPoint;
218	index: Integer;
219	begin
220	pt.X := X;
221	pt.Y := Y;
222	index := MDITab.GetTabAtPos(pt);
223	if (Button = mbRight) and (index >= 0) then
224	MDITab.MDIChildren[index].Close;
225	end;
226
227	procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
228	begin
229	AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) + '\oniunpacker.ini');
230	if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
231	Reset(AppSettingsFile)
232	else
233	Rewrite(AppSettingsFile);
234	Write(AppSettingsFile, AppSettings);
235	CloseFile(AppSettingsFile);
236	Action := caFree;
237	end;
238
239
240
241	procedure TForm_Main.ActivateTools(active: Boolean);
242	begin
243	menu_tools.Enabled := active;
244	tb_preview.Enabled := active;
245	tb_datedit.Enabled := active;
246	tb_rawedit.Enabled := active;
247	tb_txmpreplacer.Enabled := active;
248	tb_extractor.Enabled := active;
249	// tb_compare.Enabled := active;
250	// tb_structure.Enabled := active;
251	end;
252
253	procedure TForm_Main.UpdateStatBar;
254	begin
255	if Assigned(OniDataConnection) then
256	begin
257	Self.Caption := 'Oni Un/Packer ' + version + ' (' + ExtractFileName(
258	OniDataConnection.FileName) + ')';
259	ActivateTools(True);
260	statbar.Panels.Items[1].Text := 'Files: ' + IntToStr(OniDataConnection.GetFilesCount);
261	statbar.Panels.Items[2].Text :=
262	'Extensions: ' + IntToStr(Length(OniDataConnection.GetExtensionsList));
263	case OniDataConnection.Backend of
264	ODB_Dat:
265	begin
266	statbar.Panels.Items[0].Text := '.dat loaded: ' + OniDataConnection.FileName;
267	end;
268	ODB_ADB:
269	begin
270	statbar.Panels.Items[0].Text := 'OLDB loaded: ' + OniDataConnection.FileName;
271	end;
272	else
273	Self.Caption := 'Oni Un/Packer ' + version;
274	statbar.Panels.Items[0].Text := 'Nothing loaded';
275	statbar.Panels.Items[1].Text := 'Files: -';
276	statbar.Panels.Items[2].Text := 'Extensions: -';
277	ActivateTools(False);
278	end;
279	end
280	else
281	begin
282	Self.Caption := 'Oni Un/Packer ' + version;
283	statbar.Panels.Items[0].Text := 'Nothing loaded';
284	statbar.Panels.Items[1].Text := 'Files: -';
285	statbar.Panels.Items[2].Text := 'Extensions: -';
286	ActivateTools(False);
287	end;
288	end;
289
290
291
292
293	procedure TForm_Main.ToolbarDockChanged(Sender: TObject);
294	var
295	toolbar: TTBToolbar;
296	position: TTBDockPosition;
297	mode: TTBItemDisplayMode;
298	i: Integer;
299	isEnabled: Boolean;
300	begin
301	toolbar := TTBToolbar(Sender);
302	if toolbar.Floating then
303	mode := nbdmImageAndText
304	else begin
305	position := toolbar.CurrentDock.Position;
306	if position in [dpLeft, dpRight] then
307	mode := nbdmDefault
308	else
309	mode := nbdmImageAndText;
310	end;
311	for i := 0 to toolbar.Items.Count - 1 do
312	toolbar.Items.Items[i].DisplayMode := mode;
313	end;
314
315	function TForm_Main.TryCloseAll: Boolean;
316	begin
317	menu_windows_closeallClick(Self);
318	Application.ProcessMessages;
319	if MDITab.MDIChildCount = 0 then
320	Result := True
321	else
322	Result := False;
323	end;
324
325
326
327	procedure TForm_Main.LoadFile(typedb: Boolean);
328	var
329	ext: String;
330	begin
331	if TryCloseAll then
332	begin
333	CloseDataConnection;
334	opend.InitialDir := AppSettings.DatPath;
335	opend.Filter := 'Compatible level files\|.dat;.oldb\|Oni level (.dat)\|.dat\|OUP level database (.oldb)\|.oldb\|Any (.)\|*';
336	if typedb then
337	opend.FilterIndex := 3
338	else
339	opend.FilterIndex := 2;
340	if opend.Execute then
341	begin
342	ext := ExtractFileExt(opend.FileName);
343	if ext = '.dat' then
344	begin
345	if not CreateDataConnection(opend.FileName, ODB_Dat) then
346	ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
347	CrLf + 'Perhaps not an Oni-.dat-file?');
348	end else if ext = '.oldb' then
349	begin
350	if not CreateDataConnection(opend.FileName, ODB_ADB) then
351	ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
352	CrLf + 'Perhaps not an OniUnPacker-LevelDatabase-file?');
353	end else
354	ShowMessage('Incompatible file');
355	AppSettings.DatPath := ExtractFilepath(opend.FileName);
356	end;
357	end;
358	UpdateStatBar;
359	end;
360
361
362	{#################################}
363	{##### Main-Menu-Handlers #####}
364	{#################################}
365	procedure TForm_Main.menu_loaddbClick(Sender: TObject);
366	begin
367	LoadFile(True);
368	end;
369
370	procedure TForm_Main.menu_loadfileClick(Sender: TObject);
371	begin
372	LoadFile(False);
373	end;
374
375
376
377
378	procedure TForm_Main.menu_settingsClick(Sender: TObject);
379	begin
380	Form_Settings.Visible := True;
381	Self.Enabled := False;
382	end;
383
384
385
386
387	procedure TForm_Main.menu_exitClick(Sender: TObject);
388	begin
389	Self.Close;
390	end;
391
392	{####################################}
393	{##### Converters-Menu-Handlers #####}
394	{####################################}
395	procedure TForm_Main.menu_createdbClick(Sender: TObject);
396	begin
397	if Assigned(OniDataConnection) then
398	if MessageBox(Self.Handle, PChar('You have currently opened a level-file. ' +
399	'Do you want to close it to continue?'), PChar('Close file?'),
400	MB_YESNO + MB_ICONQUESTION) = ID_NO then
401	Exit
402	else begin
403	if TryCloseAll then
404	begin
405	CloseDataConnection;
406	UpdateStatBar;
407	end else
408	Exit;
409	end;
410	opend.Filter := 'Oni-Dat-Files\|*.dat';
411	saved.Filter := 'OUP-Level-DB (.oldb)\|.oldb';
412	saved.DefaultExt := 'oldb';
413	if opend.Execute then
414	if saved.Execute then
415	Form_LevelDB.CreateDatabase(opend.FileName, saved.FileName);
416	end;
417
418
419
420
421	procedure TForm_Main.menu_createlvlClick(Sender: TObject);
422	begin
423	if Assigned(OniDataConnection) then
424	if MessageBox(Self.Handle, PChar('You have currently opened a level-file. ' +
425	'Do you want to close it to continue?'), PChar('Close file?'),
426	MB_YESNO + MB_ICONQUESTION) = ID_NO then
427	Exit
428	else begin
429	if TryCloseAll then
430	begin
431	CloseDataConnection;
432	UpdateStatBar;
433	end else
434	Exit;
435	end;
436	opend.Filter := 'OUP-Level-DB (.oldb)\|.oldb';
437	saved.Filter := 'Oni-Dat-Files\|*.dat';
438	saved.DefaultExt := 'dat';
439	if opend.Execute then
440	if saved.Execute then
441	Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
442	end;
443
444	{#################################}
445	{##### Tools-Menu-Handlers #####}
446	{#################################}
447	procedure TForm_Main.menu_previewClick(Sender: TObject);
448	begin
449	open_child('preview', -1);
450	end;
451
452
453	procedure TForm_Main.menu_txmpreplaceClick(Sender: TObject);
454	begin
455	open_child('txmpreplace', -1);
456	end;
457
458
459	procedure TForm_Main.menu_bineditClick(Sender: TObject);
460	begin
461	open_child('binedit', -1);
462	end;
463
464
465	procedure TForm_Main.menu_raweditClick(Sender: TObject);
466	begin
467	open_child('rawedit', -1);
468	end;
469
470
471	procedure TForm_Main.menu_extractorClick(Sender: TObject);
472	begin
473	open_child('extractor', -1);
474	end;
475
476
477	procedure TForm_Main.menu_metaClick(Sender: TObject);
478	begin
479	ShowMessage('TBD');
480	end;
481
482
483	procedure TForm_Main.menu_filecompareClick(Sender: TObject);
484	begin
485	open_child('compare', -1);
486	end;
487
488
489	{#################################}
490	{##### View-Menu-Handlers #####}
491	{#################################}
492	procedure TForm_Main.menu_view_mdibarClick(Sender: TObject);
493	begin
494	menu_view_mdibar.Checked := not menu_view_mdibar.Checked;
495	mditoolbar.Visible := menu_view_mdibar.Checked;
496	end;
497
498
499
500
501	procedure TForm_Main.menu_view_statusbarClick(Sender: TObject);
502	begin
503	menu_view_statusbar.Checked := not menu_view_statusbar.Checked;
504	statbar.Visible := menu_view_statusbar.Checked;
505	end;
506
507
508
509
510	procedure TForm_Main.menu_view_toolbarClick(Sender: TObject);
511	begin
512	menu_view_toolbar.Checked := not menu_view_toolbar.Checked;
513	Toolbar.Visible := menu_view_toolbar.Checked;
514	end;
515
516
517
518	{#################################}
519	{##### Window-Menu-Handlers #####}
520	{#################################}
521	procedure TForm_Main.menu_windows_cascadeClick(Sender: TObject);
522	begin
523	Self.Cascade;
524	end;
525
526
527
528	procedure TForm_Main.menu_windows_tileClick(Sender: TObject);
529	begin
530	Self.TileMode := tbHorizontal;
531	Self.Tile;
532	end;
533
534	procedure TForm_Main.menu_windows_tilevertClick(Sender: TObject);
535	begin
536	Self.TileMode := tbVertical;
537	Self.Tile;
538	end;
539
540
541	procedure TForm_Main.menu_windows_closeallClick(Sender: TObject);
542	begin
543	MDITab.CloseAll;
544	end;
545
546
547
548	procedure TForm_Main.menu_windows_nextClick(Sender: TObject);
549	begin
550	if MDIChildCount > 1 then
551	if MDITab.TabIndex = MDITab.MDIChildCount - 1 then
552	MDITab.MDIChildren[0].BringToFront
553	else
554	MDITab.MDIChildren[MDITab.TabIndex + 1].BringToFront;
555	end;
556
557
558
559	procedure TForm_Main.menu_windows_previousClick(Sender: TObject);
560	begin
561	if MDIChildCount > 1 then
562	if MDITab.TabIndex = 0 then
563	MDITab.MDIChildren[MDITab.MDIChildCount - 1].BringToFront
564	else
565	MDITab.MDIChildren[MDITab.TabIndex - 1].BringToFront;
566	end;
567
568
569
570
571
572
573	procedure TForm_Main.menu_AboutClick(Sender: TObject);
574	begin
575	ShowMessage('Will be implemented later ;)');
576	end;
577
578
579
580
581	function TForm_Main.open_child(window_context: String; fileid: Integer): TForm_ToolTemplate;
582	var
583	toolform: TForm_ToolTemplate;
584	i: Integer;
585	tag: Integer;
586	iconindex: Integer;
587	begin
588	Result := nil;
589
590	tag := 1;
591	if MDIChildCount > 0 then
592	for i := 0 to MDIChildCount - 1 do
593	if MDIChildren[i].Tag >= tag then
594	tag := MDIChildren[i].Tag + 1;
595
596	iconindex := -1;
597
598	if window_context = 'binedit' then
599	begin
600	toolform := TForm_BinEdit.Create(Self);
601	toolform.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
602	iconindex := 4;
603	end;
604	if window_context = 'extractor' then
605	begin
606	toolform := TForm_Extractor.Create(Self);
607	toolform.Caption := 'Extractor ' + IntToStr(tag);
608	iconindex := 7;
609	end;
610	if window_context = 'preview' then
611	begin
612	toolform := TForm_Preview.Create(Self);
613	toolform.Caption := 'Preview-Window ' + IntToStr(tag);
614	iconindex := 3;
615	end;
616	if window_context = 'rawedit' then
617	begin
618	toolform := TForm_RawEdit.Create(Self);
619	toolform.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
620	iconindex := 5;
621	end;
622	if window_context = 'txmpreplace' then
623	begin
624	toolform := TForm_TxmpReplace.Create(Application);
625	toolform.Caption := 'TXMP Replacer ' + IntToStr(tag);
626	iconindex := 6;
627	end;
628
629	if Assigned(toolform) then
630	begin
631	toolform.Name := window_context + IntToStr(tag);
632	toolform.Tag := tag;
633	MDITab.AddTab(TForm(toolform), iconindex);
634	if fileid > -1 then
635	toolform.SelectFileID(fileid);
636	Result := toolform;
637	end;
638	end;
639
640	end.