--- oup/current/Main.pas	2006/12/23 00:03:50	45
+++ oup/current/Main.pas	2006/12/23 16:26:43	46
@@ -7,9 +7,9 @@ uses
   Dialogs, StdCtrls, StrUtils, Clipbrd, ExtCtrls, ComCtrls, Menus, Grids,
   MPHexEditor, ToolWin, ImgList, Tabs,
   MDITab, TB2Item, TB2Dock, TB2Toolbar, TB2MDI,
-  Code_Functions, Data, Code_DataStructures, Code_OniDataClass,
-  Helper_LevelDB, Code_Exporters, Settings, Tool_Template,
-  Tool_BinEdit, Tool_Extractor, Tool_Preview, Tool_RawEdit, Tool_TxmpReplace;
+  Data, Functions, DataStructures, OniDataClass, Exporters,
+  Helper_LevelDB, Settings, Template,
+  BinEdit, Extractor, Preview, RawEdit, TxmpReplace;
 
 type
   TForm_Main = class(TForm)
@@ -65,6 +65,7 @@ type
     tb_txmpreplacer: TTBItem;
     tb_rawedit: TTBItem;
     tb_datedit: TTBItem;
+    menu_windows_tilevert: TTBItem;
     function TryCloseAll: Boolean;
     procedure menu_AboutClick(Sender: TObject);
     procedure menu_settingsClick(Sender: TObject);
@@ -76,7 +77,7 @@ type
     procedure menu_windows_previousClick(Sender: TObject);
     procedure menu_windows_nextClick(Sender: TObject);
     procedure menu_windows_tileClick(Sender: TObject);
-    function open_child(window_context: String; fileid: Integer): Boolean;
+    function open_child(window_context: String; fileid: Integer): TForm_ToolTemplate;
     procedure menu_windows_closeallClick(Sender: TObject);
     procedure menu_windows_cascadeClick(Sender: TObject);
     procedure menu_bineditClick(Sender: TObject);
@@ -96,6 +97,7 @@ type
     procedure ActivateTools(active: Boolean);
     procedure MDITabMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
+    procedure menu_windows_tilevertClick(Sender: TObject);
   private
   public
   end;
@@ -474,6 +476,11 @@ begin
   Self.Tile;
 end;
 
+procedure TForm_Main.menu_windows_tilevertClick(Sender: TObject);
+begin
+  Self.TileMode := tbVertical;
+  Self.Tile;
+end;
 
 
 procedure TForm_Main.menu_windows_closeallClick(Sender: TObject);
@@ -516,14 +523,14 @@ end;
 
 
 
-function TForm_Main.open_child(window_context: String; fileid: Integer): Boolean;
+function TForm_Main.open_child(window_context: String; fileid: Integer): TForm_ToolTemplate;
 var
   toolform: TForm_ToolTemplate;
   i:       Integer;
   tag:     Integer;
   iconindex: Integer;
 begin
-  Result := True;
+  Result := nil;
 
   tag := 1;
   if MDIChildCount > 0 then
@@ -537,27 +544,31 @@ begin
   begin
     toolform         := TForm_BinEdit.Create(Self);
     toolform.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
-    iconindex        := 0;
+    iconindex        := 4;
   end;
   if window_context = 'extractor' then
   begin
     toolform         := TForm_Extractor.Create(Self);
     toolform.Caption := 'Extractor ' + IntToStr(tag);
+    iconindex        := 7;
   end;
   if window_context = 'preview' then
   begin
     toolform         := TForm_Preview.Create(Self);
     toolform.Caption := 'Preview-Window ' + IntToStr(tag);
+    iconindex        := 3;
   end;
   if window_context = 'rawedit' then
   begin
     toolform         := TForm_RawEdit.Create(Self);
     toolform.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
+    iconindex        := 5;
   end;
   if window_context = 'txmpreplace' then
   begin
     toolform         := TForm_TxmpReplace.Create(Application);
     toolform.Caption := 'TXMP Replacer ' + IntToStr(tag);
+    iconindex        := 6;
   end;
 
   if Assigned(toolform) then
@@ -567,6 +578,7 @@ begin
     MDITab.AddTab(TForm(toolform), iconindex);
     if fileid > -1 then
       toolform.SelectFileID(fileid);
+    Result := toolform;
   end;
 end;