Как настроить табуляцию в компоненте TMemo
|
Иду по Москве, глазею по сторонам. Стендов всяких море вокруг. На одном из них реклама чего-то и одна надпись подчеркнута. Мгновенно мысль - ссылка на сайт этого, чего написано. Через пять секунд приходит осознание сползания крыши. Отсюда мораль: Не все, что подчеркнуто, является ссылкой. И следствие: Не всякая ссылка подчеркнута.
|
Пошлите в Memo сообщение EM_SETTABSTOPS. Например установим первую
позицию табуляции на 20-й пиксел. Пример:
procedure TForm1.FormCreate(Sender: TObject);
var
DialogUnitsX: LongInt;
PixelsX: LongInt;
i: integer;
TabArray: array[0..4] of integer;
begin
Memo1.WantTabs := true;
DialogUnitsX := LoWord(GetDialogBaseUnits);
PixelsX := 20;
for i := 1 to 5 do
begin
TabArray[i - 1] := ((PixelsX * i) * 4) div DialogUnitsX;
end;
SendMessage(Memo1.Handle, EM_SETTABSTOPS, 5, LongInt(@TabArray));
Memo1.Refresh;
end;
|
|
