opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix part of registry key RecentFilters showing up in perspectives menu.

Browse Source
This commit is contained in:
Ansgar Becker
2009-01-28 19:57:19 +00:00
parent bfa3189188
commit c7a394748c
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/main.pas
View File

@ -8400,10 +8400,15 @@ begin
OpenRegistry;
if MainReg.OpenKey(GetRegKeyTable, False) then begin
MainReg.GetKeyNames(List);
for i := 0 to List.Count - 1 do
for i := List.Count - 1 downto 0 do begin
logsql(Copy(List[i], 0, Length(REGPREFIX_DATAVIEW)));
if Copy(List[i], 0, Length(REGPREFIX_DATAVIEW)) <> REGPREFIX_DATAVIEW then
List.Delete(i)
else
List[i] := Copy(List[i], Length(REGPREFIX_DATAVIEW)+1, Length(List[i]));
end;
end;
end;
procedure TMainForm.menuViewSaveClick(Sender: TObject);