如何更改Delphi XE6 IDE的字体大小

Question

如何更改Delphi XE6的IDE本身的字体大小.

IDE的对话框没有使用我的Windows字体首选项,我找不到任何更改IDE使用的字体的选项.

或者,我如何让Delphi XE6尊重用户的字体偏好？

Answer 1

你不能
字体是硬编码的。你无法改变它。

这是我尝试过的

1 - 使用十六进制编辑器更改 BDS.EXE

如果您在十六进制编辑器中打开BDS.EXE，查找TextHeight并将值从 $0D (13) 更改为更大的值，则更改后的 bds.exe 将看起来完全相同。

2 - 用于EnumChildWindows向 Delphi IDE 发送垃圾WM_SETFONT邮件消息

您可以WM_SETFONT向正在运行的 Delphi 主窗口发送消息。
您必须使用FindWindowAPI 调用找到该窗口。

来自：http://msdn.microsoft.com/en-us/library/windows/desktop/ms632642%28v=vs.85%29.aspx

wParam
字体 (HFONT) 的句柄。如果该参数为NULL，则控件使用默认的系统字体来绘制文本。
lParam
lParam 的低位字指定在设置字体后是否立即重绘控件。如果此参数为 TRUE，则控件将重绘自身。

因为您希望 Delphi 使用默认字体，所以该消息非常简单。

Delphi XE6 主窗口被称为TAppBuilder，因此您必须使用 来获取该窗口的句柄FindWindow。

我尝试过这个，但没有成功。

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    FontDialog1: TFontDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

const
  DelphiWindows: array [1 .. 1] of PWideChar = ('TAppBuilder');

function EnumChildProc(const hWindow: hWnd; const hFont: LParam): boolean; stdcall;
begin
  SendMessage(hWindow, WM_SETFONT, hFont, 1);
  Result:= True;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
  BDSWindow: HWND;
  ChildWindow: HWnd;
  Font: HFONT;
  i: Integer;
begin
  if FontDialog1.Execute then begin
    BDSWindow:= FindWindow(DelphiWindows[1], nil);
    Font:= FontDialog1.Font.Handle;
    EnumChildWindows(BDSWindow, @EnumChildProc, Font);
    ShowMessage('Done');
  end;
end;

end.

我没有尝试过默认字体，因为Delphi字体和默认字体在我的系统上是相同的。而且我不想更改默认字体。

这样做改变了我的 Delphi 上的 2 个 dropdown_boxes。表现不太好。

我将此作为答案发布，希望您能从这里找到解决方案。