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

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

Browse Source
This commit is contained in:
wp_xyz 2025-03-27 16:26:32 +01:00
parent 366355efc3
commit 8674f133af
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; FSortColumn: Integer;
FSortLCLImages: TLCLGlyphs; FSortLCLImages: TLCLGlyphs;
FTabAdvance: TAutoAdvance; FTabAdvance: TAutoAdvance;
FTitleImageList: TImageList; FTitleImageList: TCustomImageList;
FTitleImageListWidth: Integer; FTitleImageListWidth: Integer;
FTitleStyle: TTitleStyle; FTitleStyle: TTitleStyle;
FAscImgInd: TImageIndex; FAscImgInd: TImageIndex;
@ -870,7 +870,7 @@ type
procedure SetFocusRectVisible(const AValue: Boolean); procedure SetFocusRectVisible(const AValue: Boolean);
procedure ScrollerDoScroll(Dir: TPoint); procedure ScrollerDoScroll(Dir: TPoint);
procedure SetScroller(Dir: TPoint); procedure SetScroller(Dir: TPoint);
procedure SetTitleImageList(const AValue: TImageList); procedure SetTitleImageList(const AValue: TCustomImageList);
procedure SetTitleImageListWidth(const aTitleImageListWidth: Integer); procedure SetTitleImageListWidth(const aTitleImageListWidth: Integer);
procedure SetTitleFont(const AValue: TFont); procedure SetTitleFont(const AValue: TFont);
procedure SetTitleStyle(const AValue: TTitleStyle); procedure SetTitleStyle(const AValue: TTitleStyle);
@ -1271,7 +1271,7 @@ type
property ImageIndexSortAsc: TImageIndex read FAscImgInd write FAscImgInd default -1; property ImageIndexSortAsc: TImageIndex read FAscImgInd write FAscImgInd default -1;
property ImageIndexSortDesc: TImageIndex read FDescImgInd write FDescImgInd default -1; property ImageIndexSortDesc: TImageIndex read FDescImgInd write FDescImgInd default -1;
property TabAdvance: TAutoAdvance read FTabAdvance write FTabAdvance default aaRightDown; 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 TitleImageListWidth: Integer read FTitleImageListWidth write SetTitleImageListWidth default 0;
property InplaceEditor: TWinControl read FEditor; property InplaceEditor: TWinControl read FEditor;
property IsCellSelected[aCol,aRow: Integer]: boolean read GetIsCellSelected; property IsCellSelected[aCol,aRow: Integer]: boolean read GetIsCellSelected;
@ -5902,7 +5902,7 @@ begin
VisualChange; VisualChange;
end; end;
procedure TCustomGrid.SetTitleImageList(const AValue: TImageList); procedure TCustomGrid.SetTitleImageList(const AValue: TCustomImageList);
begin begin
if FTitleImageList = AValue then exit; if FTitleImageList = AValue then exit;
FTitleImageList := AValue; FTitleImageList := AValue;