paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 09:53:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Clear old left-over values when saving component palette configuration.

Browse Source 
git-svn-id: trunk@46867 -
This commit is contained in:
juha 2014-11-15 20:40:50 +00:00
parent b292340eb6
commit 2da65785f9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/componentreg.pas
View File

@ -408,16 +408,19 @@ begin
Path:='ComponentPaletteOptions/';
SubPath:=Path+'Pages/';
ConfigStore.DeletePath(SubPath);
ConfigStore.SetDeleteValue(SubPath+'Count', FPageNames.Count, 0);
for i:=0 to FPageNames.Count-1 do
ConfigStore.SetDeleteValue(SubPath+'Item'+IntToStr(i+1)+'/Value', FPageNames[i], '');
SubPath:=Path+'HiddenPages/';
ConfigStore.DeletePath(SubPath);
ConfigStore.SetDeleteValue(SubPath+'Count', FHiddenPageNames.Count, 0);
for i:=0 to FHiddenPageNames.Count-1 do
ConfigStore.SetDeleteValue(SubPath+'Item'+IntToStr(i+1)+'/Value', FHiddenPageNames[i], '');
SubPath:=Path+'ComponentPages/';
ConfigStore.DeletePath(SubPath);
ConfigStore.SetDeleteValue(SubPath+'Count', FComponentPages.Count, 0);
for i:=0 to FComponentPages.Count-1 do begin
CompList:=FComponentPages.Objects[i] as TStringList;