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

Grids: Declare TCustomGrid.TitleImagelist as type TCustomImageList rather than TImagelist. Issue #41554.

Browse Source 
(cherry picked from commit 8674f133af)
This commit is contained in:
wp_xyz 2025-03-27 16:26:32 +01:00
parent 236b351524
commit b5ce582e7c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/grids.pas
View File

@ -771,7 +771,7 @@ type
FSortColumn: Integer;
FSortLCLImages: TLCLGlyphs;
FTabAdvance: TAutoAdvance;
FTitleImageList: TImageList;
FTitleImageList: TCustomImageList;
FTitleImageListWidth: Integer;
FTitleStyle: TTitleStyle;
FAscImgInd: TImageIndex;
@ -870,7 +870,7 @@ type
procedure SetFocusRectVisible(const AValue: Boolean);
procedure ScrollerDoScroll(Dir: TPoint);
procedure SetScroller(Dir: TPoint);
procedure SetTitleImageList(const AValue: TImageList);
procedure SetTitleImageList(const AValue: TCustomImageList);
procedure SetTitleImageListWidth(const aTitleImageListWidth: Integer);
procedure SetTitleFont(const AValue: TFont);
procedure SetTitleStyle(const AValue: TTitleStyle);
@ -1271,7 +1271,7 @@ type
property ImageIndexSortAsc: TImageIndex read FAscImgInd write FAscImgInd default -1;
property ImageIndexSortDesc: TImageIndex read FDescImgInd write FDescImgInd default -1;
property TabAdvance: TAutoAdvance read FTabAdvance write FTabAdvance default aaRightDown;
property TitleImageList: TImageList read FTitleImageList write SetTitleImageList;
property TitleImageList: TCustomImageList read FTitleImageList write SetTitleImageList;
property TitleImageListWidth: Integer read FTitleImageListWidth write SetTitleImageListWidth default 0;
property InplaceEditor: TWinControl read FEditor;
property IsCellSelected[aCol,aRow: Integer]: boolean read GetIsCellSelected;
@ -5902,7 +5902,7 @@ begin
VisualChange;
end;
procedure TCustomGrid.SetTitleImageList(const AValue: TImageList);
procedure TCustomGrid.SetTitleImageList(const AValue: TCustomImageList);
begin
if FTitleImageList = AValue then exit;
FTitleImageList := AValue;