aksdb
/
CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

* Fixed TfrmHueSettings not freeing the preset doc

This commit is contained in:
Andreas Schneider 2011-10-03 20:32:46 +02:00
parent d2f7bdc54f
commit 395c8fbe96
3 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Client/CentrED.lpi
View File

@ -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>

1
Client/Tools/UfrmHueSettings.lfm
View File

@ -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

6
Client/Tools/UfrmHueSettings.pas
View File

@ -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