paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 20:28:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: image list: DrawForControl

Browse Source 
git-svn-id: trunk@57858 -
This commit is contained in:
ondrej 2018-05-08 23:23:21 +00:00
parent a914eaa29d
commit 45f84919cb
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/controls.pp
View File

@ -340,6 +340,11 @@ type
private
function GetResolutionForControl(AImageWidth: Integer; AControl: TControl): TScaledImageListResolution;
public
procedure DrawForControl(ACanvas: TCanvas; AX, AY, AIndex, AImageWidthAt96PPI: Integer;
AControl: TControl; AEnabled: Boolean = True); overload;
procedure DrawForControl(ACanvas: TCanvas; AX, AY, AIndex, AImageWidthAt96PPI: Integer;
AControl: TControl; ADrawEffect: TGraphicsDrawEffect); overload;
property ResolutionForControl[AImageWidth: Integer; AControl: TControl]: TScaledImageListResolution read GetResolutionForControl;
end;

15
lcl/include/dragimagelist.inc
View File

@ -283,6 +283,21 @@ end;
{ TImageListHelper }
procedure TImageListHelper.DrawForControl(ACanvas: TCanvas; AX, AY, AIndex,
AImageWidthAt96PPI: Integer; AControl: TControl; AEnabled: Boolean);
begin
DrawForPPI(ACanvas, AX, AY, AIndex, AImageWidthAt96PPI,
AControl.Font.PixelsPerInch, AControl.GetCanvasScaleFactor, AEnabled);
end;
procedure TImageListHelper.DrawForControl(ACanvas: TCanvas; AX, AY, AIndex,
AImageWidthAt96PPI: Integer; AControl: TControl;
ADrawEffect: TGraphicsDrawEffect);
begin
DrawForPPI(ACanvas, AX, AY, AIndex, AImageWidthAt96PPI,
AControl.Font.PixelsPerInch, AControl.GetCanvasScaleFactor, ADrawEffect);
end;
function TImageListHelper.GetResolutionForControl(AImageWidth: Integer;
AControl: TControl): TScaledImageListResolution;
begin