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

Fix crash when drag'n dropping indexed column in table designer. Closes #385

Browse Source
This commit is contained in:
Ansgar Becker
2019-05-19 12:26:01 +02:00
parent 99e095fc39
commit ce29d1b39b
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/table_editor.pas
View File

@ -1826,7 +1826,8 @@ begin
end;
if VT.GetNodeLevel(Node) = 1 then begin
ColPos := Node.Index;
if Mode = dmBelow then Inc(ColPos);
if (Mode = dmAbove) and (ColPos > 0) then
Dec(ColPos);
Node := Node.Parent;
end else
ColPos := Node.ChildCount;
@ -1879,6 +1880,10 @@ begin
if treeIndexes.IsEditing then
treeIndexes.EndEditNode;
TblKey := FKeys[treeIndexes.FocusedNode.Parent.Index];
if (NewIdx >= TblKey.Columns.Count) or (NewIdx < 0) then begin
MessageBeep(MB_ICONEXCLAMATION);
Exit;
end;
TblKey.Columns.Move(treeIndexes.FocusedNode.Index, NewIdx);
TblKey.SubParts.Move(treeIndexes.FocusedNode.Index, NewIdx);
Modification(treeIndexes);