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

Cocoa: improve r57928 #fda9deecd3

Browse Source 
git-svn-id: trunk@57931 -
This commit is contained in:
ondrej 2018-05-13 21:37:00 +00:00
parent 815bedd1ec
commit 83cb5d2560
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoawsbuttons.pp
View File

@ -126,21 +126,23 @@ var
AEffect: TGraphicsDrawEffect;
AImgRes: TScaledImageListResolution;
ImgSize: NSSize;
ScaleFactor: Double;
begin
//WriteLn('[TCocoaWSBitBtn.SetGlyph]');
Img := nil;
if ABitBtn.CanShowGlyph(True) then
begin
AGlyph := TBitmap.Create;
ScaleFactor := ABitBtn.GetCanvasScaleFactor;
AValue.GetImageIndexAndEffect(bsUp, ABitBtn.Font.PixelsPerInch,
ABitBtn.GetCanvasScaleFactor, AImgRes, AIndex, AEffect);
ScaleFactor, AImgRes, AIndex, AEffect);
AImgRes.GetBitmap(AIndex, AGlyph, AEffect);
Img := TCocoaBitmap(AGlyph.Handle).image;
if AImgRes.Resolution.ImageList.Scaled then // resize only if the image list is scaled
if AImgRes.Resolution.ImageList.Scaled and not SameValue(ScaleFactor, 1) then // resize only if the image list is scaled
begin
ImgSize := Img.size;
ImgSize.height := ImgSize.height / ABitBtn.GetCanvasScaleFactor;
ImgSize.width := ImgSize.width / ABitBtn.GetCanvasScaleFactor;
ImgSize.height := ImgSize.height / ScaleFactor;
ImgSize.width := ImgSize.width / ScaleFactor;
Img.setSize(ImgSize);
end;
lButtonHandle := TCocoaButton(ABitBtn.Handle);