From 395c8fbe96e2d5e12cc93b1a0f906ccd65e3ee6f Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Mon, 3 Oct 2011 20:32:46 +0200
Subject: [PATCH] * Fixed TfrmHueSettings not freeing the preset doc

---
 Client/CentrED.lpi               | 21 ++++++++++-----------
 Client/Tools/UfrmHueSettings.lfm |  1 +
 Client/Tools/UfrmHueSettings.pas |  6 ++++++
 3 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/Client/CentrED.lpi b/Client/CentrED.lpi
index 012bb7d..6b6455a 100644
--- a/Client/CentrED.lpi
+++ b/Client/CentrED.lpi
@@ -17,9 +17,9 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MinorVersionNr Value="6"/>
-      <RevisionNr Value="1"/>
-      <BuildNr Value="209"/>
-      <StringTable CompanyName="AKS DataBasis" FileDescription="UO CentrED" InternalName="CentrED" LegalCopyright="Andreas Schneider" OriginalFilename="CentrED.exe" ProductName="CentrED" ProductVersion="0.6.1"/>
+      <RevisionNr Value="2"/>
+      <BuildNr Value="223"/>
+      <StringTable CompanyName="AKS DataBasis" ProductName="CentrED" InternalName="CentrED" LegalCopyright="Andreas Schneider" ProductVersion="0.6.2" FileDescription="UO CentrED" OriginalFilename="CentrED.exe"/>
     </VersionInfo>
     <BuildModes Count="3">
       <Item1 Name="default" Default="True"/>
@@ -50,6 +50,7 @@
           </CodeGeneration>
           <Linking>
             <Debugging>
+              <DebugInfoType Value="dsAuto"/>
               <UseLineInfoUnit Value="False"/>
               <StripSymbols Value="True"/>
             </Debugging>
@@ -98,6 +99,7 @@
           </CodeGeneration>
           <Linking>
             <Debugging>
+              <DebugInfoType Value="dsAuto"/>
               <UseLineInfoUnit Value="False"/>
               <StripSymbols Value="True"/>
             </Debugging>
@@ -134,7 +136,7 @@
     <RequiredPackages Count="6">
       <Item1>
         <PackageName Value="LCLBase"/>
-        <MinVersion Major="1" Release="1" Valid="True"/>
+        <MinVersion Major="1" Valid="True" Release="1"/>
       </Item1>
       <Item2>
         <PackageName Value="multiloglaz"/>
@@ -148,11 +150,11 @@
       </Item4>
       <Item5>
         <PackageName Value="lnetvisual"/>
-        <MinVersion Minor="5" Release="3" Valid="True"/>
+        <MinVersion Minor="5" Valid="True" Release="3"/>
       </Item5>
       <Item6>
         <PackageName Value="virtualtreeview_package"/>
-        <MinVersion Major="4" Minor="5" Release="1" Valid="True"/>
+        <MinVersion Major="4" Minor="5" Valid="True" Release="1"/>
       </Item6>
     </RequiredPackages>
     <Units Count="46">
@@ -454,12 +456,9 @@
     <Linking>
       <Debugging>
         <GenerateDebugInfo Value="True"/>
+        <DebugInfoType Value="dsStabs"/>
+        <UseHeaptrc Value="True"/>
       </Debugging>
-      <Options>
-        <Win32>
-          <GraphicApplication Value="True"/>
-        </Win32>
-      </Options>
     </Linking>
     <Other>
       <CompilerMessages>
diff --git a/Client/Tools/UfrmHueSettings.lfm b/Client/Tools/UfrmHueSettings.lfm
index 659851f..edeaa49 100644
--- a/Client/Tools/UfrmHueSettings.lfm
+++ b/Client/Tools/UfrmHueSettings.lfm
@@ -9,6 +9,7 @@ inherited frmHueSettings: TfrmHueSettings
   ClientWidth = 225
   Constraints.MinWidth = 225
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   object lblHue: TLabel[0]
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = edHue
diff --git a/Client/Tools/UfrmHueSettings.pas b/Client/Tools/UfrmHueSettings.pas
index e07ebb0..2d13567 100644
--- a/Client/Tools/UfrmHueSettings.pas
+++ b/Client/Tools/UfrmHueSettings.pas
@@ -60,6 +60,7 @@ type
     procedure cbRandomPresetChange(Sender: TObject);
     procedure edHueEditingDone(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure lbHueDrawItem(Control: TWinControl; Index: Integer; ARect: TRect;
       State: TOwnerDrawState);
     procedure lbHueSelectionChange(Sender: TObject; User: boolean);
@@ -229,6 +230,11 @@ begin
   LoadRandomPresets;
 end;
 
+procedure TfrmHueSettings.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(FRandomHuePresetsDoc);
+end;
+
 procedure TfrmHueSettings.lbHueDrawItem(Control: TWinControl; Index: Integer;
   ARect: TRect; State: TOwnerDrawState);
 var