Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Как настроить табуляцию в компоненте TMemo?

Как настроить табуляцию в компоненте TMemo?

Пошлите в Memo сообщение EM_SETTABSTOPS.
A> Например установим первую позицию табуляции на 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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru