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

- Fixed loading of hue presets

Browse Source 
- Fixed random pane sliding out of the main window
This commit is contained in:
Andreas Schneider 2011-03-29 22:57:11 +02:00
parent 086e6dbb7b
commit 4c76aafe47
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Client/Tools/UfrmHueSettings.pas
View File

@ -283,7 +283,7 @@ begin
presetElement := TDOMElement(FRandomHuePresetsDoc.DocumentElement.FirstChild); presetElement := TDOMElement(FRandomHuePresetsDoc.DocumentElement.FirstChild);
while presetElement <> nil do while presetElement <> nil do
begin begin
if presetElement.NodeName = 'HuePreset' then if presetElement.NodeName = 'Preset' then
cbRandomPreset.Items.AddObject(presetElement.AttribStrings['Name'], presetElement); cbRandomPreset.Items.AddObject(presetElement.AttribStrings['Name'], presetElement);
presetElement := TDOMElement(presetElement.NextSibling); presetElement := TDOMElement(presetElement.NextSibling);
end; end;

2
Client/UfrmMain.pas
View File

@ -1882,6 +1882,8 @@ end;
procedure TfrmMain.XMLPropStorage1RestoreProperties(Sender: TObject); procedure TfrmMain.XMLPropStorage1RestoreProperties(Sender: TObject);
begin begin
FTextureManager.UseAnims := mnuShowAnimations.Checked; FTextureManager.UseAnims := mnuShowAnimations.Checked;
if spTileList.Top > spTileList.Parent.Height then
spTileList.Top := spTileList.Parent.Height - 200;
end; end;
procedure TfrmMain.SetX(const AValue: Integer); procedure TfrmMain.SetX(const AValue: Integer);