lazarus картинки в ListView

[BLACK_RAIN]

Здравствуйте.
Кинул на форму ListView и ImageList. В свойстве ListView.StateImages поставил ImageList. Style поставил vsIcon.
Написал процедуру поиска файлов в папке:

procedure tform1.find(dir : string; recurse: boolean);
const
  thumbsize = 100;
var
  sr : TSearchRec;
  ext,t : string;
  li: tlistitem;
  bmp1,bmp2 : tbitmap;
  r,r2 : trect;
begin
  if dir[length(dir)]<>'\' then
  dir := dir+'\';
if FindFirst(dir+'*.*',faAnyFile, sr)=0 then
repeat
  if (sr.Name<>'.') and (sr.Name<>'..') then
  begin
      if (((sr.Attr and fahidden)=0) and ((sr.Attr and fadirectory)=0)) then
      begin
        t := dir + sr.Name;
        ext := lowercase(extractfileext(t));
        if (ext='.bmp') {or (ext='.jpg') or (ext='.jpeg')} then
        begin
         if ext='.bmp' then
          begin
            bmp1 := TBitmap.Create;
            bmp2 := TBitmap.Create;
            bmp1.LoadFromFile(t);
            SetRect(r2,0,0,ThumbSize,ThumbSize);
            SetRect(r,0,0,bmp1.Width,bmp1.Height);
            ResizeRect(r,r2);
            bmp2.Width := ThumbSize;
            bmp2.Height := ThumbSize;
            bmp2.Canvas.StretchDraw(r,bmp1);
            ImgList.Add(bmp2,nil);
            bmp1.Free;
            bmp2.Free;
            li := lv1.Items.Add;
            li.Caption:= t;
          end;
        end;
      end;
      if recurse then
      if (((sr.Attr and fahidden)=0) and ((sr.Attr and fadirectory)<>0)) then
      begin
        find(dir+sr.Name, recurse);
      end;
  end;
  application.ProcessMessages;
until FindNext(sr)<>0;
SysUtils.FindClose(sr);
end;

но в результате, в ListView отображается только первая картинка.

что не так?

[Stilet]

Это потому что у тебя один объект для битмапа.
А тебе нужен массив таких объектов или ImageList.
Но я думаю что стоит создать список битмапов на основе TComponentList.

[BLACK_RAIN]

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

Это потому что у тебя один объект для битмапа.
А тебе нужен массив таких объектов или ImageList.

Где у меня один объект? Я же ImageList юзаю.
Всё решилось установкой LargeImage вместо StateImage и указанием индекса картинки.

[BLACK_RAIN]

Почему на винде и линуксе список выглядит по-разному?

винда <> Kubuntu 14.04
Как привести к виду как в винде?

[Stilet]

ImgList.Add(bmp2,nil);

Прошу прощения, не заметил этого.

[BLACK_RAIN]

Я понял. Это из-за того, что в линуксе не переносятся длинные надписи под эскизами. Но почему? Ведь свойство WrapText равно true.

[Stilet]

Не исключено что это недоработки Лазаря. Лично я не сталкивался.
А может от самого Пингвинчика зависит...
Попробуй открыть генофонд и посмотреть как это свойство устроено и на что влияет.

[BLACK_RAIN]

генофонд? это типа исходники классов и компонентов LCL?

[Stilet]

Они самые

[BLACK_RAIN]

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

Они самые

ок, время будет покопаюсь.
а пока можно просто подписи не ставить. Они не так важны.
P.S. какая-то фиговая кроссплатформенность получается