Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Настройка табуляции
Показать сообщение отдельно

Аватара для Prisoner

Engrossed by the Void


Сообщения: 2229
Благодарности: 60

Профиль | Отправить PM | Цитировать


На счет символов не знаю, но вот ширина в пикселах, пожалуйста:
Код: Выделить весь код
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) сколько пикселей будет занимать по ширине, скажем символ "а" (или два. или сколько надо) и передавать это значение в процедурку.

-------
Не могу дать более дельный совет - не хватает системных ресурсов...


Отправлено: 23:20, 11-03-2004 | #2

Название темы: Настройка табуляции