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

Display number of indexes and foreign keys in caption of their tabs within the table editor. Helpful for knowing the number without having to activate their tab.

Browse Source
This commit is contained in:
Ansgar Becker
2021-01-04 16:44:50 +01:00
parent 34db4c7abd
commit 6fd54fb9d4
2 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/table_editor.pas
View File

@ -171,6 +171,8 @@ type
procedure menuCopyColumnsClick(Sender: TObject);
procedure menuPasteColumnsClick(Sender: TObject);
procedure listColumnsChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure AnyTreeStructureChange(Sender: TBaseVirtualTree;
Node: PVirtualNode; Reason: TChangeReason);
private
{ Private declarations }
FLoaded: Boolean;
@ -188,6 +190,7 @@ type
procedure UpdateSQLcode;
function CellEditingAllowed(Node: PVirtualNode; Column: TColumnIndex): Boolean;
procedure CalcMinColWidth;
procedure UpdateTabCaptions;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
@ -362,6 +365,7 @@ begin
btnHelp.Top := btnSave.Top;
btnDiscard.Top := btnSave.Top;
UpdateSQLCode;
UpdateTabCaptions;
CalcMinColWidth;
// Indicate change mechanisms can call their events now. See Modification().
FLoaded := True;
@ -2553,4 +2557,19 @@ begin
end;
procedure TfrmTableEditor.AnyTreeStructureChange(Sender: TBaseVirtualTree;
Node: PVirtualNode; Reason: TChangeReason);
begin
UpdateTabCaptions;
end;
procedure TfrmTableEditor.UpdateTabCaptions;
begin
// Append number of listed keys (or whatever) to the tab caption
tabIndexes.Caption := _('Indexes') + ' (' + FKeys.Count.ToString + ')';
tabForeignKeys.Caption := _('Foreign keys') + ' (' + FForeignKeys.Count.ToString + ')';
end;
end.