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

* Fixed TfrmHueSettings not freeing the preset doc

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

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