[Amzi]

Вопрос следущий,как по клику на картинку в shelllistview показывать её эскиз в Paintbox ?

[NumLock]

-создать обработчик OnClick
-убедиться что кликнули на картинке (по расширению)
-загрузить картинку в какой-нибудь TхGraphic
-нарисовать на PaintBox

[Amzi]

Убеждаться, что кликнули по картинке не нужно, так как есть фильтр который в shelllistview отображает только картинки.
а вот как передать картинку из shelllistview в PaintBox, можно немного поподробнее?

[poli-smen]

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

а вот как передать картинку из shelllistview в PaintBox, можно немного поподробнее?

Картинку из "shelllistview в PaintBox" передать невозможно, так как картинка в shelllistview не хранится.
Тебе нужно получить путь и имя файла у shelllistview, потом загрузить эту картинку например в TBitmap и с него копировать на канву PaintBox'а.

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

type   TForm1 = class(TForm)     PaintBox1: TPaintBox;     Image1: TImage;     procedure FormCreate(Sender: TObject);     procedure PaintBox1Paint(Sender: TObject); ... procedure TForm1.FormCreate(Sender: TObject); begin   Image1.Picture.LoadFromFile('clouds.bmp');   PaintBox1.OnPaint:=PaintBox1Paint; end;   procedure TForm1.PaintBox1Paint(Sender: TObject); begin   PaintBox1.Canvas.StretchDraw(PaintBox1.ClientRect, Image1.Picture.Graphic); end;

[Amzi]

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

Код:

так, конечно, все отлично работает, но как выдернуть путь из shelllistview, чтоб потом его использовать.

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm2.sShellListView1Click(Sender: TObject); var    path: string;  begin    for i:=0 to sShellListView1.SelCount-1 do    begin      path := sShellListView1.Folders[sShellListView1.GetNextItem(sShellListView1.Selected,                sdAll,[isSelected]).Index+i-1].PathName;   end; end;

такая штука не робит

[NumLock]

Код:

1 2	Image1.Picture.LoadFromFile(ShellListView1.Folders[ShellListView1.ItemIndex].PathName); PaintBox1.Invalidate;

[Amzi]

Спасибо большое, все работает!