Настройка табуляции

[Nealles]

Подскажите плиз как в Мемо менять ширину табуляции(например как в Паскале). Если конкретнее, то мне нужна ширина 2 символов.

[Nealles]

На счет символов не знаю, но вот ширина в пикселах, пожалуйста:



Код:

Код: Выделить всё

Procedure SetTabWidth(Memo: TMemo; Width: LongInt);
Var
  I : Integer;
  TabArray : array[0..4] of Integer;
Begin
  Memo.WantTabs := True;
  for I := 1 to 5 do
    TabArray[I - 1] :=((Width * I ) * 4) div LoWord(GetDialogBaseUnits);
  SendMessage(Memo.Handle, EM_SETTABSTOPS,5,LongInt(@TabArray));
  Memo.Refresh;
End;

На счет символов можно так сделать: узнать у канвы (TCanvas) сколько пикселей будет занимать по ширине, скажем символ "а" (или два. или сколько надо) и передавать это значение в процедурку.

[Nealles]

сорри, а как можно узнать сколько пикселей занимает какая либо буква?

[Nealles]

У объекта TCanvas есть метод TextWidth (как и TextHeight). Можно обращаться к канве главной формы или какой-либо другой, при условии, что шрифты TMemo и TForm одинаковы... просто как метод, не панацея...