From e902c435acead371e33d82fd613afbb1813cae31 Mon Sep 17 00:00:00 2001
From: Jonathan Barnard <winelauncher.jonathan@googlemail.com>
Date: Wed, 5 Aug 2009 22:04:28 +0100
Subject: [PATCH] UnitMain: Load FrameCreatePrefix.

---
 UnitMain.pas     | 14 +++++++++++++-
 WineLauncher.lpi |  2 +-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/UnitMain.pas b/UnitMain.pas
index b74b206..0b7ed31 100644
--- a/UnitMain.pas
+++ b/UnitMain.pas
@@ -24,7 +24,7 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  DbCtrls, strutils, BaseUnix,  Process, CheckLst, Math, ExtCtrls, ComCtrls;
+  DbCtrls, strutils, BaseUnix,  Process, CheckLst, Math, ExtCtrls, ComCtrls, UnitCreatePrefix;
 
 type
 
@@ -94,6 +94,8 @@ var
   UnixDirPath:string; { Needed for setting the working dir at 'Run'. }
   Mode:boolean;
   Timer:TTimer; {The timer is a workaround.}
+  TabSheet1:TTabSheet;
+  FrameCreatePrefix:TFrameCreatePrefix;  {This is FrameCreatePrefix.}
 
 implementation
 uses
@@ -121,6 +123,16 @@ begin
      if ComboBox_TerminalName.items.Count <> 0 then ComboBox_TerminalName.Text := ComboBox_TerminalName.Items[0];
      if ComboBox_WineVersion.Items.Count <> 0 then ComboBox_WineVersion.Text := ComboBox_WineVersion.Items[0];
 
+     {Make tab sheet for create prefix.}
+     TabSheet1 := TTabSheet.Create(Self);
+     TabSheet1.Caption := 'Create prefix';
+     TabSheet1.PageControl := PageControl1;
+     {Embed The Create Prefix frame into TabSheet1.}
+     FrameCreatePrefix := TFrameCreatePrefix.Create(Self);
+     FrameCreatePrefix.Parent := PageControl1.Page[1];
+     FrameCreatePrefix.Align := (alclient);
+     FrameCreatePrefix.Show;
+
      {Load LastUsedConfig.}
      LoadLastUsedConfig();
 
diff --git a/WineLauncher.lpi b/WineLauncher.lpi
index 1ec94d5..3b29998 100644
--- a/WineLauncher.lpi
+++ b/WineLauncher.lpi
@@ -96,7 +96,7 @@
       </Unit9>
       <Unit10>
         <Filename Value="Frame/CreatePrefix/UnitCreatePrefix.pas"/>
-        <ComponentName Value="Frame1"/>
+        <ComponentName Value="FrameCreatePrefix"/>
         <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Frame"/>
         <UnitName Value="UnitCreatePrefix"/>
-- 
2.11.4.GIT