Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Фоновый рисунок на TTreeView

Автор: DoZENT 19.4.2007, 12:06

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

Автор: DoZENT 23.4.2007, 17:56

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

Автор: Yanis 24.4.2007, 06:49

DoZENT
http://forum.vingrad.ru/index.php?showtopic=137887& smile

Автор: DoZENT 25.4.2007, 16:42

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

Автор: Yanis 25.4.2007, 21:36

Цитата(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