Вопросы и Ответы
42. Можно ли изменить величину табуляции в TMemo?
Можно. Для этого надо послать сообщение EM_SetTabStops компоненте TMemo, в котором необходимо указать два параметра. Количество передаваемых значений и величины табуляций.
Если первый параметр равняется нулю, то второй параметр игнорируется и величина табуляции сбрасывается в значение по умолчанию (32). Иначе, устанавливается величина указанная во втором параметре, причем, при единичном значении все величины табуляций будут равны, а при большем значении величины берутся из переданного массива.
Пример:
............
{Установка
одной величины табуляции} TabInc:
LongInt = 40; begin SendMessage(Memo1.Handle,
EM_SetTabStops, 1, Longint(@TabInc)); end; ............ {Установка
двух величин табуляции} TabInc:
Array [1..2] of LongInt = (10, 30); begin SendMessage(Memo1.Handle,
EM_SetTabStops, 2, Longint(@TabInc)); end; ............
procedure TForm1.FormCreate(Sender: TObject);
CONST
procedure TForm1.FormCreate(Sender: TObject);
CONST
...предыдущая страница следующая...
оглавление