paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 04:27:55 +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;
function Resolutions: 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 ImageType: TImageType read FImageType write FImageType default itImage;
property OnGetWidthForPPI: TCustomImageListGetWidthForPPI read FOnGetWidthForPPI write FOnGetWidthForPPI;

1
lcl/include/imglist.inc
View File

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