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

LCL: imglist: introduce TScaledImageListResolution.Valid

Browse Source 
git-svn-id: trunk@57886 -
This commit is contained in:
ondrej 2018-05-10 19:12:44 +00:00
parent 29fb56dd18
commit b3b0591355
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -192,6 +192,7 @@ type
FHeight: Integer;
function GetCount: Integer;
function GetSize: TSize;
function GetValid: Boolean;
public
class function Create(AResolution: TCustomImageListResolution;
const AScaleFactor: Double): TScaledImageListResolution; static; // FPC record constructor bug
@ -217,6 +218,7 @@ type
property Size: TSize read GetSize;
property Resolution: TCustomImageListResolution read FResolution;
property Count: Integer read GetCount;
property Valid: Boolean read GetValid;
end;
TCustomImageListResolutionClass = class of TCustomImageListResolution;

5
lcl/include/imglist.inc
View File

@ -175,6 +175,11 @@ begin
Result.cy := Height;
end;
function TScaledImageListResolution.GetValid: Boolean;
begin
Result := Assigned(FResolution);
end;
procedure TScaledImageListResolution.DrawOverlay(ACanvas: TCanvas; AX, AY,
AIndex: Integer; AOverlay: TOverlay; ADrawingStyle: TDrawingStyle;
AImageType: TImageType; ADrawEffect: TGraphicsDrawEffect);