Delphi Berlin 10.1 ScaleBy TPageControl

[Olli4362]

Habe es gefunden:

VCL.ComCtrls.pas in das eigene Projektverzeichnis kopieren


procedure TTabSheet.UpdateControlOriginalParentSize(AControl : TControl;
var AOriginalParentSize: TPoint);
begin
inherited;
exit; // hier muss ein EXIT rein, dann geht es!
if (csLoading in ComponentState) then
begin
AOriginalParentSize.X := FDesignSize.X;
AOriginalParentSize.Y := FDesignSize.Y;
end;
if not (csReading in ComponentState) and not HandleAllocated then
Dec(AOriginalParentSize.X, BorderWidth * 2);
end;

Compile and smile!

[jaenicke]

Dann kannst du das ja hier als Bug melden, damit es hoffentlich bald auch ohne Workaround geht:
https://quality.embarcadero.com

[Olli4362]

Bugreport ist geöffnet. Wäre nett, wenn ihr voted!

https://quality.embarcadero.com/browse/RSP-15974