Изменение величины табуляции в Memo

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Изменение величины табуляции в Memo

- Какая разница между Богом и Биллом Гейтсом?
- Бог не думает, что он Гейтс.

Для этого надо послать сообщение EM_SetTabStops компоненте TMemo, в котором необходимо указать два параметра. Количество передаваемых значений и величины табуляций.

Если первый параметр равняется нулю, то второй параметр игнорируется и величина табуляции сбрасывается в значение по умолчанию (32). Иначе, устанавливается величина указанная во втором параметре, причем, при единичном значении все величины табуляций будут равны, а при большем значении величины берутся из переданного массива.

{Установка одной величины табуляции}
const
  TabInc: LongInt = 40;

begin
  SendMessage(Memo1.Handle, EM_SetTabStops, 1, Longint(@TabInc));
end;

...

{Установка двух величин табуляции}
const
  TabInc: array [1..2] of LongInt = (10, 30);

begin
  SendMessage(Memo1.Handle, EM_SetTabStops, 2, Longint(@TabInc));
end;