VPF::CheckListBox - Форум программистов

MacTep

Дата 11.6.2006, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Можно ли вставить картинки, например, с папочками маленькими, в каждом пункте данного компонента?

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Yanis

Дата 11.6.2006, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Ну конечно. Точно так же как и в обычном ListBox'е.

--------------------

*щёлк*

MacTep

Дата 12.6.2006, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Вот код, который я использую.

Код


var Bit: TBitmap; 

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; index: Integer; 
Rect: TRect; State: TOwnerDrawState); 
var 
  cc: TCanvas; 
begin 
  cc:=(Control as TCheckListBox).Canvas; 
  cc.FillRect(rect); 
  cc.Draw(Rect.Left+Rect.Right-16,Rect.Top,Bit); 
  cc.TextOut(Rect.Left,Rect.Top,CheckListBox1.Items[index]); 
end; 

procedure TForm1.CheckListBox1MeasureItem(Control: TWinControl; 
index: Integer; var Height: Integer); 
begin 
  Height := 16; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Bit := TBitmap.Create; 
  Bit.LoadFromFile('c:\file.bmp'); 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  Bit.Destroy; 
end;

Не работает smile

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Yanis

Дата 12.6.2006, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Нарисовал вот примерчик малюсенький.

P. S. Твой код не смотрел ещё...

Добавлено @ 16:45

Цитата(MacTep @ 12.6.2006, 17:11

)

Вот код, который я использую.

Во первых, в твоём случае совсем необязательно каждый раз при измерении итемов присваивать им 16. Достаточно выставить высоту один раз.

Во вторых, зачем ты насильно получаешь канву компонента, если он тебе её сам отдаст. У него имеется такое свойство.
В моём примере картинки у всех пунктов одинаковые, но ведь тебе не составит труда переделать что бы были разные? Будут вопросы пиши.

Это сообщение отредактировал(а) Yanis - 12.6.2006, 16:43

Присоединённый файл ( Кол-во скачиваний: 18 )

clb_with_img.zip 1,53 Kb

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »