VPF::Фоновый рисунок на TTreeView - Форум программистов

DoZENT

Дата 19.4.2007, 12:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Привет всем! Есть TTreeView, в его правом нижнем углу необходимо нарисовать картинку 256x256 (типа той, которую видно, когда через "мой компьютер" заходишь в папку "Мои рисунки"). Через канву рисуется нормально, но если уменьшить размер окошка, тогда нарисаванная картинка совпадает с элементами дерева и перекрывает их. Как сделать так, чтобы она рисовалась ФОНОМ?

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

Какая боль, какая боль, Internet Explorer 5.0...

DoZENT

Дата 23.4.2007, 17:56 (ссылка)

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

Загрузка ...

Опытный

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

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

Неужели никто не знает??? Не поверю smile

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

Какая боль, какая боль, Internet Explorer 5.0...

Yanis

Дата 24.4.2007, 06:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

DoZENT
Уже обсуждалось smile

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

*щёлк*

DoZENT

Дата 25.4.2007, 16:42 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо большое за ссылочку, как рисовать фоном в принципе понял. +1. Но как поместить нужную картинку в правый нижний угол?

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

Какая боль, какая боль, Internet Explorer 5.0...

Yanis

Дата 25.4.2007, 21:36 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(DoZENT @ 25.4.2007, 17:42

)

Ну значит ты не всё понял smile

Код

procedure TForm1.TreeView1Collapsed(Sender: TObject; Node: TTreeNode);
begin
  TreeView1.Repaint;
end;

procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView;
  const ARect: TRect; var DefaultDraw: Boolean);
var
  r: TRect;
begin
  with TreeView1 do
    begin
      with r do
        begin
          Left := ClientRect.Right - Image1.Picture.Bitmap.Width;
          Top := ClientRect.Bottom - Image1.Picture.Bitmap.Height;

          Right := Left + Image1.Picture.Bitmap.Width;
          Bottom := Top + Image1.Picture.Bitmap.Height;
        end;
      Canvas.StretchDraw(r, Image1.Picture.Bitmap);
    end;
end;

procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
  TreeView1.Repaint;
end;

Не знаю откуда ты собираешься брать картинку, поэтому я в примере беру её из TImage.
smile

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

*щёлк*

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