pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcl: Fix Laz3.0 compilation of jvtimeline in a more consistent way.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9104 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-12-27 10:23:20 +00:00
parent 711927ffd9
commit 2e08a5c517
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas
View File

@ -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;