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

SynEdit: support high-dpi image list for gutter images - improve PPI

Browse Source 
git-svn-id: trunk@57867 -
This commit is contained in:
ondrej 2018-05-09 01:41:45 +00:00
parent 5784573538
commit 41895360a0
1 changed files with 9 additions and 3 deletions

12
components/synedit/synguttermarks.pp
View File

@ -76,12 +76,18 @@ function TSynGutterMarks.GetImgListRes(const ACanvas: TCanvas;
const AImages: TCustomImageList): TScaledImageListResolution;
var
Scale: Double;
PPI: Integer;
begin
if ACanvas is TControlCanvas then
Scale := TControlCanvas(ACanvas).Control.GetCanvasScaleFactor
else
begin
Scale := TControlCanvas(ACanvas).Control.GetCanvasScaleFactor;
PPI := TControlCanvas(ACanvas).Control.Font.PixelsPerInch;
end else
begin
Scale := 1;
Result := AImages.ResolutionForPPI[0, ACanvas.Font.PixelsPerInch, Scale];
PPI := ACanvas.Font.PixelsPerInch;
end;
Result := AImages.ResolutionForPPI[0, PPI, Scale];
end;
function TSynGutterMarks.PaintMarks(aScreenLine: Integer; Canvas : TCanvas;