OnPaint в ShellListView (Delphi)

[Gambetto]

Всем привет!
Делаю файловый менеджер с помощью ShellListView и столкнулся с отсутствием у этого компонента события OnPaint, когда понадобилось поставить на фон картинку.
Рисование на Canvas картинку ставит, но после Access Violation. Стоит изменить размер окна или развернуть - еще трое Access Violation и программа вешается. Да и фон надписей к иконкам остается белым, стоит провести над ними мышкой - остается белая полоса, картинка обратно не возвращается
Видел, вроде такое решают, создавая свой компонент, но я для этого слишком нуб.
Как сделать правильно? Прошу не отсылать к FileListView.

[dummy_user]

Странно это. Код в студию.

[Gambetto]

type
  Tfrm_Main = class(TForm)
    Panel1: TPanel;
    TestButton: TButton;
    OpPicDlg: TOpenPictureDialog;
    Image: TImage;
    ShellListView: TShellListView;
    procedure SetPicture;
    procedure TestButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Main: Tfrm_Main;
  BitPicture:TBitmap;

implementation

{$R *.dfm}

procedure Tfrm_Main.FormCreate(Sender: TObject);
begin
  BitPicture := TBitMap.Create;
end;

procedure Tfrm_Main.SetPicture;
var
  p:TGraphic;
  i:integer;
begin
  if OpPicDlg.Execute
  then
    begin
      Image.Picture.LoadFromFile(OpPicDlg.FileName);

      BitPicture := Image.Picture.Bitmap;
      ShellListView.Canvas.Draw(0, 0, BitPicture);
      BitPicture.Free;

      for i:=0 to ShellListView.Items.Count-1
      do ShellListView.Items[i].Selected:=true;
    end;

end;

procedure Tfrm_Main.TestButtonClick(Sender: TObject);
begin
  SetPicture;
end;

[dummy_user]

Оборачивайте создание и уничтожение объектов в блок try/finally.

А не проще ли сразу выводить на канвас ShellListView битмап из Image.Picture.Bitmap?

[Gambetto]

Насчет сразу на канвас - спасибо, так действительно должно быть проще, но я пробовал вешать перерисовку на OnPaint формы и панели - надеялся, что поможет. Вот для этих экспериментов BitPicture и сделана глобальной переменной. Увы, факир был пьян и фокус закончился новыми, свежими Access Violation...
Насчет try/finally - можно поподробнее для тех, кто нуб?

[dummy_user]

Использовать и удалять объекты желательно так в Delphi:

Object:= TObject.Create();
try
   // Что-то делаем с Object.
finally  
   Object.Free();
end;

Блин, где здесь кнопка "Тэг-код"?

Для чего переменная p: TGraphic?

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Serge_Bliznykov]

Сообщение от dummy_user

Блин, где здесь кнопка "Тэг-код"?

читать FAQ