releases/0.29a/Unit1_main.pas

UNIT Unit1_main;
INTERFACE
USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, Clipbrd, ExtCtrls, ComCtrls, Menus, Grids,
  MPHexEditor, ToolWin, ImgList, Tabs,
  Unit2_functions, Unit3_data, Unit9_data_structures,
  Unit10_leveldb, Unit4_exporters, Unit14_settings,
  Unit5_preview, Unit7_txmpreplace, Unit8_binedit, Unit11_extractor, Unit13_rawedit;

TYPE
  TForm1 = Class(TForm)
    tabs: TTabSet;
    saved: TSaveDialog;
    opend: TOpenDialog;
    statbar: TStatusBar;
    menu: TMainMenu;
    menu_main: TMenuItem;
    menu_loaddat: TMenuItem;
    menu_lvldb: TMenuItem;
    menu_exit: TMenuItem;
    menu_convert: TMenuItem;
    menu_createdb: TMenuItem;
    menu_createlvl: TMenuItem;
    menu_tools: TMenuItem;
    menu_preview: TMenuItem;
    menu_txmpreplace: TMenuItem;
    menu_binedit: TMenuItem;
    menu_extractor: TMenuItem;
    menu_windows: TMenuItem;
    menu_windows_cascade: TMenuItem;
    menu_windows_tile: TMenuItem;
    menu_windows_closeall: TMenuItem;
    menu_windows_next: TMenuItem;
    menu_windows_previous: TMenuItem;
    menu_sep1: TMenuItem;
    menu_sep2: TMenuItem;
    menu_sep3: TMenuItem;
    menu_levelstructedit: TMenuItem;
    menu_rawedit: TMenuItem;
    menu_filecompare: TMenuItem;
    ClosefileDB1: TMenuItem;
    menu_sep4: TMenuItem;
    menu_settings: TMenuItem;
    PROCEDURE menu_settingsClick(Sender: TObject);
    PROCEDURE ClosefileDB1Click(Sender: TObject);
    PROCEDURE menu_filecompareClick(Sender: TObject);
    PROCEDURE menu_raweditClick(Sender: TObject);
    PROCEDURE menu_createlvlClick(Sender: TObject);
    PROCEDURE menu_extractorClick(Sender: TObject);
    PROCEDURE menu_lvldbClick(Sender: TObject);
    PROCEDURE menu_createdbClick(Sender: TObject);
    PROCEDURE SetActiveWindow(window_name:String);
    PROCEDURE tabsChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
    PROCEDURE close_window(window_name:String);
    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_window_entryClick(Sender: TObject);
    PROCEDURE menu_bineditClick(Sender: TObject);
    PROCEDURE menu_loaddatClick(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);
  PRIVATE
  PUBLIC
  END;

VAR
  Form1: TForm1;

IMPLEMENTATION
{$R *.dfm}
VAR
  tablist:Array OF String;

PROCEDURE TForm1.FormCreate(Sender: TObject);
  BEGIN
    Form1.Caption:='Oni Un/Packer '+version;
    Form1.FormResize(Form1);

    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';
    END;
//    LoadStructureDefinitions(ExtractFilepath(Application.EXEname)+'\StructDefs');

    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
      OpenDatabase(ParamStr(2));
      IF opened_state=opened_db THEN BEGIN
        menu_tools.Enabled:=True;
        menu_convert.Enabled:=False;
        statbar.Panels.Items[0].Text:='OLDB loaded: '+ParamStr(2);
        statbar.Panels.Items[1].Text:='Files: '+IntToStr(GetFilesCount);
        statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(Length(GetExtensionsList));
      END ELSE BEGIN
        menu_tools.Enabled:=False;
        menu_convert.Enabled:=True;
      END;
    END ELSE IF MidStr(ParamStr(1),1,3)='dat' THEN BEGIN
      IF LoadDatInfos(ParamStr(2)) THEN BEGIN
        Form1.Caption:='Oni Un/Packer '+version+' ('+ExtractFileName(ParamStr(2))+')';
        statbar.Panels.Items[0].Text:='.dat loaded: '+ParamStr(2);
        statbar.Panels.Items[1].Text:='Files: '+IntToStr(dat_header.Files);
        statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(dat_header.Extensions);
        menu_tools.Enabled:=True;
        menu_convert.Enabled:=False;
      END ELSE BEGIN
        menu_convert.Enabled:=True;
        ShowMessage('Error while loading the file:'+CrLf+ParamStr(2)+CrLf+'Perhaps not an Oni-.dat-file?');
      END;
    END;
  END;

PROCEDURE TForm1.FormResize(Sender: TObject);
  CONST
    MinWidth:Integer=750;
    MinHeight:Integer=500;
  BEGIN
    IF Form1.Width<MinWidth THEN Form1.Width:=MinWidth;
    IF Form1.Height<MinHeight THEN Form1.Height:=MinHeight;
    Form1.statbar.Panels.Items[0].Width:=Form1.Width-200;
  END;

PROCEDURE TForm1.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;


{#################################}
{##### Main-Menu-Handlers    #####}
{#################################}
PROCEDURE TForm1.menu_loaddatClick(Sender: TObject);
  VAR i:LongWord;
  BEGIN
    opend.InitialDir:=AppSettings.DatPath;
    opend.Filter:='Oni-Dat-Files|*.dat';
    IF opend.Execute THEN BEGIN
      menu_windows_closeallClick(Form1);
      IF Length(tablist)=0 THEN BEGIN
        IF opened_state=opened_db THEN CloseDatabase;
        Caption:='Oni Un/Packer '+version;
        statbar.Panels.Items[0].Text:='Nothing loaded';
        statbar.Panels.Items[1].Text:='Files: -';
        statbar.Panels.Items[2].Text:='Extensions: -';
        AppSettings.DatPath:=ExtractFilepath(opend.FileName);
        IF LoadDatInfos(opend.FileName) THEN BEGIN
          Form1.Caption:='Oni Un/Packer '+version+' ('+ExtractFileName(opend.FileName)+')';
          statbar.Panels.Items[0].Text:='.dat loaded: '+dat_FileName;
          statbar.Panels.Items[1].Text:='Files: '+IntToStr(dat_header.Files);
          statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(dat_header.Extensions);
          menu_tools.Enabled:=True;
          menu_convert.Enabled:=False;
        END ELSE BEGIN
          menu_convert.Enabled:=True;
          ShowMessage('Error while loading the file:'+CrLf+opend.FileName+CrLf+'Perhaps not an Oni-.dat-file?');
        END;
      END;
    END;
  END;
PROCEDURE TForm1.menu_lvldbClick(Sender: TObject);
  BEGIN
    opend.InitialDir:=AppSettings.DatPath;
    opend.Filter:='OUP-Level-DB (*.oldb)|*.oldb';
    IF opend.Execute THEN BEGIN
      menu_windows_closeallClick(Form1);
      IF Length(tablist)=0 THEN BEGIN
        IF opened_state=opened_db THEN CloseDatabase;
        Form1.Caption:='Oni Un/Packer '+version;
        opened_state:=opened_nothing;
        statbar.Panels.Items[0].Text:='Nothing loaded';
        statbar.Panels.Items[1].Text:='Files: -';
        statbar.Panels.Items[2].Text:='Extensions: -';
        OpenDatabase(opend.FileName);
        IF opened_state=opened_db THEN BEGIN
          menu_tools.Enabled:=True;
          menu_convert.Enabled:=False;
          statbar.Panels.Items[0].Text:='OLDB loaded: '+opend.FileName;
          statbar.Panels.Items[1].Text:='Files: '+IntToStr(GetFilesCount);
          statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(Length(GetExtensionsList));
        END ELSE BEGIN
          menu_tools.Enabled:=False;
          menu_convert.Enabled:=True;
        END;
      END;
    END;
  END;
PROCEDURE TForm1.ClosefileDB1Click(Sender: TObject);
  BEGIN
    menu_windows_closeallClick(Form1);
    IF Length(tablist)=0 THEN BEGIN
      IF opened_state=opened_db THEN CloseDatabase;
      Form1.Caption:='Oni Un/Packer '+version;
      opened_state:=opened_nothing;
      statbar.Panels.Items[0].Text:='Nothing loaded';
      statbar.Panels.Items[1].Text:='Files: -';
      statbar.Panels.Items[2].Text:='Extensions: -';
      menu_tools.Enabled:=False;
      menu_convert.Enabled:=True;
    END;
  END;
PROCEDURE TForm1.menu_settingsClick(Sender: TObject);
  BEGIN
    Form14.Visible:=True;
    Self.Enabled:=False;
  END;
PROCEDURE TForm1.menu_exitClick(Sender: TObject);
  BEGIN
    Form1.Close;
  END;

{####################################}
{##### Converters-Menu-Handlers #####}
{####################################}
PROCEDURE TForm1.menu_createdbClick(Sender: TObject);
  BEGIN
    opend.Filter:='Oni-Dat-Files|*.dat';
    saved.Filter:='OUP-Level-DB (*.oldb)|*.oldb';
    saved.DefaultExt:='oldb';
    IF opend.Execute THEN BEGIN
      IF saved.Execute THEN BEGIN
        Form10.CreateDatabase(opend.FileName,saved.FileName);
      END;
    END;
  END;
PROCEDURE TForm1.menu_createlvlClick(Sender: TObject);
  BEGIN
    opend.Filter:='OUP-Level-DB (*.oldb)|*.oldb';
    saved.Filter:='Oni-Dat-Files|*.dat';
    saved.DefaultExt:='dat';
    IF opend.Execute THEN BEGIN
      IF saved.Execute THEN BEGIN
        Form10.CreateLevel(opend.FileName,saved.FileName);
      END;
    END;
  END;

{#################################}
{##### Tools-Menu-Handlers   #####}
{#################################}
PROCEDURE TForm1.menu_previewClick(Sender: TObject);
  BEGIN
    open_child('preview');
  END;
PROCEDURE TForm1.menu_txmpreplaceClick(Sender: TObject);
  BEGIN
    open_child('txmpreplace');
  END;
PROCEDURE TForm1.menu_bineditClick(Sender: TObject);
  BEGIN
    open_child('binedit');
  END;
PROCEDURE TForm1.menu_raweditClick(Sender: TObject);
  BEGIN
    open_child('rawedit');
  END;

PROCEDURE TForm1.menu_extractorClick(Sender: TObject);
  BEGIN
    open_child('extractor');
  END;
PROCEDURE TForm1.menu_filecompareClick(Sender: TObject);
  BEGIN
    open_child('compare');
  END;


{#################################}
{#####  Window-Menu-Handlers #####}
{#################################}
PROCEDURE TForm1.menu_windows_cascadeClick(Sender: TObject);
  BEGIN
    Form1.Cascade;
  END;
PROCEDURE TForm1.menu_windows_tileClick(Sender: TObject);
  BEGIN
    Form1.TileMode:=tbHorizontal;
    Form1.Tile;
  END;
PROCEDURE TForm1.menu_windows_closeallClick(Sender: TObject);
  VAR
    i:Byte;
  BEGIN
    IF MDIChildCount>0 THEN BEGIN
      FOR i:=0 TO MDIChildCount-1 DO BEGIN
        MDIChildren[i].Close;
      END;
    END;
    tabs.Tabs.Clear;
  END;
PROCEDURE TForm1.menu_windows_nextClick(Sender: TObject);
  VAR i:Byte;
    first_window:Byte;
    current_focus:String;
  BEGIN
    IF MDIChildCount>1 THEN BEGIN
      FOR i:=0 TO menu_windows.Count-1 DO BEGIN
        IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
          first_window:=i;
          Break;
        END;
      END;
      current_focus:=ActiveMDIChild.Name;
      FOR i:=first_window TO menu_windows.Count-1 DO
        IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
          Break;
      IF i=menu_windows.Count-1 THEN
        menu_windows.Items[first_window].Click
      ELSE
        menu_windows.Items[i+1].Click;
      FOR i:=0 TO High(tablist) DO BEGIN
        IF tablist[i]=ActiveMDIChild.Name THEN BEGIN
          tabs.TabIndex:=i;
        END;
      END;
    END;
  END;
PROCEDURE TForm1.menu_windows_previousClick(Sender: TObject);
  VAR i:Byte;
    first_window:Byte;
    current_focus:String;
  BEGIN
    IF MDIChildCount>1 THEN BEGIN
      FOR i:=0 TO menu_windows.Count-1 DO BEGIN
        IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
          first_window:=i;
          Break;
        END;
      END;
      current_focus:=ActiveMDIChild.Name;
      FOR i:=first_window TO menu_windows.Count-1 DO
        IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
          Break;
      IF i=first_window THEN
        menu_windows.Items[menu_windows.Count-1].Click
      ELSE
        menu_windows.Items[i-1].Click;
      FOR i:=0 TO High(tablist) DO BEGIN
        IF tablist[i]=ActiveMDIChild.Name THEN BEGIN
          tabs.TabIndex:=i;
        END;
      END;
    END;
  END;

PROCEDURE TForm1.menu_window_entryClick(Sender: TObject);
  VAR
    i:Byte;
    window_name:String;
  BEGIN
    window_name:=MidStr(TComponent(Sender).Name,Pos('window_',TComponent(Sender).Name)+7,Length(TComponent(Sender).Name)-Pos('window_',TComponent(Sender).Name)+7+1);
    FOR i:=0 TO MDIChildCount-1 DO BEGIN
      IF MDIChildren[i].Name=window_name THEN BEGIN
        MDIChildren[i].BringToFront;
      END;
    END;
    FOR i:=0 TO High(tablist) DO BEGIN
      IF tablist[i]=ActiveMDIChild.Name THEN BEGIN
        tabs.TabIndex:=i;
      END;
    END;
  END;


FUNCTION TForm1.open_child(window_context:String):Boolean;
  VAR
    rawEdit:TForm13;
    binEdit:TForm8;
    preview:TForm5;
    txmpreplacer:TForm7;
    extractor:TForm11;
    menu_button:TMenuItem;
    used:Array[1..9] OF Boolean;
    i:Byte;
    caption:String;
    name:String;
  BEGIN
    Result:=True;
    FOR i:=1 TO 9 DO used[i]:=False;
    IF MDIChildCount>0 THEN
      FOR i:=0 TO MDIChildCount-1 DO
        IF Pos(window_context,Form1.MDIChildren[i].Name)=1 THEN
          used[StrToInt(RightStr(Form1.MDIChildren[i].Caption,1))]:=True;
    FOR i:=1 TO 10 DO
      IF i=10 THEN
        Break
      ELSE
        IF NOT used[i] THEN Break;

    IF i<10 THEN BEGIN
      name:=window_context+IntToStr(i);
      IF window_context='binedit' THEN
        caption:='Binary .dat-Editor '+IntToStr(i);
      IF window_context='rawedit' THEN
        caption:='Binary .raw-Editor '+IntToStr(i);
      IF window_context='preview' THEN
        caption:='Preview-Window '+IntToStr(i);
      IF window_context='txmpreplace' THEN
        caption:='TXMP Replacer '+IntToStr(i);
      IF window_context='extractor' THEN
        caption:='Extractor '+IntToStr(i);

      menu_button:=TMenuItem.Create(menu_windows);
      menu_button.Caption:=caption;
      menu_button.Name:='menu_window_'+name;
      menu_button.OnClick:=Form1.menu_window_entryClick;
      menu_windows.Add(menu_button);

      SetLength(tablist,Length(tablist)+1);
      tablist[High(tablist)]:=name;
      tabs.Tabs.Add(caption);

      IF window_context='binedit' THEN BEGIN
        binEdit:=TForm8.Create(Application);
        binEdit.Name:=name;
        binEdit.Caption:=caption;
        binEdit.Recreatelist;
      END;
      IF window_context='rawedit' THEN BEGIN
        rawEdit:=TForm13.Create(Application);
        rawEdit.Name:=name;
        rawEdit.Caption:=caption;
        rawEdit.Recreatelist;
      END;
      IF window_context='preview' THEN BEGIN
        preview:=TForm5.Create(Application);
        preview.Name:=name;
        preview.Caption:=caption;
        preview.Recreatelist;
      END;
      IF window_context='txmpreplace' THEN BEGIN
        txmpreplacer:=TForm7.Create(Application);
        txmpreplacer.Name:=name;
        txmpreplacer.Caption:=caption;
        txmpreplacer.Recreatelist;
      END;
      IF window_context='extractor' THEN BEGIN
        extractor:=TForm11.Create(Application);
        extractor.Name:=name;
        extractor.Caption:=caption;
        extractor.Recreatelist;
      END;

      tabs.TabIndex:=High(tablist);
      IF MDIChildCount=9 THEN menu_tools.Enabled:=False;
    END ELSE BEGIN
      Result:=False;
    END;
  END;


PROCEDURE TForm1.close_window(window_name:String);
  VAR
    i,j:Byte;
  BEGIN
    FOR i:=0 TO menu_windows.Count-1 DO BEGIN
      IF menu_windows.Items[i].Name='menu_window_'+window_name THEN BEGIN
        menu_windows.Items[i].Free;
        Break;
      END;
    END;
    FOR i:=0 TO High(tablist) DO BEGIN
      IF tablist[i]=window_name THEN BEGIN
        tabs.Tabs.Delete(i);
        IF High(tablist)>0 THEN
          FOR j:=i TO High(tablist)-1 DO
            tablist[j]:=tablist[j+1];
        SetLength(tablist,Length(tablist)-1);
        Break;
      END;
    END;
    menu_tools.Enabled:=True;
  END;


PROCEDURE TForm1.tabsChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
  VAR
    i:Byte;
  BEGIN
    FOR i:=0 TO MDIChildCount-1 DO BEGIN
      IF MDIChildren[i].Name=tablist[NewTab] THEN
        MDIChildren[i].BringToFront;
    END;
  END;

PROCEDURE TForm1.SetActiveWindow(window_name:String);
  VAR
    i:Byte;
  BEGIN
    IF Length(tablist)>0 THEN
      FOR i:=0 TO High(tablist) DO
        IF tablist[i]=window_name THEN
          tabs.TabIndex:=i;
  END;


END.
Revision:	28
Committed:	Sat Aug 26 19:15:57 2006 UTC (19 years, 2 months ago) by alloc
Content type:	text/x-pascal
File size:	17306 byte(s)
Log Message:
#	Content
1	UNIT Unit1_main;
2	INTERFACE
3	USES
4	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	Dialogs, StdCtrls, StrUtils, Clipbrd, ExtCtrls, ComCtrls, Menus, Grids,
6	MPHexEditor, ToolWin, ImgList, Tabs,
7	Unit2_functions, Unit3_data, Unit9_data_structures,
8	Unit10_leveldb, Unit4_exporters, Unit14_settings,
9	Unit5_preview, Unit7_txmpreplace, Unit8_binedit, Unit11_extractor, Unit13_rawedit;
10
11	TYPE
12	TForm1 = Class(TForm)
13	tabs: TTabSet;
14	saved: TSaveDialog;
15	opend: TOpenDialog;
16	statbar: TStatusBar;
17	menu: TMainMenu;
18	menu_main: TMenuItem;
19	menu_loaddat: TMenuItem;
20	menu_lvldb: TMenuItem;
21	menu_exit: TMenuItem;
22	menu_convert: TMenuItem;
23	menu_createdb: TMenuItem;
24	menu_createlvl: TMenuItem;
25	menu_tools: TMenuItem;
26	menu_preview: TMenuItem;
27	menu_txmpreplace: TMenuItem;
28	menu_binedit: TMenuItem;
29	menu_extractor: TMenuItem;
30	menu_windows: TMenuItem;
31	menu_windows_cascade: TMenuItem;
32	menu_windows_tile: TMenuItem;
33	menu_windows_closeall: TMenuItem;
34	menu_windows_next: TMenuItem;
35	menu_windows_previous: TMenuItem;
36	menu_sep1: TMenuItem;
37	menu_sep2: TMenuItem;
38	menu_sep3: TMenuItem;
39	menu_levelstructedit: TMenuItem;
40	menu_rawedit: TMenuItem;
41	menu_filecompare: TMenuItem;
42	ClosefileDB1: TMenuItem;
43	menu_sep4: TMenuItem;
44	menu_settings: TMenuItem;
45	PROCEDURE menu_settingsClick(Sender: TObject);
46	PROCEDURE ClosefileDB1Click(Sender: TObject);
47	PROCEDURE menu_filecompareClick(Sender: TObject);
48	PROCEDURE menu_raweditClick(Sender: TObject);
49	PROCEDURE menu_createlvlClick(Sender: TObject);
50	PROCEDURE menu_extractorClick(Sender: TObject);
51	PROCEDURE menu_lvldbClick(Sender: TObject);
52	PROCEDURE menu_createdbClick(Sender: TObject);
53	PROCEDURE SetActiveWindow(window_name:String);
54	PROCEDURE tabsChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
55	PROCEDURE close_window(window_name:String);
56	PROCEDURE menu_windows_previousClick(Sender: TObject);
57	PROCEDURE menu_windows_nextClick(Sender: TObject);
58	PROCEDURE menu_windows_tileClick(Sender: TObject);
59	FUNCTION open_child(window_context:String):Boolean;
60	PROCEDURE menu_windows_closeallClick(Sender: TObject);
61	PROCEDURE menu_windows_cascadeClick(Sender: TObject);
62	PROCEDURE menu_window_entryClick(Sender: TObject);
63	PROCEDURE menu_bineditClick(Sender: TObject);
64	PROCEDURE menu_loaddatClick(Sender: TObject);
65	PROCEDURE menu_txmpreplaceClick(Sender: TObject);
66	PROCEDURE menu_exitClick(Sender: TObject);
67	PROCEDURE menu_previewClick(Sender: TObject);
68	PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
69	PROCEDURE FormResize(Sender: TObject);
70	PROCEDURE FormCreate(Sender: TObject);
71	PRIVATE
72	PUBLIC
73	END;
74
75	VAR
76	Form1: TForm1;
77
78	IMPLEMENTATION
79	{$R *.dfm}
80	VAR
81	tablist:Array OF String;
82
83	PROCEDURE TForm1.FormCreate(Sender: TObject);
84	BEGIN
85	Form1.Caption:='Oni Un/Packer '+version;
86	Form1.FormResize(Form1);
87
88	IF FileExists(ExtractFilepath(Application.EXEname)+'\oniunpacker.ini') THEN BEGIN
89	AssignFile(AppSettingsFile,ExtractFilepath(Application.EXEname)+'\oniunpacker.ini');
90	Reset(AppSettingsFile);
91	Read(AppSettingsFile,AppSettings);
92	CloseFile(AppSettingsFile);
93	END ELSE BEGIN
94	AppSettings.DatPath:='D:\Spiele\Oni\GameDataFolder';
95	AppSettings.ExtractPath:='C:\Dokumente und Einstellungen\Administrator\Desktop';
96	END;
97	// LoadStructureDefinitions(ExtractFilepath(Application.EXEname)+'\StructDefs');
98
99	IF MidStr(ParamStr(1),1,3)='opf' THEN BEGIN
100	ShowMessage('Load OPF-File: '+ParamStr(2));
101	END ELSE IF MidStr(ParamStr(1),1,4)='oldb' THEN BEGIN
102	OpenDatabase(ParamStr(2));
103	IF opened_state=opened_db THEN BEGIN
104	menu_tools.Enabled:=True;
105	menu_convert.Enabled:=False;
106	statbar.Panels.Items[0].Text:='OLDB loaded: '+ParamStr(2);
107	statbar.Panels.Items[1].Text:='Files: '+IntToStr(GetFilesCount);
108	statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(Length(GetExtensionsList));
109	END ELSE BEGIN
110	menu_tools.Enabled:=False;
111	menu_convert.Enabled:=True;
112	END;
113	END ELSE IF MidStr(ParamStr(1),1,3)='dat' THEN BEGIN
114	IF LoadDatInfos(ParamStr(2)) THEN BEGIN
115	Form1.Caption:='Oni Un/Packer '+version+' ('+ExtractFileName(ParamStr(2))+')';
116	statbar.Panels.Items[0].Text:='.dat loaded: '+ParamStr(2);
117	statbar.Panels.Items[1].Text:='Files: '+IntToStr(dat_header.Files);
118	statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(dat_header.Extensions);
119	menu_tools.Enabled:=True;
120	menu_convert.Enabled:=False;
121	END ELSE BEGIN
122	menu_convert.Enabled:=True;
123	ShowMessage('Error while loading the file:'+CrLf+ParamStr(2)+CrLf+'Perhaps not an Oni-.dat-file?');
124	END;
125	END;
126	END;
127
128	PROCEDURE TForm1.FormResize(Sender: TObject);
129	CONST
130	MinWidth:Integer=750;
131	MinHeight:Integer=500;
132	BEGIN
133	IF Form1.Width<MinWidth THEN Form1.Width:=MinWidth;
134	IF Form1.Height<MinHeight THEN Form1.Height:=MinHeight;
135	Form1.statbar.Panels.Items[0].Width:=Form1.Width-200;
136	END;
137
138	PROCEDURE TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
139	BEGIN
140	AssignFile(AppSettingsFile,ExtractFilepath(Application.EXEname)+'\oniunpacker.ini');
141	IF FileExists(ExtractFilepath(Application.EXEname)+'\oniunpacker.ini') THEN
142	Reset(AppSettingsFile)
143	ELSE
144	Rewrite(AppSettingsFile);
145	Write(AppSettingsFile,AppSettings);
146	CloseFile(AppSettingsFile);
147	Action:=caFree;
148	END;
149
150
151	{#################################}
152	{##### Main-Menu-Handlers #####}
153	{#################################}
154	PROCEDURE TForm1.menu_loaddatClick(Sender: TObject);
155	VAR i:LongWord;
156	BEGIN
157	opend.InitialDir:=AppSettings.DatPath;
158	opend.Filter:='Oni-Dat-Files\|*.dat';
159	IF opend.Execute THEN BEGIN
160	menu_windows_closeallClick(Form1);
161	IF Length(tablist)=0 THEN BEGIN
162	IF opened_state=opened_db THEN CloseDatabase;
163	Caption:='Oni Un/Packer '+version;
164	statbar.Panels.Items[0].Text:='Nothing loaded';
165	statbar.Panels.Items[1].Text:='Files: -';
166	statbar.Panels.Items[2].Text:='Extensions: -';
167	AppSettings.DatPath:=ExtractFilepath(opend.FileName);
168	IF LoadDatInfos(opend.FileName) THEN BEGIN
169	Form1.Caption:='Oni Un/Packer '+version+' ('+ExtractFileName(opend.FileName)+')';
170	statbar.Panels.Items[0].Text:='.dat loaded: '+dat_FileName;
171	statbar.Panels.Items[1].Text:='Files: '+IntToStr(dat_header.Files);
172	statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(dat_header.Extensions);
173	menu_tools.Enabled:=True;
174	menu_convert.Enabled:=False;
175	END ELSE BEGIN
176	menu_convert.Enabled:=True;
177	ShowMessage('Error while loading the file:'+CrLf+opend.FileName+CrLf+'Perhaps not an Oni-.dat-file?');
178	END;
179	END;
180	END;
181	END;
182	PROCEDURE TForm1.menu_lvldbClick(Sender: TObject);
183	BEGIN
184	opend.InitialDir:=AppSettings.DatPath;
185	opend.Filter:='OUP-Level-DB (.oldb)\|.oldb';
186	IF opend.Execute THEN BEGIN
187	menu_windows_closeallClick(Form1);
188	IF Length(tablist)=0 THEN BEGIN
189	IF opened_state=opened_db THEN CloseDatabase;
190	Form1.Caption:='Oni Un/Packer '+version;
191	opened_state:=opened_nothing;
192	statbar.Panels.Items[0].Text:='Nothing loaded';
193	statbar.Panels.Items[1].Text:='Files: -';
194	statbar.Panels.Items[2].Text:='Extensions: -';
195	OpenDatabase(opend.FileName);
196	IF opened_state=opened_db THEN BEGIN
197	menu_tools.Enabled:=True;
198	menu_convert.Enabled:=False;
199	statbar.Panels.Items[0].Text:='OLDB loaded: '+opend.FileName;
200	statbar.Panels.Items[1].Text:='Files: '+IntToStr(GetFilesCount);
201	statbar.Panels.Items[2].Text:='Extensions: '+IntToStr(Length(GetExtensionsList));
202	END ELSE BEGIN
203	menu_tools.Enabled:=False;
204	menu_convert.Enabled:=True;
205	END;
206	END;
207	END;
208	END;
209	PROCEDURE TForm1.ClosefileDB1Click(Sender: TObject);
210	BEGIN
211	menu_windows_closeallClick(Form1);
212	IF Length(tablist)=0 THEN BEGIN
213	IF opened_state=opened_db THEN CloseDatabase;
214	Form1.Caption:='Oni Un/Packer '+version;
215	opened_state:=opened_nothing;
216	statbar.Panels.Items[0].Text:='Nothing loaded';
217	statbar.Panels.Items[1].Text:='Files: -';
218	statbar.Panels.Items[2].Text:='Extensions: -';
219	menu_tools.Enabled:=False;
220	menu_convert.Enabled:=True;
221	END;
222	END;
223	PROCEDURE TForm1.menu_settingsClick(Sender: TObject);
224	BEGIN
225	Form14.Visible:=True;
226	Self.Enabled:=False;
227	END;
228	PROCEDURE TForm1.menu_exitClick(Sender: TObject);
229	BEGIN
230	Form1.Close;
231	END;
232
233	{####################################}
234	{##### Converters-Menu-Handlers #####}
235	{####################################}
236	PROCEDURE TForm1.menu_createdbClick(Sender: TObject);
237	BEGIN
238	opend.Filter:='Oni-Dat-Files\|*.dat';
239	saved.Filter:='OUP-Level-DB (.oldb)\|.oldb';
240	saved.DefaultExt:='oldb';
241	IF opend.Execute THEN BEGIN
242	IF saved.Execute THEN BEGIN
243	Form10.CreateDatabase(opend.FileName,saved.FileName);
244	END;
245	END;
246	END;
247	PROCEDURE TForm1.menu_createlvlClick(Sender: TObject);
248	BEGIN
249	opend.Filter:='OUP-Level-DB (.oldb)\|.oldb';
250	saved.Filter:='Oni-Dat-Files\|*.dat';
251	saved.DefaultExt:='dat';
252	IF opend.Execute THEN BEGIN
253	IF saved.Execute THEN BEGIN
254	Form10.CreateLevel(opend.FileName,saved.FileName);
255	END;
256	END;
257	END;
258
259	{#################################}
260	{##### Tools-Menu-Handlers #####}
261	{#################################}
262	PROCEDURE TForm1.menu_previewClick(Sender: TObject);
263	BEGIN
264	open_child('preview');
265	END;
266	PROCEDURE TForm1.menu_txmpreplaceClick(Sender: TObject);
267	BEGIN
268	open_child('txmpreplace');
269	END;
270	PROCEDURE TForm1.menu_bineditClick(Sender: TObject);
271	BEGIN
272	open_child('binedit');
273	END;
274	PROCEDURE TForm1.menu_raweditClick(Sender: TObject);
275	BEGIN
276	open_child('rawedit');
277	END;
278
279	PROCEDURE TForm1.menu_extractorClick(Sender: TObject);
280	BEGIN
281	open_child('extractor');
282	END;
283	PROCEDURE TForm1.menu_filecompareClick(Sender: TObject);
284	BEGIN
285	open_child('compare');
286	END;
287
288
289	{#################################}
290	{##### Window-Menu-Handlers #####}
291	{#################################}
292	PROCEDURE TForm1.menu_windows_cascadeClick(Sender: TObject);
293	BEGIN
294	Form1.Cascade;
295	END;
296	PROCEDURE TForm1.menu_windows_tileClick(Sender: TObject);
297	BEGIN
298	Form1.TileMode:=tbHorizontal;
299	Form1.Tile;
300	END;
301	PROCEDURE TForm1.menu_windows_closeallClick(Sender: TObject);
302	VAR
303	i:Byte;
304	BEGIN
305	IF MDIChildCount>0 THEN BEGIN
306	FOR i:=0 TO MDIChildCount-1 DO BEGIN
307	MDIChildren[i].Close;
308	END;
309	END;
310	tabs.Tabs.Clear;
311	END;
312	PROCEDURE TForm1.menu_windows_nextClick(Sender: TObject);
313	VAR i:Byte;
314	first_window:Byte;
315	current_focus:String;
316	BEGIN
317	IF MDIChildCount>1 THEN BEGIN
318	FOR i:=0 TO menu_windows.Count-1 DO BEGIN
319	IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
320	first_window:=i;
321	Break;
322	END;
323	END;
324	current_focus:=ActiveMDIChild.Name;
325	FOR i:=first_window TO menu_windows.Count-1 DO
326	IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
327	Break;
328	IF i=menu_windows.Count-1 THEN
329	menu_windows.Items[first_window].Click
330	ELSE
331	menu_windows.Items[i+1].Click;
332	FOR i:=0 TO High(tablist) DO BEGIN
333	IF tablist[i]=ActiveMDIChild.Name THEN BEGIN
334	tabs.TabIndex:=i;
335	END;
336	END;
337	END;
338	END;
339	PROCEDURE TForm1.menu_windows_previousClick(Sender: TObject);
340	VAR i:Byte;
341	first_window:Byte;
342	current_focus:String;
343	BEGIN
344	IF MDIChildCount>1 THEN BEGIN
345	FOR i:=0 TO menu_windows.Count-1 DO BEGIN
346	IF Pos('menu_window_',menu_windows.Items[i].Name)=1 THEN BEGIN
347	first_window:=i;
348	Break;
349	END;
350	END;
351	current_focus:=ActiveMDIChild.Name;
352	FOR i:=first_window TO menu_windows.Count-1 DO
353	IF Pos(current_focus,menu_windows.Items[i].Name)>0 THEN
354	Break;
355	IF i=first_window THEN
356	menu_windows.Items[menu_windows.Count-1].Click
357	ELSE
358	menu_windows.Items[i-1].Click;
359	FOR i:=0 TO High(tablist) DO BEGIN
360	IF tablist[i]=ActiveMDIChild.Name THEN BEGIN
361	tabs.TabIndex:=i;
362	END;
363	END;
364	END;
365	END;
366
367	PROCEDURE TForm1.menu_window_entryClick(Sender: TObject);
368	VAR
369	i:Byte;
370	window_name:String;
371	BEGIN
372	window_name:=MidStr(TComponent(Sender).Name,Pos('window_',TComponent(Sender).Name)+7,Length(TComponent(Sender).Name)-Pos('window_',TComponent(Sender).Name)+7+1);
373	FOR i:=0 TO MDIChildCount-1 DO BEGIN
374	IF MDIChildren[i].Name=window_name THEN BEGIN
375	MDIChildren[i].BringToFront;
376	END;
377	END;
378	FOR i:=0 TO High(tablist) DO BEGIN
379	IF tablist[i]=ActiveMDIChild.Name THEN BEGIN
380	tabs.TabIndex:=i;
381	END;
382	END;
383	END;
384
385
386
387	FUNCTION TForm1.open_child(window_context:String):Boolean;
388	VAR
389	rawEdit:TForm13;
390	binEdit:TForm8;
391	preview:TForm5;
392	txmpreplacer:TForm7;
393	extractor:TForm11;
394	menu_button:TMenuItem;
395	used:Array[1..9] OF Boolean;
396	i:Byte;
397	caption:String;
398	name:String;
399	BEGIN
400	Result:=True;
401	FOR i:=1 TO 9 DO used[i]:=False;
402	IF MDIChildCount>0 THEN
403	FOR i:=0 TO MDIChildCount-1 DO
404	IF Pos(window_context,Form1.MDIChildren[i].Name)=1 THEN
405	used[StrToInt(RightStr(Form1.MDIChildren[i].Caption,1))]:=True;
406	FOR i:=1 TO 10 DO
407	IF i=10 THEN
408	Break
409	ELSE
410	IF NOT used[i] THEN Break;
411
412	IF i<10 THEN BEGIN
413	name:=window_context+IntToStr(i);
414	IF window_context='binedit' THEN
415	caption:='Binary .dat-Editor '+IntToStr(i);
416	IF window_context='rawedit' THEN
417	caption:='Binary .raw-Editor '+IntToStr(i);
418	IF window_context='preview' THEN
419	caption:='Preview-Window '+IntToStr(i);
420	IF window_context='txmpreplace' THEN
421	caption:='TXMP Replacer '+IntToStr(i);
422	IF window_context='extractor' THEN
423	caption:='Extractor '+IntToStr(i);
424
425	menu_button:=TMenuItem.Create(menu_windows);
426	menu_button.Caption:=caption;
427	menu_button.Name:='menu_window_'+name;
428	menu_button.OnClick:=Form1.menu_window_entryClick;
429	menu_windows.Add(menu_button);
430
431	SetLength(tablist,Length(tablist)+1);
432	tablist[High(tablist)]:=name;
433	tabs.Tabs.Add(caption);
434
435	IF window_context='binedit' THEN BEGIN
436	binEdit:=TForm8.Create(Application);
437	binEdit.Name:=name;
438	binEdit.Caption:=caption;
439	binEdit.Recreatelist;
440	END;
441	IF window_context='rawedit' THEN BEGIN
442	rawEdit:=TForm13.Create(Application);
443	rawEdit.Name:=name;
444	rawEdit.Caption:=caption;
445	rawEdit.Recreatelist;
446	END;
447	IF window_context='preview' THEN BEGIN
448	preview:=TForm5.Create(Application);
449	preview.Name:=name;
450	preview.Caption:=caption;
451	preview.Recreatelist;
452	END;
453	IF window_context='txmpreplace' THEN BEGIN
454	txmpreplacer:=TForm7.Create(Application);
455	txmpreplacer.Name:=name;
456	txmpreplacer.Caption:=caption;
457	txmpreplacer.Recreatelist;
458	END;
459	IF window_context='extractor' THEN BEGIN
460	extractor:=TForm11.Create(Application);
461	extractor.Name:=name;
462	extractor.Caption:=caption;
463	extractor.Recreatelist;
464	END;
465
466	tabs.TabIndex:=High(tablist);
467	IF MDIChildCount=9 THEN menu_tools.Enabled:=False;
468	END ELSE BEGIN
469	Result:=False;
470	END;
471	END;
472
473
474	PROCEDURE TForm1.close_window(window_name:String);
475	VAR
476	i,j:Byte;
477	BEGIN
478	FOR i:=0 TO menu_windows.Count-1 DO BEGIN
479	IF menu_windows.Items[i].Name='menu_window_'+window_name THEN BEGIN
480	menu_windows.Items[i].Free;
481	Break;
482	END;
483	END;
484	FOR i:=0 TO High(tablist) DO BEGIN
485	IF tablist[i]=window_name THEN BEGIN
486	tabs.Tabs.Delete(i);
487	IF High(tablist)>0 THEN
488	FOR j:=i TO High(tablist)-1 DO
489	tablist[j]:=tablist[j+1];
490	SetLength(tablist,Length(tablist)-1);
491	Break;
492	END;
493	END;
494	menu_tools.Enabled:=True;
495	END;
496
497
498	PROCEDURE TForm1.tabsChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
499	VAR
500	i:Byte;
501	BEGIN
502	FOR i:=0 TO MDIChildCount-1 DO BEGIN
503	IF MDIChildren[i].Name=tablist[NewTab] THEN
504	MDIChildren[i].BringToFront;
505	END;
506	END;
507
508	PROCEDURE TForm1.SetActiveWindow(window_name:String);
509	VAR
510	i:Byte;
511	BEGIN
512	IF Length(tablist)>0 THEN
513	FOR i:=0 TO High(tablist) DO
514	IF tablist[i]=window_name THEN
515	tabs.TabIndex:=i;
516	END;
517
518
519	END.