opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Solve issue #1221 and issue #1222: unify window caption and taskbar text, and update them at the right event.

Browse Source
This commit is contained in:
Ansgar Becker
2009-06-12 18:29:59 +00:00
parent d757b579ac
commit e684f8be78
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/main.pas
View File

@@ -1592,8 +1592,6 @@ begin
begin
winName := winName + Format( ' (%d)', [i] );
end;
Application.Title := winName + ' - ' + APPNAME;
Caption := winName;
// Reselect last used database
if GetRegValue( REGNAME_RESTORELASTUSEDDB, DEFAULT_RESTORELASTUSEDDB ) then begin
@@ -3289,7 +3287,6 @@ begin
tabEditor.TabVisible := false;
tabData.TabVisible := false;
Caption := winName;
PageControlMainChange( Self );
end;
@@ -3305,7 +3302,6 @@ begin
tabEditor.TabVisible := false;
tabData.TabVisible := false;
Caption := winName + ' - /' + db;
ShowDBProperties( db );
end;
@@ -6812,7 +6808,7 @@ end;
procedure TMainForm.DBtreeFocusChanged(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex);
var
newDb: WideString;
newDb, newDbObject, Cap: WideString;
begin
debug('DBtreeFocusChanged()');
if not Assigned(Node) then
@@ -6828,6 +6824,7 @@ begin
end;
2: begin
newDb := Databases[Node.Parent.Index];
newDbObject := SelectedTable.Text;
tabEditor.TabVisible := True;
tabData.TabVisible := SelectedTable.NodeType in [lntTable, lntCrashedTable, lntView];
if tabEditor.TabVisible then begin
@@ -6854,6 +6851,15 @@ begin
end;
if newDb <> '' then
LoadDatabaseProperties(newDb);
// Set window caption and taskbar text
Cap := winName;
if newDb <> '' then
Cap := Cap + ' /' + newDb;
if newDbObject <> '' then
Cap := Cap + '/' + newDbObject;
Cap := Cap + ' - ' + APPNAME + ' ' + FullAppVersion;
Caption := Cap;
Application.Title := Cap;
end;