Вопрос и Ответ 42 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Язык программирования Си. Издание 3-е, исправленное
The C programming Language. Second Edition

Книга широко известных авторов, разработчиков языка Си, переработанная и дополненная с учетом стандарта ANSI для языка Си, 2-е английское издание которой вышло в 1988 году, давно стала классикой для всех изучающих и/или использующих как Си, так и Си++. Русский перевод этой книги впервые был выпущен изд- вом "Финансы и статистика" в 1992 г. и с тех пор пользуется неизменным спросом читателей.

Для настоящего третьего русского издания перевод заново сверен с оригиналом, в него внесены некоторые поправки, учитывающие устоявшиеся за прошедшие годы изменения в терминологии, а так же учтены замечания, размещенные автором на странице http://cm.bell-labs.com/cm/cs/cbook/2ediffs.html.

Для программистов, преподавателей и студентов.

Издание подготовлено при участии издательства "Финансы и статистика"

PRАКТИКА для пиарщика и руководителя

Если Вы взяли в руки эту книгу, то, скорее всего, Вы пиарщик, который устал от постоянной теории в учебниках, журналах, на семинарах и курсах. Скорее всего, Вам не хватает практики, как ее не хватало в свое время мне.

Эта книга посвящена антикризисным коммуникациям и всему, что с этим понятием связано.

Она о чрезвычайных и негативных ситуациях, которые все пиарщики называют емким словом – !!!опа и о том, как с этим емким словом бороться.

Вопрос и Ответ 42

Версия для печати

Вопросы и Ответы

42. Можно ли изменить величину табуляции в TMemo?

Можно. Для этого надо послать сообщение EM_SetTabStops компоненте TMemo, в котором необходимо указать два параметра. Количество передаваемых значений и величины табуляций.

Если первый параметр равняется нулю, то второй параметр игнорируется и величина табуляции сбрасывается в значение по умолчанию (32). Иначе, устанавливается величина указанная во втором параметре, причем, при единичном значении все величины табуляций будут равны, а при большем значении величины берутся из переданного массива.

Пример:

............

{Установка одной величины табуляции}
procedure TForm1.FormCreate(Sender: TObject);
CONST

TabInc: LongInt = 40;

begin

SendMessage(Memo1.Handle, EM_SetTabStops, 1, Longint(@TabInc));

end;

............

{Установка двух величин табуляции}
procedure TForm1.FormCreate(Sender: TObject);
CONST

TabInc: Array [1..2] of LongInt = (10, 30);

begin

SendMessage(Memo1.Handle, EM_SetTabStops, 2, Longint(@TabInc));

end;

............

...предыдущая страница следующая...
оглавление