paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 02:57:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa/TabControl: jumping to the First/Last tab supported by the Arrow Button long pressed

Browse Source 
Arrow Button pressed longer than NSEvent.doubleClickInterval (usually 0.5 seconds)
This commit is contained in:
rich2014 2023-10-02 00:02:52 +08:00
parent 10862c1cef
commit e4a5170e36
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/cocoa/cocoatabcontrols.pas
View File

@ -107,9 +107,11 @@ type
TCocoaTabControlArrow = objcclass(NSButton)
private
_tabControl: TCocoaTabControl;
_lastMouseDownTime: NSDate;
private
function speedUp(): Boolean; message 'speedUp';
function shouldSpeedUp(): Boolean; message 'shouldSpeedUp';
public
procedure mouseDown(theEvent: NSEvent); override;
procedure prevClick(sender: id); message 'prevClick:';
procedure nextClick(sender: id); message 'nextClick:';
end;
@ -783,7 +785,14 @@ end;
{ TCocoaTabControlArrow }
function TCocoaTabControlArrow.speedUp(): Boolean;
procedure TCocoaTabControlArrow.mouseDown(theEvent: NSEvent);
begin
_lastMouseDownTime := NSDate.date;
inherited;
_lastMouseDownTime := nil;
end;
function TCocoaTabControlArrow.shouldSpeedUp(): Boolean;
const
FOUR_MODIFIER_FLAGS = NSShiftKeyMask
or NSControlKeyMask
@ -792,6 +801,8 @@ const
begin
if (NSApp.currentEvent.modifierFlags and FOUR_MODIFIER_FLAGS)<>0 then
exit(true);
if NSDate.date.timeIntervalSinceDate(_lastMouseDownTime) > NSEvent.doubleClickInterval then
exit(true);
Result := false;
end;
@ -802,7 +813,7 @@ begin
currentIndex := _tabControl.currentIndex;
if currentIndex = 0 then
Exit;
if speedUp() then
if shouldSpeedUp() then
currentIndex := 0
else
dec(currentIndex);
@ -816,7 +827,7 @@ begin
currentIndex := _tabControl.currentIndex;
if currentIndex = _tabControl.fulltabs.count - 1 then
Exit;
if speedUp() then
if shouldSpeedUp() then
currentIndex := _tabControl.fulltabs.count - 1
else
inc(currentIndex);