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

Don't call sorting procedure on right clicking header columns. Some list-headers have a contextmenu which should popup then.

Browse Source
This commit is contained in:
Ansgar Becker
2007-08-28 19:32:01 +00:00
parent af628e2ec0
commit e40df52ead
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/childwin.pas
View File

@@ -6025,6 +6025,11 @@ end;
procedure TMDIChild.vstHeaderClick(Sender: TVTHeader; Column:
TColumnIndex; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// Don't call sorting procedure on right click
// Some list-headers have a contextmenu which should popup then.
if Button = mbRight then
Exit;
if Sender.SortColumn <> Column then
Sender.SortColumn := Column
else if Sender.SortDirection = sdAscending then