oup/current/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,
  Code_Functions, Data, Code_DataStructures,
  Helper_LevelDB, Code_Exporters, Settings,
  Tool_Preview, Tool_TxmpReplace, Tool_BinEdit, Tool_Extractor, Tool_RawEdit,
  Code_OniDataClass, MDITab, TB2Item, TB2Dock, TB2Toolbar, TB2MDI;

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;
    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): Boolean;
    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);
  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;


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


 {#################################}
 {##### Main-Menu-Handlers    #####}
 {#################################}
procedure TForm_Main.menu_loadfileClick(Sender: TObject);
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 opend.Execute then
    begin
      ext := ExtractFileExt(opend.FileName);
      if ext = '.dat' then
        if not CreateDataConnection(opend.FileName, ODB_Dat) then
          ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
            CrLf + 'Perhaps not an Oni-.dat-file?')
      else if ext = '.oldb' then
        if not CreateDataConnection(opend.FileName, ODB_ADB) then
          ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
            CrLf + 'Perhaps not an OniUnPacker-LevelDatabase-file?')
      else
        ShowMessage('Incompatible file');
      AppSettings.DatPath := ExtractFilepath(opend.FileName);
    end;
  end;
  UpdateStatBar;
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');
end;


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


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


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


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


procedure TForm_Main.menu_filecompareClick(Sender: TObject);
begin
  open_child('compare');
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_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): Boolean;
var
  form:    TCustomForm;
  i:       Integer;
  tag:     Integer;
  iconindex: Integer;
begin
  Result := True;

  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
    form      := TForm_BinEdit.Create(Application);
    TForm_BinEdit(form).Recreatelist;
    form.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
    iconindex := 0;
  end;
  if window_context = 'rawedit' then
  begin
    form      := TForm_RawEdit.Create(Application);
    TForm_RawEdit(form).Recreatelist;
    form.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
  end;
  if window_context = 'preview' then
  begin
    form      := TForm_Preview.Create(Application);
    TForm_Preview(form).Recreatelist;
    form.Caption := 'Preview-Window ' + IntToStr(tag);
  end;
  if window_context = 'txmpreplace' then
  begin
    form      := TForm_TxmpReplace.Create(Application);
    TForm_TxmpReplace(form).Recreatelist;
    form.Caption := 'TXMP Replacer ' + IntToStr(tag);
  end;
  if window_context = 'extractor' then
  begin
    form      := TForm_Extractor.Create(Application);
    TForm_Extractor(form).Recreatelist;
    form.Caption := 'Extractor ' + IntToStr(tag);
  end;

  form.Name := window_context + IntToStr(tag);
  form.Tag  := tag;

  MDITab.AddTab(TForm(form), iconindex);
end;

end.
Revision:	43
Committed:	Mon Dec 18 23:35:30 2006 UTC (18 years, 9 months ago) by alloc
Content type:	text/x-pascal
File size:	16065 byte(s)
Log Message:	DevTree 0.33a.
#	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	Code_Functions, Data, Code_DataStructures,
10	Helper_LevelDB, Code_Exporters, Settings,
11	Tool_Preview, Tool_TxmpReplace, Tool_BinEdit, Tool_Extractor, Tool_RawEdit,
12	Code_OniDataClass, MDITab, TB2Item, TB2Dock, TB2Toolbar, TB2MDI;
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	function TryCloseAll: Boolean;
69	procedure menu_AboutClick(Sender: TObject);
70	procedure menu_settingsClick(Sender: TObject);
71	procedure menu_filecompareClick(Sender: TObject);
72	procedure menu_raweditClick(Sender: TObject);
73	procedure menu_createlvlClick(Sender: TObject);
74	procedure menu_extractorClick(Sender: TObject);
75	procedure menu_createdbClick(Sender: TObject);
76	procedure menu_windows_previousClick(Sender: TObject);
77	procedure menu_windows_nextClick(Sender: TObject);
78	procedure menu_windows_tileClick(Sender: TObject);
79	function open_child(window_context: String): Boolean;
80	procedure menu_windows_closeallClick(Sender: TObject);
81	procedure menu_windows_cascadeClick(Sender: TObject);
82	procedure menu_bineditClick(Sender: TObject);
83	procedure menu_loadfileClick(Sender: TObject);
84	procedure menu_txmpreplaceClick(Sender: TObject);
85	procedure menu_exitClick(Sender: TObject);
86	procedure menu_previewClick(Sender: TObject);
87	procedure FormClose(Sender: TObject; var Action: TCloseAction);
88	procedure FormResize(Sender: TObject);
89	procedure FormCreate(Sender: TObject);
90	procedure UpdateStatBar;
91	procedure menu_view_mdibarClick(Sender: TObject);
92	procedure menu_view_statusbarClick(Sender: TObject);
93	procedure menu_view_toolbarClick(Sender: TObject);
94	procedure MDITabDrawTab(Control: TCustomTabControl; TabIndex: Integer;
95	const Rect: TRect; Active: Boolean);
96	procedure ActivateTools(active: Boolean);
97	procedure MDITabMouseUp(Sender: TObject; Button: TMouseButton;
98	Shift: TShiftState; X, Y: Integer);
99	private
100	public
101	end;
102
103	var
104	Form_Main: TForm_Main;
105
106	implementation
107
108	{$R *.dfm}
109
110
111
112	procedure TForm_Main.FormCreate(Sender: TObject);
113	begin
114	Self.Caption := 'Oni Un/Packer ' + version;
115	Self.FormResize(Self);
116
117	if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
118	begin
119	AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) +
120	'\oniunpacker.ini');
121	Reset(AppSettingsFile);
122	Read(AppSettingsFile, AppSettings);
123	CloseFile(AppSettingsFile);
124	end
125	else
126	begin
127	AppSettings.DatPath := 'D:\Spiele\Oni\GameDataFolder';
128	AppSettings.ExtractPath := 'C:\Dokumente und Einstellungen\Administrator\Desktop';
129	AppSettings.FilenumbersAsHex := False;
130	AppSettings.CharSet := DEFAULT_CHARSET;
131	AppSettings.HideUnusedData := False;
132	end;
133
134	if MidStr(ParamStr(1), 1, 3) = 'opf' then
135	begin
136	ShowMessage('Load OPF-File: ' + ParamStr(2));
137	end
138	else if MidStr(ParamStr(1), 1, 4) = 'oldb' then
139	begin
140	if not CreateDataConnection(ParamStr(2), ODB_ADB) then
141	ShowMessage('Error while loading the file:' + CrLf + ParamStr(
142	2) + CrLf + 'Perhaps not an OniUnPacker-LevelDatabase-file?');
143	end
144	else if MidStr(ParamStr(1), 1, 3) = 'dat' then
145	begin
146	if not CreateDataConnection(ParamStr(2), ODB_Dat) then
147	ShowMessage('Error while loading the file:' + CrLf + ParamStr(
148	2) + CrLf + 'Perhaps not an Oni-.dat-file?');
149	end;
150	UpdateStatBar;
151	end;
152
153
154
155
156	procedure TForm_Main.FormResize(Sender: TObject);
157	const
158	MinWidth: Integer = 750;
159	MinHeight: Integer = 500;
160	begin
161	if Self.Width < MinWidth then
162	Self.Width := MinWidth;
163	if Self.Height < MinHeight then
164	Self.Height := MinHeight;
165	statbar.Panels.Items[0].Width := Self.Width - 200;
166	MDITab.Width := Self.Width - 20;
167	end;
168
169
170
171
172	procedure TForm_Main.MDITabDrawTab(Control: TCustomTabControl;
173	TabIndex: Integer; const Rect: TRect; Active: Boolean);
174	var
175	x, y: Integer;
176	iconindex: Integer;
177	caption: String;
178	begin
179	iconindex := TMDITab(Control).Glyphs[TabIndex];
180	caption := TMDITab(Control).Captions[TabIndex];
181	if active then
182	begin
183	Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsItalic];
184	y := Rect.Top + 1;
185	end else
186	y := Rect.Top;
187	if iconindex >= 0 then
188	begin
189	TMDITab(Control).Images.Draw(Control.Canvas, Rect.Left + 4, y, iconindex);
190	x := Rect.Left + 26;
191	end else
192	x := Rect.Left + 4;
193	Control.Canvas.TextOut(x, y + 2, caption);
194	end;
195
196
197
198
199
200
201	procedure TForm_Main.MDITabMouseUp(Sender: TObject; Button: TMouseButton;
202	Shift: TShiftState; X, Y: Integer);
203	var
204	pt: TPoint;
205	index: Integer;
206	begin
207	pt.X := X;
208	pt.Y := Y;
209	index := MDITab.GetTabAtPos(pt);
210	if (Button = mbRight) and (index >= 0) then
211	MDITab.MDIChildren[index].Close;
212	end;
213
214	procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
215	begin
216	AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) + '\oniunpacker.ini');
217	if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
218	Reset(AppSettingsFile)
219	else
220	Rewrite(AppSettingsFile);
221	Write(AppSettingsFile, AppSettings);
222	CloseFile(AppSettingsFile);
223	Action := caFree;
224	end;
225
226
227
228	procedure TForm_Main.ActivateTools(active: Boolean);
229	begin
230	menu_tools.Enabled := active;
231	tb_preview.Enabled := active;
232	tb_datedit.Enabled := active;
233	tb_rawedit.Enabled := active;
234	tb_txmpreplacer.Enabled := active;
235	tb_extractor.Enabled := active;
236	// tb_compare.Enabled := active;
237	// tb_structure.Enabled := active;
238	end;
239
240	procedure TForm_Main.UpdateStatBar;
241	begin
242	if Assigned(OniDataConnection) then
243	begin
244	Self.Caption := 'Oni Un/Packer ' + version + ' (' + ExtractFileName(
245	OniDataConnection.FileName) + ')';
246	ActivateTools(True);
247	statbar.Panels.Items[1].Text := 'Files: ' + IntToStr(OniDataConnection.GetFilesCount);
248	statbar.Panels.Items[2].Text :=
249	'Extensions: ' + IntToStr(Length(OniDataConnection.GetExtensionsList));
250	case OniDataConnection.Backend of
251	ODB_Dat:
252	begin
253	statbar.Panels.Items[0].Text := '.dat loaded: ' + OniDataConnection.FileName;
254	end;
255	ODB_ADB:
256	begin
257	statbar.Panels.Items[0].Text := 'OLDB loaded: ' + OniDataConnection.FileName;
258	end;
259	else
260	Self.Caption := 'Oni Un/Packer ' + version;
261	statbar.Panels.Items[0].Text := 'Nothing loaded';
262	statbar.Panels.Items[1].Text := 'Files: -';
263	statbar.Panels.Items[2].Text := 'Extensions: -';
264	ActivateTools(False);
265	end;
266	end
267	else
268	begin
269	Self.Caption := 'Oni Un/Packer ' + version;
270	statbar.Panels.Items[0].Text := 'Nothing loaded';
271	statbar.Panels.Items[1].Text := 'Files: -';
272	statbar.Panels.Items[2].Text := 'Extensions: -';
273	ActivateTools(False);
274	end;
275	end;
276
277
278
279
280	function TForm_Main.TryCloseAll: Boolean;
281	begin
282	menu_windows_closeallClick(Self);
283	Application.ProcessMessages;
284	if MDITab.MDIChildCount = 0 then
285	Result := True
286	else
287	Result := False;
288	end;
289
290
291	{#################################}
292	{##### Main-Menu-Handlers #####}
293	{#################################}
294	procedure TForm_Main.menu_loadfileClick(Sender: TObject);
295	var
296	ext: String;
297	begin
298	if TryCloseAll then
299	begin
300	CloseDataConnection;
301	opend.InitialDir := AppSettings.DatPath;
302	opend.Filter := 'Compatible level files\|.dat;.oldb\|Oni level (.dat)\|.dat\|OUP level database (.oldb)\|.oldb\|Any (.)\|*';
303	if opend.Execute then
304	begin
305	ext := ExtractFileExt(opend.FileName);
306	if ext = '.dat' then
307	if not CreateDataConnection(opend.FileName, ODB_Dat) then
308	ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
309	CrLf + 'Perhaps not an Oni-.dat-file?')
310	else if ext = '.oldb' then
311	if not CreateDataConnection(opend.FileName, ODB_ADB) then
312	ShowMessage('Error while loading the file:' + CrLf + opend.FileName +
313	CrLf + 'Perhaps not an OniUnPacker-LevelDatabase-file?')
314	else
315	ShowMessage('Incompatible file');
316	AppSettings.DatPath := ExtractFilepath(opend.FileName);
317	end;
318	end;
319	UpdateStatBar;
320	end;
321
322
323
324
325	procedure TForm_Main.menu_settingsClick(Sender: TObject);
326	begin
327	Form_Settings.Visible := True;
328	Self.Enabled := False;
329	end;
330
331
332
333
334	procedure TForm_Main.menu_exitClick(Sender: TObject);
335	begin
336	Self.Close;
337	end;
338
339	{####################################}
340	{##### Converters-Menu-Handlers #####}
341	{####################################}
342	procedure TForm_Main.menu_createdbClick(Sender: TObject);
343	begin
344	if Assigned(OniDataConnection) then
345	if MessageBox(Self.Handle, PChar('You have currently opened a level-file. ' +
346	'Do you want to close it to continue?'), PChar('Close file?'),
347	MB_YESNO + MB_ICONQUESTION) = ID_NO then
348	Exit
349	else begin
350	if TryCloseAll then
351	begin
352	CloseDataConnection;
353	UpdateStatBar;
354	end else
355	Exit;
356	end;
357	opend.Filter := 'Oni-Dat-Files\|*.dat';
358	saved.Filter := 'OUP-Level-DB (.oldb)\|.oldb';
359	saved.DefaultExt := 'oldb';
360	if opend.Execute then
361	if saved.Execute then
362	Form_LevelDB.CreateDatabase(opend.FileName, saved.FileName);
363	end;
364
365
366
367
368	procedure TForm_Main.menu_createlvlClick(Sender: TObject);
369	begin
370	if Assigned(OniDataConnection) then
371	if MessageBox(Self.Handle, PChar('You have currently opened a level-file. ' +
372	'Do you want to close it to continue?'), PChar('Close file?'),
373	MB_YESNO + MB_ICONQUESTION) = ID_NO then
374	Exit
375	else begin
376	if TryCloseAll then
377	begin
378	CloseDataConnection;
379	UpdateStatBar;
380	end else
381	Exit;
382	end;
383	opend.Filter := 'OUP-Level-DB (.oldb)\|.oldb';
384	saved.Filter := 'Oni-Dat-Files\|*.dat';
385	saved.DefaultExt := 'dat';
386	if opend.Execute then
387	if saved.Execute then
388	Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
389	end;
390
391	{#################################}
392	{##### Tools-Menu-Handlers #####}
393	{#################################}
394	procedure TForm_Main.menu_previewClick(Sender: TObject);
395	begin
396	open_child('preview');
397	end;
398
399
400	procedure TForm_Main.menu_txmpreplaceClick(Sender: TObject);
401	begin
402	open_child('txmpreplace');
403	end;
404
405
406	procedure TForm_Main.menu_bineditClick(Sender: TObject);
407	begin
408	open_child('binedit');
409	end;
410
411
412	procedure TForm_Main.menu_raweditClick(Sender: TObject);
413	begin
414	open_child('rawedit');
415	end;
416
417
418	procedure TForm_Main.menu_extractorClick(Sender: TObject);
419	begin
420	open_child('extractor');
421	end;
422
423
424	procedure TForm_Main.menu_filecompareClick(Sender: TObject);
425	begin
426	open_child('compare');
427	end;
428
429
430	{#################################}
431	{##### View-Menu-Handlers #####}
432	{#################################}
433	procedure TForm_Main.menu_view_mdibarClick(Sender: TObject);
434	begin
435	menu_view_mdibar.Checked := not menu_view_mdibar.Checked;
436	mditoolbar.Visible := menu_view_mdibar.Checked;
437	end;
438
439
440
441
442	procedure TForm_Main.menu_view_statusbarClick(Sender: TObject);
443	begin
444	menu_view_statusbar.Checked := not menu_view_statusbar.Checked;
445	statbar.Visible := menu_view_statusbar.Checked;
446	end;
447
448
449
450
451	procedure TForm_Main.menu_view_toolbarClick(Sender: TObject);
452	begin
453	menu_view_toolbar.Checked := not menu_view_toolbar.Checked;
454	Toolbar.Visible := menu_view_toolbar.Checked;
455	end;
456
457
458
459	{#################################}
460	{##### Window-Menu-Handlers #####}
461	{#################################}
462	procedure TForm_Main.menu_windows_cascadeClick(Sender: TObject);
463	begin
464	Self.Cascade;
465	end;
466
467
468
469	procedure TForm_Main.menu_windows_tileClick(Sender: TObject);
470	begin
471	Self.TileMode := tbHorizontal;
472	Self.Tile;
473	end;
474
475
476
477	procedure TForm_Main.menu_windows_closeallClick(Sender: TObject);
478	begin
479	MDITab.CloseAll;
480	end;
481
482
483
484	procedure TForm_Main.menu_windows_nextClick(Sender: TObject);
485	begin
486	if MDIChildCount > 1 then
487	if MDITab.TabIndex = MDITab.MDIChildCount - 1 then
488	MDITab.MDIChildren[0].BringToFront
489	else
490	MDITab.MDIChildren[MDITab.TabIndex + 1].BringToFront;
491	end;
492
493
494
495	procedure TForm_Main.menu_windows_previousClick(Sender: TObject);
496	begin
497	if MDIChildCount > 1 then
498	if MDITab.TabIndex = 0 then
499	MDITab.MDIChildren[MDITab.MDIChildCount - 1].BringToFront
500	else
501	MDITab.MDIChildren[MDITab.TabIndex - 1].BringToFront;
502	end;
503
504
505
506
507
508
509	procedure TForm_Main.menu_AboutClick(Sender: TObject);
510	begin
511	ShowMessage('Will be implemented later ;)');
512	end;
513
514
515
516
517	function TForm_Main.open_child(window_context: String): Boolean;
518	var
519	form: TCustomForm;
520	i: Integer;
521	tag: Integer;
522	iconindex: Integer;
523	begin
524	Result := True;
525
526	tag := 1;
527	if MDIChildCount > 0 then
528	for i := 0 to MDIChildCount - 1 do
529	if MDIChildren[i].Tag >= tag then
530	tag := MDIChildren[i].Tag + 1;
531
532	iconindex := -1;
533
534	if window_context = 'binedit' then
535	begin
536	form := TForm_BinEdit.Create(Application);
537	TForm_BinEdit(form).Recreatelist;
538	form.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
539	iconindex := 0;
540	end;
541	if window_context = 'rawedit' then
542	begin
543	form := TForm_RawEdit.Create(Application);
544	TForm_RawEdit(form).Recreatelist;
545	form.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
546	end;
547	if window_context = 'preview' then
548	begin
549	form := TForm_Preview.Create(Application);
550	TForm_Preview(form).Recreatelist;
551	form.Caption := 'Preview-Window ' + IntToStr(tag);
552	end;
553	if window_context = 'txmpreplace' then
554	begin
555	form := TForm_TxmpReplace.Create(Application);
556	TForm_TxmpReplace(form).Recreatelist;
557	form.Caption := 'TXMP Replacer ' + IntToStr(tag);
558	end;
559	if window_context = 'extractor' then
560	begin
561	form := TForm_Extractor.Create(Application);
562	TForm_Extractor(form).Recreatelist;
563	form.Caption := 'Extractor ' + IntToStr(tag);
564	end;
565
566	form.Name := window_context + IntToStr(tag);
567	form.Tag := tag;
568
569	MDITab.AddTab(TForm(form), iconindex);
570	end;
571
572	end.