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

* Fixed pixelsize of CarbonCursors

Browse Source 
git-svn-id: trunk@16025 -
This commit is contained in:
marc 2008-08-11 23:22:56 +00:00
parent db3eeab4f1
commit a5d219e10b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbongdiobjects.pp
View File

@ -1739,7 +1739,7 @@ begin
FPixmapHandle^^.pixelType := RGBDirect;
FPixmapHandle^^.cmpSize := ABitmap.BitsPerComponent;
FPixmapHandle^^.cmpCount := ABitmap.Depth div FPixmapHandle^^.cmpSize; // $AARRGGBB
FPixmapHandle^^.pixelSize := ABitmap.Depth; // depth
FPixmapHandle^^.pixelSize := ABitmap.FBitsPerPixel; // depth
FPixmapHandle^^.pmTable := nil;
FPixmapHandle^^.baseAddr := Ptr(ABitmap.Data);
@ -1781,7 +1781,7 @@ begin
FPixmapHandle^^.pixelType := RGBDirect;
FPixmapHandle^^.cmpSize := ABitmap.BitsPerComponent;
FPixmapHandle^^.cmpCount := ABitmap.Depth div FPixmapHandle^^.cmpSize; // $AARRGGBB
FPixmapHandle^^.pixelSize := ABitmap.Depth; // depth
FPixmapHandle^^.pixelSize := ABitmap.FBitsPerPixel; // depth
rowBytes := FPixmapHandle^^.Bounds.right * (FPixmapHandle^^.pixelSize shr 3);
FPixmapHandle^^.rowBytes := rowBytes or $8000;
FPixmapHandle^^.pmTable := nil;