delphi - 如何更改对象检查器字体？

Question

对象检查器的默认字体小得离谱，尤其是在高分辨率屏幕上。

有办法让它变大吗？

Answer 1

是的，而且非常简单。
您可以通过创建包并将其安装在 IDE 中来更改 IDE 中的任何窗口。
因为 bpl 被加载到 Delphi IDE 的主进程中，所以您可以从那里更改任何 IDE 窗口的属性。

Code by Mike Fletcher
创建一个新包并添加以下单元:

unit AdjustOIFont;

interface

uses Vcl.Forms, Vcl.Controls, Vcl.Dialogs, Vcl.StdCtrls;

procedure Register;

implementation

function GetOIForm: TForm;
var
  i: Integer;
begin
  Result:= nil;
  for i:= 0 to Screen.FormCount - 1 do begin
    if Screen.Forms[i].Name = 'PropertyInspector' then begin
      Result:= Screen.Forms[I];
      Exit;
    end;
  end;
end;

function GetChildControl(AParent: TWinControl; AName: string): TWinControl;
var
  i: Integer;
begin
  Result:= nil;
  for i:= 0 to AParent.ControlCount - 1 do begin
    if AParent.Controls[i].Name = AName then begin
      Result:= TWinControl(AParent.Controls[i]);
      Exit;
    end;
  end;
end;

function GetOIControl: TCustomListBox;
var
  OIForm: TForm;
begin
  OIForm:= GetOIForm;
  Result:= TCustomListBox(GetChildControl(GetChildControl(OIForm, 'Panel3'), 'PropList'));
end;

procedure Register;
var
  OI: TListBox;
  OIForm: TForm;
begin
  OIForm:= GetOIForm;
  OIForm.Font.Size:= 10;
  OI:= TListBox(GetOIControl);
  OI.Font.Size:= 10;
  OI.ItemHeight:= 20;
end;

end.

构建包并安装。
更改将立即生效。

了解了这个技巧，就可以轻松收集字符串列表中的所有枚举名称并将它们复制到剪贴板。
这些名称可用于扩展代码并修复其他 IDE 元素(例如“结构” Pane )的字体。

好多了。

适用于 Seattle 和 XE7。