Fix displaying the current database in childwins window caption.

This commit is contained in:
Ansgar Becker
2007-08-28 23:18:25 +00:00
parent b9d7377b64
commit e77a3ec06d

View File

@ -1282,9 +1282,9 @@ begin
tabData.TabVisible := false; tabData.TabVisible := false;
pnlTableTop.Caption := 'Table-Properties'; pnlTableTop.Caption := 'Table-Properties';
Caption := Description + ' - /' + ActualDatabase;
ActualDatabase := db; ActualDatabase := db;
EnsureActiveDatabase; EnsureActiveDatabase;
Caption := Description + ' - /' + ActualDatabase;
ActualTable := ''; ActualTable := '';
try try
ShowDBProperties( Self ); ShowDBProperties( Self );