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

Cocoa: fix a bug in TCocoaWSCustomTabControl.ShowTabs()

Browse Source
This commit is contained in:
rich2014 2023-08-01 22:55:06 +08:00
parent 2935910bde
commit 5cb3f9d2c0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -939,7 +939,7 @@ begin
ar := lTabControl.lclGetFrameToLayoutDelta;
// switching ShowTabs actually changes layout to frame
// this needs to be compenstated
if (ar.Top<>pr.Top) or (pr.Left<>ar.Top) then
if (ar.Top<>pr.Top) or (ar.Left<>pr.Left) then
begin
fr := lTabControl.frame;
dx := pr.Left - ar.left;