VPF::2 иконки в Treeview - Форум программистов

efedron

Дата 18.4.2005, 15:56 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

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

Вопрос в следующем: можно ли напроств каждой строчки в TreeView вствлять не по одной картинке, а по две?

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

Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.

Naghual

Дата 18.4.2005, 17:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

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

Стандартно - нет.

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

Я желаю всем Счастья!

efedron

Дата 20.4.2005, 11:08 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

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

т.е. в крайнем случае придется "рисовать" их самому рядом со стандартной картинкой? это может оказаться проблематичным.. smile

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

~FoX~

Дата 20.4.2005, 14:39 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Можно хоть десять, есть у него событие ака DrawItem или что то в этом роде, при прорисовки итема перехватываем его Canvas и рисуем на нем все что угодно. Дальше отступаем немножко от рисунков и при помощи TextOut выводим надпись итема, только сия функция требует не объект canvas, а его хэндл по моему.
В общем в делфи это выглядит примерно так:

Код


begin
  with (Control as TTreeView).Canvas do
  begin
    FillRect(Rect);
    Bitmap := TBitmap.Create;
    ImageList1.GetBitmap(4, Bitmap);
    Offset := 0;
    if Bitmap <> nil then
    begin
      BMPRect := Bounds(Rect.Left+2, Rect.Top+2, (Rect.Bottom-Rect.Top-2), Rect.Bottom-Rect.Top-2);
      BrushCopy(BMPRect,Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height),
      Bitmap.Canvas.Pixels[0, Bitmap.Height-1]);
      Offset := (Rect.Bottom-Rect.Top+1)+3;
    end;
    TextOut(Rect.Left+Offset, Rect.Top, ListBox1.Items[index]);
    Bitmap.Free;
  end;

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

…множественность никогда не следует полагать без необходимости…

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