ExpressBars - カスタムダイアログのフォント設定

ExpressBars のカスタマイズダイアログのフォントをカスタマイズします。

手っ取り早いのはフォームのプロパティを変えてやればいいけど、パッケージのコンパイルとインストールがたぶんすんなりいかないはずなので、オリジナルのソースはいじらずにフォームを継承させるほうが楽です。

unit CustomForm;

interface

uses dxBarCustomCustomizationForm, dxBarCustForm;

type
  TCustForm = class(TdxBarCustomizationForm)
  end;

implementation

{$R *.dfm}

initialization
  dxBarCustomizationFormClass := TCustForm;

end.

object CustForm: TCustForm
  Font.Height = -12
  Font.Name = 'MS UI Gothic'
end

ソースですが、フォントのサイズと書体をオーバーライドして、グローバル変数 dxBarCustomizationFormClass にフォームを登録させるだけです。