8
июня

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

   Автор: admin   в Delphi FAQ

Вопрос:
Как настроить табуляцию в компоненте 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;

Tags: , , , , ,

Дата создания: Воскресенье, июня 8, 2008 - 19:42 и находится в категории Delphi FAQ. Вы можете отслеживать ответы через RSS 2.0. Вы можете ответить.

Ответить

Вы должны быть в системе для комментирования.