FontDialog отключить цвет

[The SCS]

Как в диалоге выбора шрифта отключить возможность выбора цвета?

[Lesha]

после того как юзер выберет шрифт и может быть изменит цвет.

Принудительно выстави Font.color:=clBlack; То есть ликвидируй последствия выбора цвета.

[The SCS]

Хочу поменьше костылей.. в квипе это реализовано.. надо будет у них спросить.

можно font.color := skinmanager.getglobalfontcolor; но будет дофига гемороя с сохранением настроек и особенно загрузкой..

[Lesha]

щас глянул, в настройках можно убрать колонку с стилем и цветом шрифта

FontDialog.Options

fdEffects->False

[volvo877]

Как в диалоге выбора шрифта отключить возможность выбора цвета?

Можно отключить только цвет:

type
   TFontDialog = class(Dialogs.TFontDialog)
   const
      IDCOLORCMB = $473;
   protected
      procedure DoShow; override;
   end;

procedure TFontDialog.DoShow;
begin
   ShowWindow(GetDlgItem(Handle,IDCOLORCMB), SW_HIDE);
end;

Правда, остается надпись "Color:" - но и ее можно найти и скрыть: