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 DrawToday(ACanvas: TCanvas; const ARect: TRect);
procedure SetImageCursor(const Value: TCursor); procedure SetImageCursor(const Value: TCursor);
procedure SetSelection(const Value: TJvTLSelFrame); procedure SetSelection(const Value: TJvTLSelFrame);
procedure DoLMouseDown(Sender: TObject; Button: TMouseButton; procedure DoLMouseBtnDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; {%H-}X, {%H-}Y: Integer); 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); {%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); Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
// this is needed so we receive the arrow keys // this is needed so we receive the arrow keys
@ -481,8 +481,8 @@ begin
finally finally
png.Free; png.Free;
end; end;
OnMouseDown := @DoLMouseDown; OnMouseDown := @DoLMouseBtnDown;
OnMouseUp := @Self.DoMouseUp; OnMouseUp := @DoMouseBtnUp;
// OnClick := LeftClick; // OnClick := LeftClick;
end; end;
@ -502,8 +502,8 @@ begin
finally finally
png.Free; png.Free;
end; end;
OnMouseDown := @DoRMouseDown; OnMouseDown := @DoRMouseBtnDown;
OnMouseUp := @Self.DoMouseUp; OnMouseUp := @DoMouseBtnUp;
end; end;
FLeftBtn.SetSubComponent(True); FLeftBtn.SetSubComponent(True);
FRightBtn.SetSubComponent(True); FRightBtn.SetSubComponent(True);
@ -543,7 +543,7 @@ begin
FTimer := nil; FTimer := nil;
end; end;
procedure TJvCustomTMTimeline.DoLMouseDown(Sender: TObject; Button: TMouseButton; procedure TJvCustomTMTimeline.DoLMouseBtnDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
begin begin
if Button = mbRight then if Button = mbRight then
@ -557,7 +557,7 @@ begin
StartTimer; StartTimer;
end; end;
procedure TJvCustomTMTimeline.DoRMouseDown(Sender: TObject; Button: TMouseButton; procedure TJvCustomTMTimeline.DoRMouseBtnDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
begin begin
if Button = mbRight then if Button = mbRight then
@ -571,7 +571,7 @@ begin
StartTimer; StartTimer;
end; end;
procedure TJvCustomTMTimeline.DoMouseUp(Sender: TObject; Button: TMouseButton; procedure TJvCustomTMTimeline.DoMouseBtnUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
begin begin
FBtnDown := bdNone; FBtnDown := bdNone;