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

* Added workaround to scrolling in Carbon. By Eugen Bolz

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1403 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-12-14 21:58:26 +00:00
parent 50ab47a69f
commit 457ca8fcc7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -15478,7 +15478,7 @@ begin
SB_THUMBTRACK: SB_THUMBTRACK:
begin begin
DoStateChange([tsThumbTracking]); DoStateChange([tsThumbTracking]);
{$ifdef LCLQt} {$if DEFINED(LCLQt) OR DEFINED(LCLCarbon)}
if UseRightToLeftAlignment then if UseRightToLeftAlignment then
SetOffsetX(-Integer(FRangeX) + ClientWidth + Message.Pos) SetOffsetX(-Integer(FRangeX) + ClientWidth + Message.Pos)
else else
@ -16775,7 +16775,7 @@ begin
SB_THUMBTRACK: SB_THUMBTRACK:
begin begin
DoStateChange([tsThumbTracking]); DoStateChange([tsThumbTracking]);
{$ifdef LCLQt} {$if DEFINED(LCLQt) OR DEFINED(LCLCarbon)}
SetOffsetY(-Message.Pos); SetOffsetY(-Message.Pos);
{$else} {$else}
SetOffsetY(-GetRealScrollPosition); SetOffsetY(-GetRealScrollPosition);