paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:37:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Workaround for TChartListbox not detecting clicks on checkbox and series icon correctly on macOS Monterey. See https://forum.lazarus.freepascal.org/index.php/topic,61074.msg458489.html.

Browse Source
This commit is contained in:
wp_xyz 2022-11-02 21:59:00 +01:00
parent f45f3610f4
commit e171cf6f33
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tachartlistbox.pas
View File

@ -549,7 +549,7 @@ end;
procedure TChartListbox.MouseDown(
AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
var
rcb, ricon: TRect;
R, rcb, ricon: TRect;
index: Integer;
p: TPoint;
begin
@ -560,7 +560,17 @@ begin
p := Point(AX, AY);
index := GetIndexAtXY(AX, AY);
if index < 0 then exit;
CalcRects(ItemRect(index), rcb, ricon);
R := ItemRect(index);
{$IFDEF DARWIN}
{ Workaround for ItemRect returning something different than what is
passed to DrawItem in macOS Monterey.
See discussion in https://forum.lazarus.freepascal.org/index.php/topic,61074.0.html
The consequence of this workaround is that there can only be a single
column, but Columns > 1 does not work on cocoa anyway. }
R.Left := 0;
R.Right := ClientWidth;
{$ENDIF}
CalcRects(R, rcb, ricon);
if (cloShowCheckboxes in Options) and IsPointInRect(p, rcb) then
ClickedCheckbox(index)
else if (cloShowIcons in Options) and IsPointInRect(p, ricon) then