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

LCL: TCustomTabControl: update images on DPI change

Browse Source 
git-svn-id: branches/HiDPIImageList@57157 -
This commit is contained in:
ondrej 2018-01-27 13:39:09 +00:00
parent 3616a087a8
commit 71b81a6c94
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -428,6 +428,8 @@ type
procedure SetImageListAsync(Data: PtrInt); procedure SetImageListAsync(Data: PtrInt);
protected protected
PageClass: TCustomPageClass; PageClass: TCustomPageClass;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
function GetPageClass: TCustomPageClass; virtual; function GetPageClass: TCustomPageClass; virtual;
function GetListClass: TNBBasePagesClass; virtual; function GetListClass: TNBBasePagesClass; virtual;
procedure SetOptions(const AValue: TCTabControlOptions); virtual; procedure SetOptions(const AValue: TCTabControlOptions); virtual;

13
lcl/include/customnotebook.inc
View File

@ -1057,6 +1057,19 @@ begin
Result := destPage.DialogChar(Message); Result := destPage.DialogChar(Message);
end; end;
procedure TCustomTabControl.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion,
AYProportion: Double);
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin
if Assigned(Images) then
DoImageListChange(Self);
end;
end;
procedure TCustomTabControl.InternalSetPageIndex(AValue: Integer); procedure TCustomTabControl.InternalSetPageIndex(AValue: Integer);
begin begin
FPageIndex := AValue; FPageIndex := AValue;