[RichEdit] изменение размера шрифта

[unbanned]

заметил что если зажать левую кнопку мыши и скролить колесиком, то изменяется размер шрифта в RichEdit`e... что не совсем желательно для меня. каким образом можно запретить?

пытался

procedure TForm1.redt1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  WheelDelta := 0;
end;

но ничего не вышло) а как обработать "клик + скрол колесиком" что-то не соображу...

[саша40]

или FontDialog, или RichEdit.Font.Size

[Аватар]

Возможно EM_SETZOOM поможет. Зум размера фонта он позволяет сделать

add

procedure TForm1.RichEdit1ResizeRequest(Sender: TObject; Rect: TRect);
const EM_SETZOOM = WM_USER+225;
begin
  SendMessage(Richedit1.Handle,EM_SETZOOM,100,100);
end;

[саша40]

может стоит лучше записать размер шрифта в константу или переменую и в событие присвоить значение свойству RichEdit1.Font.Size.

[Аватар]

саша40, в RichEdit разные участки текста могут иметь вообще разный фонт, не говоря об его размере

[unbanned]

саша40, мне необходимо сохранить форматирование. участки текста форматируются на "лету" в зависимости от значения. и записывать все атрибуты в константы, мягко говоря проблематично.

Аватар, спасибо, все работает. как раз то что нужно осталось разобраться каким образом это все работает :D

[Vapaamies]

Сообщение от unbanned

пытался

procedure TForm1.redt1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  WheelDelta := 0;
end;

но ничего не вышло)

Забыл Handled := True. Кроме того, текущее состояние кнопок мыши передается через параметр Shift, курить в справке описание TShiftState.

[Аватар]

Vapaamies +1. Да, на OnMouseWheel тоже будет работать и это более корректно

procedure TForm1.RichEdit1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  Handled:=ssLeft in Shift;
end;

[unbanned]

спасибо да, так действительно нагляднее...

[Vapaamies]

Кстати, глядя в MSDN, для отключения именно масштабирования я бы поэкспериментировал так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.Perform(EM_SETZOOM, 0, 0);
end;