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元素的字体（例如“结构”窗格）。

好多了。

适用于Seattle和XE7。

Answer 2

实现这一目标的一种方法是修改注册表，就像Malcolm Groves文章中所描述的那样：http://www.malcolmgroves.com/blog/?p=1804

另一种选择是使用Delphi IDE Colorizer这是第三方应用程序，旨在通过更改字体，颜色等来大大改变Delphi IDE的外观。您可以在此处找到它：https://github.com/RRUZ/Delphi-IDE-Colorizer

如果您可能还想更改语法字体和语法突出显示，还可以检查Delphi IDE Theme Editor，它旨在根据您的需要更改代码突出显示的外观。您可以在此处找到它：https://github.com/RRUZ/delphi-ide-theme-editor

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

2 个答案: