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

LCL/ImageList, TCustomImageListResolution: Change visibility of some fields and methods. Merge request !429 by Massimo Magnano.

Browse Source
This commit is contained in:
wp_xyz 2025-01-29 00:53:46 +01:00
parent 8ef40e37d5
commit d941c2cddb
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/imglist.pp
View File

@ -110,12 +110,12 @@ type
TDrawingStyle = (dsFocus, dsSelected, dsNormal, dsTransparent); TDrawingStyle = (dsFocus, dsSelected, dsNormal, dsTransparent);
TImageType = (itImage, itMask); TImageType = (itImage, itMask);
TOverlay = 0..14; // windows limitation TOverlay = 0..14; // windows limitation
TOverlayArray = array[TOverlay] of Integer;
TCustomImageListResolution = class(TLCLReferenceComponent) TCustomImageListResolution = class(TLCLReferenceComponent)
private private
FWidth: Integer; FWidth: Integer;
FHeight: Integer; FHeight: Integer;
FData: array of TRGBAQuad;
FReference: TWSCustomImageListReference; FReference: TWSCustomImageListReference;
FAllocCount: Integer; FAllocCount: Integer;
FImageList: TCustomImageList; FImageList: TCustomImageList;
@ -139,9 +139,10 @@ type
procedure AddImages(AValue: TCustomImageListResolution); procedure AddImages(AValue: TCustomImageListResolution);
procedure WriteData(AStream: TStream; const ACompress: Boolean);
procedure ReadData(AStream: TStream);
protected protected
FData: array of TRGBAQuad;
procedure ReadData(AStream: TStream); virtual;
procedure WriteData(AStream: TStream; const ACompress: Boolean); virtual;
function GetReferenceHandle: TLCLHandle; override; function GetReferenceHandle: TLCLHandle; override;
function WSCreateReference(AParams: TCreateParams): PWSReference; override; function WSCreateReference(AParams: TCreateParams): PWSReference; override;
class procedure WSRegisterClass; override; class procedure WSRegisterClass; override;
@ -279,7 +280,7 @@ type
FBkColor: TColor; FBkColor: TColor;
FChanged: boolean; FChanged: boolean;
FUpdateCount: integer; FUpdateCount: integer;
FOverlays: array[TOverlay] of Integer; FOverlays: TOverlayArray;
fHasOverlays: boolean; fHasOverlays: boolean;
FOnGetWidthForPPI: TCustomImageListGetWidthForPPI; FOnGetWidthForPPI: TCustomImageListGetWidthForPPI;
FScaled: Boolean; FScaled: Boolean;
@ -409,7 +410,6 @@ type
property Width: Integer read FWidth write SetWidth default 16; property Width: Integer read FWidth write SetWidth default 16;
property WidthForPPI[AImageWidth, APPI: Integer]: Integer read GetWidthForPPI; property WidthForPPI[AImageWidth, APPI: Integer]: Integer read GetWidthForPPI;
property SizeForPPI[AImageWidth, APPI: Integer]: TSize read GetSizeForPPI; property SizeForPPI[AImageWidth, APPI: Integer]: TSize read GetSizeForPPI;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Masked: boolean read FMasked write SetMasked default False; property Masked: boolean read FMasked write SetMasked default False;
property Reference[AImageWidth: Integer]: TWSCustomImageListReference read GetReference; property Reference[AImageWidth: Integer]: TWSCustomImageListReference read GetReference;
property ReferenceForPPI[AImageWidth, APPI: Integer]: TWSCustomImageListReference read GetReferenceForPPI; property ReferenceForPPI[AImageWidth, APPI: Integer]: TWSCustomImageListReference read GetReferenceForPPI;
@ -419,9 +419,11 @@ type
property ResolutionCount: Integer read GetResolutionCount; property ResolutionCount: Integer read GetResolutionCount;
function Resolutions: TCustomImageListResolutionEnumerator; function Resolutions: TCustomImageListResolutionEnumerator;
function ResolutionsDesc: TCustomImageListResolutionEnumerator; function ResolutionsDesc: TCustomImageListResolutionEnumerator;
property Overlays: TOverlayArray read FOverlays;
property Scaled: Boolean read FScaled write FScaled default False; 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 OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnGetWidthForPPI: TCustomImageListGetWidthForPPI read FOnGetWidthForPPI write FOnGetWidthForPPI; property OnGetWidthForPPI: TCustomImageListGetWidthForPPI read FOnGetWidthForPPI write FOnGetWidthForPPI;
end; end;