Einzelnen Beitrag anzeigen

Olli4362

Registriert seit: 21. Sep 2016
5 Beiträge
 
#12

AW: Delphi Berlin 10.1 ScaleBy TPageControl

  Alt 29. Sep 2016, 20:45
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!

Geändert von Olli4362 (29. Sep 2016 um 20:57 Uhr)
  Mit Zitat antworten Zitat