opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Read recent filters from registry following a numeric counter, instead of taking GetValueNames, which has a wrong sort order. See http://www.heidisql.com/forum.php?t=11161

Browse Source
This commit is contained in:
Ansgar Becker
2012-09-09 17:52:30 +00:00
parent f96f4de2b7
commit 0c42aa62f1
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/main.pas
View File

@ -8849,7 +8849,6 @@ end;
procedure TMainForm.EnumerateRecentFilters;
var
flt: TStringList;
i: Integer;
item: TMenuItem;
rx: TRegExpr;
@ -8864,25 +8863,23 @@ begin
Path := GetRegKeyTable+'\'+REGKEY_RECENTFILTERS;
if AppSettings.SessionPathExists(Path) then begin
AppSettings.SessionPath := Path;
flt := AppSettings.GetValueNames;
rx := TRegExpr.Create;
rx.Expression := '\s+';
for i:=0 to flt.Count-1 do begin
for i:=1 to 20 do begin
// Previously introduced bugs stored some other settings here, see issue #2127
if flt[i] <> IntToStr(MakeInt(flt[i])) then
continue;
item := TMenuItem.Create(popupFilter);
capt := AppSettings.ReadString(flt[i]);
capt := AppSettings.ReadString(asRecentFilter, IntToStr(i));
if IsEmpty(capt) then
Break;
capt := rx.Replace(capt, ' ', True);
item.Hint := capt;
item.Caption := sstr(capt, 50);
item.Tag := MakeInt(flt[i]);
item.Tag := i;
item.OnClick := LoadRecentFilter;
menuRecentFilters.Add(item);
comboRecentFilters.Items.Add(sstr(capt, 100));
end;
FreeAndNil(rx);
FreeAndNil(flt);
AppSettings.ResetPath;
menuRecentFilters.Enabled := menuRecentFilters.Count > 0;
end;
@ -8914,7 +8911,7 @@ begin
SynMemoFilter.UndoList.AddGroupBreak;
SynMemoFilter.BeginUpdate;
SynMemoFilter.SelectAll;
SynMemoFilter.SelText := AppSettings.ReadString(IntToStr(key));
SynMemoFilter.SelText := AppSettings.ReadString(asRecentFilter, IntToStr(key));
SynMemoFilter.EndUpdate;
AppSettings.ResetPath;
end;