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

Issue #140: Erase ini section of a closed tab, in which the user loaded some physical file. Fixes wrongly restored tabs which were closed in previous session.

Browse Source
This commit is contained in:
Ansgar Becker
2019-06-03 20:33:11 +02:00
parent 6e2bca2ffa
commit 19775ef941
1 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
source/main.pas
View File

@ -2165,16 +2165,15 @@ procedure TMainForm.StoreTabs;
var
Tab: TQueryTab;
Section: String;
Sections: TStringList;
TabsIni: TIniFile;
SectionTabExists: Boolean;
begin
// Store query tab unsaved contents and setup, in tabs.ini
try
TabsIni := InitTabsIniFile;
// Todo: erase sections from closed tabs
// ab: is that really required? Tabs with deleted files don't get restored anyway.
for Tab in QueryTabs do begin
Tab.BackupUnsavedContent;
Section := Tab.Uid;
@ -2190,6 +2189,24 @@ begin
end;
end;
// Tabs with deleted files don't get restored anyway. But closed tabs with physically existing
// files still need to be erased
Sections := TStringList.Create;
TabsIni.ReadSections(Sections);
for Section in Sections do begin
SectionTabExists := False;
for Tab in QueryTabs do begin
if Tab.Uid = Section then begin
SectionTabExists := True;
Break;
end;
end;
// Delete tab section if no tab was closed
if not SectionTabExists then begin
TabsIni.EraseSection(Section);
end;
end;
// Close file
TabsIni.Free;
except