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 #1777: indicate functional key part in table editor with a different icon

Browse Source
This commit is contained in:
Ansgar Becker
2025-01-11 16:40:36 +01:00
parent 8a63ce7c70
commit 4cc6134cb0
2 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/table_editor.pas
View File

@ -1944,6 +1944,7 @@ procedure TfrmTableEditor.treeIndexesGetImageIndex(Sender: TBaseVirtualTree;
var Ghosted: Boolean; var ImageIndex: TImageIndex);
var
VT: TVirtualStringTree;
TblKey: TTableKey;
begin
// Icon image showing type of index
VT := Sender as TVirtualStringTree;
@ -1951,7 +1952,13 @@ begin
if not (Kind in [ikNormal, ikSelected]) then Exit;
case VT.GetNodeLevel(Node) of
0: ImageIndex := FKeys[Node.Index].ImageIndex;
1: ImageIndex := 42;
1: begin
TblKey := FKeys[Node.Parent.Index];
if TblKey.IsExpression(Node.Index) then
ImageIndex := 13
else
ImageIndex := 42;
end;
end;
end;