From 2e08a5c51738d51775b7126c010707738986666a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 27 Dec 2023 10:23:20 +0000
Subject: [PATCH] jvcl: Fix Laz3.0 compilation of jvtimeline in a more
 consistent way.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9104 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../run/JvCustomControls/jvtmtimeline.pas     | 20 +++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas b/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas
index 2bb1d0c18..0744a0678 100644
--- a/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas
+++ b/components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas
@@ -122,11 +122,11 @@ type
     procedure DrawToday(ACanvas: TCanvas; const ARect: TRect);
     procedure SetImageCursor(const Value: TCursor);
     procedure SetSelection(const Value: TJvTLSelFrame);
-    procedure DoLMouseDown(Sender: TObject; Button: TMouseButton;
+    procedure DoLMouseBtnDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
-    procedure DoMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
+    procedure DoMouseBtnUp(Sender: TObject; {%H-}Button: TMouseButton;
       {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
-    procedure DoRMouseDown(Sender: TObject; Button: TMouseButton;
+    procedure DoRMouseBtnDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
     // this is needed so we receive the arrow keys
 
@@ -481,8 +481,8 @@ begin
     finally
       png.Free;
     end;
-    OnMouseDown := @DoLMouseDown;
-    OnMouseUp := @Self.DoMouseUp;
+    OnMouseDown := @DoLMouseBtnDown;
+    OnMouseUp := @DoMouseBtnUp;
     //    OnClick := LeftClick;
   end;
 
@@ -502,8 +502,8 @@ begin
     finally
       png.Free;
     end;
-    OnMouseDown := @DoRMouseDown;
-    OnMouseUp := @Self.DoMouseUp;
+    OnMouseDown := @DoRMouseBtnDown;
+    OnMouseUp := @DoMouseBtnUp;
   end;
   FLeftBtn.SetSubComponent(True);
   FRightBtn.SetSubComponent(True);
@@ -543,7 +543,7 @@ begin
   FTimer := nil;
 end;
 
-procedure TJvCustomTMTimeline.DoLMouseDown(Sender: TObject; Button: TMouseButton;
+procedure TJvCustomTMTimeline.DoLMouseBtnDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   if Button = mbRight then
@@ -557,7 +557,7 @@ begin
   StartTimer;
 end;
 
-procedure TJvCustomTMTimeline.DoRMouseDown(Sender: TObject; Button: TMouseButton;
+procedure TJvCustomTMTimeline.DoRMouseBtnDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   if Button = mbRight then
@@ -571,7 +571,7 @@ begin
   StartTimer;
 end;
 
-procedure TJvCustomTMTimeline.DoMouseUp(Sender: TObject; Button: TMouseButton;
+procedure TJvCustomTMTimeline.DoMouseBtnUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   FBtnDown := bdNone;