[JVCL-Checkins] SF.net SVN: jvcl:[12939] trunk/jvcl/run/JvDBGrid.pas

[<ah...@us...>]

Revision: 12939
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12939&view=rev
Author:   ahuser
Date:     2010-11-28 16:50:53 +0000 (Sun, 28 Nov 2010)

Log Message:
-----------
Mantis #5285: TJvDBGrid - Columns can't be moved
Mantis #4421: JvDBGrid and TitlePopup (reopened)

Modified Paths:
--------------
    trunk/jvcl/run/JvDBGrid.pas

Modified: trunk/jvcl/run/JvDBGrid.pas
===================================================================
--- trunk/jvcl/run/JvDBGrid.pas	2010-11-28 16:34:06 UTC (rev 12938)
+++ trunk/jvcl/run/JvDBGrid.pas	2010-11-28 16:50:53 UTC (rev 12939)
@@ -2359,8 +2359,11 @@
         (dgTitles in Options) and (dgIndicator in Options) and
         (Cell.Y = 0) then
       begin
-        if (FTitleArrow and Assigned(FOnTitleArrowMenuEvent)) then
+        if (Cell.X = 0) and FTitleArrow and Assigned(FOnTitleArrowMenuEvent) then
+        begin
           FOnTitleArrowMenuEvent(Self);
+          Exit;
+        end;
 
         // Display TitlePopup if it exists
         if Assigned(FTitlePopup) then
@@ -2368,8 +2371,8 @@
           GetCursorPos(CursorPos);
           FTitlePopup.PopupComponent := Self;
           FTitlePopup.Popup(CursorPos.X, CursorPos.Y);
+          Exit;
         end;
-        Exit;
       end;
 
       if (DragKind = dkDock) and (Cell.X < IndicatorOffset) and


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.