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

LCL: Set icons for tabs in TTabControl from the Images property. Issue #23068.

Browse Source
This commit is contained in:
Juha 2025-07-08 20:45:05 +03:00
parent 99aa02f484
commit e4dc3ff90f
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -412,7 +412,7 @@ type
procedure PageRemoved(Index: Integer);
procedure SetActivePage(const Value: String);
procedure SetActivePageComponent(const AValue: TCustomPage);
procedure SetImages(const AValue: TCustomImageList);
procedure SetImages(const AValue: TCustomImageList); virtual;
procedure SetImagesWidth(const aImagesWidth: Integer);
procedure SetPageIndex(AValue: Integer);
procedure SetPages(AValue: TStrings);
@ -814,7 +814,7 @@ type
function GetTabRectWithBorder: TRect;
function GetTabStop: Boolean;
procedure SetHotTrack(const AValue: Boolean);
procedure SetImages(const AValue: TCustomImageList);
procedure SetImages(const AValue: TCustomImageList); override;
procedure SetMultiLine(const AValue: Boolean);
procedure SetMultiSelect(const AValue: Boolean);
procedure SetOwnerDraw(const AValue: Boolean);

6
lcl/include/tabcontrol.inc
View File

@ -498,11 +498,7 @@ end;
procedure TTabControl.SetImages(const AValue: TCustomImageList);
begin
if FImages = AValue then Exit;
if FImages <> nil then
FImages.RemoveFreeNotification(Self);
FImages := TImageList(AValue);
if FImages <> nil then
FImages.FreeNotification(Self);
inherited SetImages(AValue);
TTabControlStrings(FTabs).Images := FImages;
end;