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

LCL: High-DPI ImageList: default scaled false

Browse Source 
git-svn-id: branches/HiDPIImageList@57163 -
This commit is contained in:
ondrej 2018-01-27 18:07:41 +00:00
parent 53ddab069c
commit 03097f6650
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/imglist.pp
View File

@ -360,7 +360,7 @@ type
property ResolutionCount: Integer read GetResolutionCount; property ResolutionCount: Integer read GetResolutionCount;
function Resolutions: TCustomImageListResolutionEnumerator; function Resolutions: TCustomImageListResolutionEnumerator;
function ResolutionsDesc: TCustomImageListResolutionEnumerator; function ResolutionsDesc: TCustomImageListResolutionEnumerator;
property Scaled: Boolean read FScaled write FScaled default True; property Scaled: Boolean read FScaled write FScaled default False;
property ShareImages: Boolean read FShareImages write SetShareImages default False; property ShareImages: Boolean read FShareImages write SetShareImages default False;
property ImageType: TImageType read FImageType write FImageType default itImage; property ImageType: TImageType read FImageType write FImageType default itImage;
property OnGetWidthForPPI: TCustomImageListGetWidthForPPI read FOnGetWidthForPPI write FOnGetWidthForPPI; property OnGetWidthForPPI: TCustomImageListGetWidthForPPI read FOnGetWidthForPPI write FOnGetWidthForPPI;

1
lcl/include/imglist.inc
View File

@ -1319,7 +1319,6 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
FHeight := 16; FHeight := 16;
FWidth := 16; FWidth := 16;
FScaled := True;
Initialize; Initialize;
end; end;