Отправляет email-рассылки с помощью сервиса Sendsay

Изучение Delphi

  Все выпуски  

Изучение Delphi


Информационный Канал Subscribe.Ru


Изучение Delphi

Delphi для всех!


Здравствуйте дорогие подписчики.

Рассмотрим пример. Пусть в вашем приложении имеется инструментальная панель TooBar и вы хотите отобразить в списке пиктограммы этих кнопок и тексты их подсказок. 

Для решения данной задачи прежде всего надо согласовать список ListBox с отображаемым списком: задать высоту элемента списка равной высоте пиктограммы и занести в список столько строк (можно пустых), сколько кнопок на панели. Это можно сделать, например, следующим обработчиком события OnCreate, наступающего в момент создания формы:

procedure TForm1.FormCreate(Sender:TObject);

var i:integer;

begin

ListBox1.ItemHeight:=ToolBar1.Inages.Height;

for i:=0 to ToolBar1.ButtonCount-1 do

ListBox1.Items.Add('');

end;

Первый оператор этого обработчика согласовывает высоту строки списка  (ListBox1.ItemHeight) с высотой Height пиктограмм, содержащихся в списке изображений ImageList, на который панель ToolBar1 ссылается своим свойством Images. А цикл for заносит в список столько пустых строк, сколько кнопок в панели (ToolBar1.ButtonCount). Занести эти строки необходимо, чтобы в дальнейшем для них возникали события OnDrawItem.

Извините, что короткий выпуск - нехватка времени.

Продолжение следует....................

Хорошего настроения.

С уважением ведущий рассылки, Артур.

Желаю удачи.

 Архив рассылки находится здесь http://subscribe.ru/archive/comp.soft.prog.456/

 

Пишите свои статьи, предложения, вопросы ,Ваш Артур- mailto: hp@ufacom.ru

Пока!

 Подпишите своих друзей

Рассылки Subscribe.Ru
Изучение Delphi

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное