From 4c76aafe47e07c385276dd83c8ef0ed5540641aa Mon Sep 17 00:00:00 2001 From: Andreas Schneider Date: Tue, 29 Mar 2011 22:57:11 +0200 Subject: [PATCH] - Fixed loading of hue presets - Fixed random pane sliding out of the main window --- Client/Tools/UfrmHueSettings.pas | 2 +- Client/UfrmMain.pas | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Client/Tools/UfrmHueSettings.pas b/Client/Tools/UfrmHueSettings.pas index 11920a3..e07ebb0 100644 --- a/Client/Tools/UfrmHueSettings.pas +++ b/Client/Tools/UfrmHueSettings.pas @@ -283,7 +283,7 @@ begin presetElement := TDOMElement(FRandomHuePresetsDoc.DocumentElement.FirstChild); while presetElement <> nil do begin - if presetElement.NodeName = 'HuePreset' then + if presetElement.NodeName = 'Preset' then cbRandomPreset.Items.AddObject(presetElement.AttribStrings['Name'], presetElement); presetElement := TDOMElement(presetElement.NextSibling); end; diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas index e10eab8..983ed47 100644 --- a/Client/UfrmMain.pas +++ b/Client/UfrmMain.pas @@ -1882,6 +1882,8 @@ end; procedure TfrmMain.XMLPropStorage1RestoreProperties(Sender: TObject); begin FTextureManager.UseAnims := mnuShowAnimations.Checked; + if spTileList.Top > spTileList.Parent.Height then + spTileList.Top := spTileList.Parent.Height - 200; end; procedure TfrmMain.SetX(const AValue: Integer);