From b5317b3baea0c51bd8937ad0e3fb7629d174630b Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jul 2016 20:57:37 +0000
Subject: [PATCH] tvplanit: Activate some code commented in the original
 Lazarus port. (Trying to make the navbar accept clicks at designtime, not
 successful so far).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5000 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpnavbar.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/components/tvplanit/source/vpnavbar.pas b/components/tvplanit/source/vpnavbar.pas
index d89991080..0295908c5 100644
--- a/components/tvplanit/source/vpnavbar.pas
+++ b/components/tvplanit/source/vpnavbar.pas
@@ -281,9 +281,9 @@ type
     procedure nabProcessContainers;
 
     {VCL message methods}
+    procedure CMDesignHitTest(var Msg: TCMDesignHitTest); message CM_DESIGNHITTEST;
     {$IFNDEF LCL}
     procedure CMCtl3DChanged(var Msg: TMessage); message CM_CTL3DCHANGED;
-    procedure CMDesignHitTest(var Msg: TCMDesignHitTest); message CM_DESIGNHITTEST;
     procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
     procedure CMParentColorChanged(var Message: TMessage); message CM_PARENTCOLORCHANGED;
     {windows message response methods}
@@ -297,6 +297,7 @@ type
     {windows message response methods}
     procedure WMEraseBkGnd(var Msg: TLMEraseBkGnd); message LM_ERASEBKGND;
     procedure WMNCHitTest(var Msg: TLMNCHitTest);  message LM_NCHITTEST;
+    procedure WMSetCursor(var Msg: TLMSetCursor); message LM_SETCURSOR;
     {$ENDIF}
     procedure CreateParams(var Params: TCreateParams); override;
     procedure CreateWnd; override;
@@ -1128,12 +1129,10 @@ begin
 end;
 {=====}
 
-{$IFNDEF LCL}
 procedure TVpCustomNavBar.CMDesignHitTest(var Msg: TCMDesignHitTest);
 begin
   Msg.Result := LongInt(nabOverButton);
 end;
-{$ENDIF}
 {=====}
 
 procedure TVpCustomNavBar.CMFontChanged(var Msg: {$IFDEF LCL}TLMessage{$ELSE}TMessage{$ENDIF});
@@ -2930,8 +2929,11 @@ begin
 end;
 {=====}
 
-{$IFNDEF LCL}
+{$IFDEF LCL}
+procedure TVpCustomNavBar.WMSetCursor(var Msg: TLMSetCursor);
+{$ELSE}
 procedure TVpCustomNavBar.WMSetCursor(var Msg: TWMSetCursor);
+{$ENDIF}
 var
   I : Integer;
   R : TRect;
@@ -2952,7 +2954,6 @@ begin
   end;
   inherited;
 end;
-{$ENDIF}
 {=====}
 
 { Overridden DragOver method. }