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

Gtk3: fixed TPageControl with customized image index. Patch by Anton Kavalenka. issue #41579

Browse Source
This commit is contained in:
zeljan1 2025-05-01 11:51:48 +02:00
parent a4bfdfc8ff
commit 16f6a8bc06
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -5297,16 +5297,34 @@ var
Gtk3Page: TGtk3Page;
AMinSize, ANaturalSize: gint;
Bmp: TBitmap;
ImageIndex:integer;
HasIcon: Boolean;
IconSize: Types.TSize;
TheNotebook:TCustomTabControl;
Appi:integer;
begin
if IsWidgetOK then
begin
Gtk3Page := TGtk3Page(ACustomPage.Handle);
Gtk3Page.CloseButtonVisible := nboShowCloseButtons in TCustomTabControl(LCLObject).Options;
if Assigned(TCustomTabControl(LCLObject).Images) and (ACustomPage.ImageIndex >= 0) and
(ACustomPage.ImageIndex < TCustomTabControl(LCLObject).Images.Count) then
TheNoteBook:=TCustomTabControl(LCLObject);
HasIcon:=false;
IconSize:=Size(0,0);
ImageIndex := TheNoteBook.GetImageIndex(AIndex);
Appi:=TheNoteBook.Font.PixelsPerInch;
if (TheNoteBook.Images<>nil)
and (ImageIndex >= 0)
and (ImageIndex < TheNoteBook.Images.Count) then
begin
// page has valid image
IconSize := TheNoteBook.Images.SizeForPPI[TheNoteBook.ImagesWidth, Appi];
HasIcon := (IconSize.cx>0) and (IconSize.cy>0);
end;
if HasIcon then
begin
Bmp := TBitmap.Create;
TCustomTabControl(LCLObject).Images.GetBitmap(ACustomPage.ImageIndex, Bmp);
TCustomTabControl(LCLObject).Images.ResolutionForPPI[IconSize.cx,Appi,1].GetBitmap(ImageIndex, Bmp);
Gtk3Page.setTabImage(Bmp);
Bmp.Free;
end else