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

spawn1984

Дата 19.3.2005, 13:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет всем.
Есть вопрос, может кто знает, очень нужно..
Надо вставить банер в ветку или рисунок...желательно код
за ранее спасибо

Alex

Дата 20.3.2005, 19:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Перенесено из раздела Дельфи

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

~FoX~

Дата 21.3.2005, 12:22 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Что то в этом роде, но могу и ошибиться с координатами.

Код


procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView;
  const ARect: TRect; var DefaultDraw: Boolean);
var
  Bitmap: TBitmap;
  BMPRect: TRect;
begin
  with TreeView1.Canvas do
  begin
    FillRect(ARect);
    Bitmap := TBitmap.Create;
    Bitmap.LoadFromFile('c:\1.bmp');

    BMPRect := Bounds(ARect.Left+2, ARect.Top+2, (ARect.Bottom-ARect.Top-2), ARect.Bottom-ARect.Top-2);
    BrushCopy(BMPRect,Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height),
    Bitmap.Canvas.Pixels[0, Bitmap.Height-1]);
  end;
end;

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

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

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