Question

Delphi 10.1柏林似乎存在广泛缺陷ScaleBy。看起来Vcl.ComCtrls.pas有一堆扩展错误。有没人修过它？

PageControl上的控件是双倍缩放的。复选框框和单选按钮未缩放。状态栏似乎由Scaleby缩放，但没有按DPI缩放。

当在Windows 7中设置字体比例为125％时，缩放也会中断并且似乎达到125％*缩放

PageControl问题似乎在VCL.ComCtrls.pas中，新的fn TPageControl.ChangeScale调用其继承的方法CustomTabsheet.ChangeScale。因此，标签页上的所有内容都会ChangeScale两次。

Answer 1

问题似乎在VCL.ComCtrls.pas中，新的fn TPageControl.ChangeScale调用其继承的方法CustomTabsheet.ChangeScale。因此，标签页上的所有内容都会ChangeScale两次。任何人都知道10.2中是否有变化？

procedure TPageControl.ChangeScale(M, D: Integer; isDpiChange: Boolean);
var
  I: Integer;
begin
  inherited ChangeScale(M, D, isDpiChange);
  for I := 0 to FPages.Count - 1 do
    TTabSheet(Fpages[I]).ChangeScale(M, D, isDpiChange);
end;

示例：按钮2位于PageControl1的标签页上。

unit ScaleBy1;

  interface

  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls;

  type
    TForm1 = class(TForm)
      Button1: TButton;
      PageControl1: TPageControl;
      TabSheet1: TTabSheet;
      TabSheet2: TTabSheet;
      Button2: TButton;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

  var
    Form1: TForm1;

  implementation

  {$R *.dfm}

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    ScaleBy(140,100);
  end;

  procedure TForm1.Button2Click(Sender: TObject);
  begin
    ScaleBy(100,140);
  end;

  end.

Delphi ScaleBy错误（Vcl.ComCtrls.pas） - 缩放两次（平方）和其他问题

1 个答案: