oup/current/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,
  Unit15_Classes, MDITab, TB2Item, TB2Dock, TB2Toolbar, TB2MDI;

TYPE
  TForm1 = Class(TForm)
    saved: TSaveDialog;
    opend: TOpenDialog;
    statbar: TStatusBar;
    MenuImages: TImageList;
    MDITabPopUp: TPopupMenu;
    mdi_close: TMenuItem;
    DockTop: TTBDock;
    MainMenu: TTBToolbar;
    menu_main: TTBSubmenuItem;
    menu_loaddat: TTBItem;
    menu_lvldb: TTBItem;
    menu_CloseFileDB: 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;
    MDIHandler: TTBMDIHandler;
    MDIToolbar: TTBToolbar;
    TBControlItem1: TTBControlItem;
    MDITab: TMDITab;
    menu_view: TTBSubmenuItem;
    menu_view_mdibar: TTBItem;
    menu_view_statusbar: TTBItem;
    menu_view_toolbar: TTBItem;
    toolbar_mdi: TTBToolbar;
    TBItem1: TTBItem;
    TBItem2: TTBItem;
    FUNCTION TryCloseAll:Boolean;
    procedure menu_AboutClick(Sender: TObject);
    PROCEDURE menu_settingsClick(Sender: TObject);
    PROCEDURE menu_CloseFileDBClick(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 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);
    PROCEDURE UpdateStatBar;
    procedure MDITabGetImageIndex(Sender: TObject; TabIndex: Integer;
      var ImageIndex: Integer);
    procedure MDIToolbarResize(Sender: TObject);
    procedure menu_view_mdibarClick(Sender: TObject);
    procedure menu_view_statusbarClick(Sender: TObject);
    procedure menu_view_toolbarClick(Sender: TObject);
  PRIVATE
  PUBLIC
  END;

VAR
  Form1: TForm1;

IMPLEMENTATION
{$R *.dfm}

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';
      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 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.MDITabGetImageIndex(Sender: TObject; TabIndex: Integer; var ImageIndex: Integer);
  begin
//    if Pos('binedit',MDITab.MDIChildren[TabIndex].Name)>0 then
//      ImageIndex:=0
//    else
      ImageIndex:=-1;
  end;

procedure TForm1.MDIToolbarResize(Sender: TObject);
  begin
{    if MDIToolbar.Width>100 then
      MDITab.Width:=MDIToolbar.Width-10
    else
      MDIToolbar.Width:=100;
}  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;


PROCEDURE TForm1.UpdateStatBar;
  BEGIN
    IF Assigned(OniDataConnection) THEN BEGIN
      Form1.Caption:='Oni Un/Packer '+version+' ('+ExtractFileName(OniDataConnection.FileName)+')';
      menu_tools.Enabled:=True;
      menu_convert.Enabled:=False;
      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
        Form1.Caption:='Oni Un/Packer '+version;
        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 ELSE BEGIN
      Form1.Caption:='Oni Un/Packer '+version;
      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;


FUNCTION TForm1.TryCloseAll:Boolean;
  BEGIN
    menu_windows_closeallClick(Self);
    IF MDITab.MDIChildCount=0 THEN
      Result:=True
    ELSE
      Result:=False;
  END;


{#################################}
{##### Main-Menu-Handlers    #####}
{#################################}
PROCEDURE TForm1.menu_loaddatClick(Sender: TObject);
  VAR i:LongWord;
    answer:Boolean;
  BEGIN
    IF TryCloseAll THEN BEGIN
      CloseDataConnection;
      opend.InitialDir:=AppSettings.DatPath;
      opend.Filter:='Oni-Dat-Files|*.dat';
      IF opend.Execute 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?');
        AppSettings.DatPath:=ExtractFilepath(opend.FileName);
      END;
    END;
    UpdateStatBar;
  END;
PROCEDURE TForm1.menu_lvldbClick(Sender: TObject);
  VAR answer:Boolean;
  BEGIN
    IF TryCloseAll THEN BEGIN
      CloseDataConnection;
      opend.InitialDir:=AppSettings.DatPath;
      opend.Filter:='OUP-Level-DB (*.oldb)|*.oldb';
      IF opend.Execute 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?');
        AppSettings.DatPath:=ExtractFilepath(opend.FileName);
      END;
    END;
    UpdateStatBar;
  END;
PROCEDURE TForm1.menu_CloseFileDBClick(Sender: TObject);
  BEGIN
    IF TryCloseAll THEN BEGIN
      CloseDataConnection;
      UpdateStatBar;
    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;


{#################################}
{#####   View-Menu-Handlers  #####}
{#################################}
procedure TForm1.menu_view_mdibarClick(Sender: TObject);
  begin
    menu_view_mdibar.Checked := not menu_view_mdibar.Checked;
    mditoolbar.Visible := menu_view_mdibar.Checked;
  end;
procedure TForm1.menu_view_statusbarClick(Sender: TObject);
  begin
    menu_view_statusbar.Checked := not menu_view_statusbar.Checked;
    statbar.Visible := menu_view_statusbar.Checked;
  end;
procedure TForm1.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 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
    MDITab.CloseAll;
  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;
    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;
    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;
  END;

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


FUNCTION TForm1.open_child(window_context:String):Boolean;
  VAR
    rawEdit:TForm13;
    binEdit:TForm8;
    preview:TForm5;
    txmpreplacer:TForm7;
    extractor:TForm11;
    menu_button:TTBItem;
    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:=TTBItem.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);

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

      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;
    menu_tools.Enabled:=True;
  END;


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