listview , icons
я делаю простейший файловый менеджер, для рисунков, как мне использовать уменьшенные рисунки вместо иконок??
Добавляешь компонент TImageList, настраиваешь его (выбираешь какие рисунки должны отображаться)
а в программе пишешь что-то типа:
var
li: TListItem;
begin
li:=ListView1.Items.Add;
ListView1.ViewStyle:=vsReport;
li.Caption:='что-нить';
li.ImageIndex:=1;
li.SubItems.Add('еще что-нить');
li.SubItems.Add('и еще что-нить');
li.SubItemImages[0]:=0;
end;
а в программе пишешь что-то типа:
var
li: TListItem;
begin
li:=ListView1.Items.Add;
ListView1.ViewStyle:=vsReport;
li.Caption:='что-нить';
li.ImageIndex:=1;
li.SubItems.Add('еще что-нить');
li.SubItems.Add('и еще что-нить');
li.SubItemImages[0]:=0;
end;
Уменьшаешь изображение, ИМХО StretchBlt, грузишь его в TImageList
И дальше -
[quote=frosty]
li:=ListView1.Items.Add;
ListView1.ViewStyle:=vsReport;
li.Caption:='что-нить';
li.ImageIndex:=1;
li.SubItems.Add('еще что-нить');
li.SubItems.Add('и еще что-нить');
li.SubItemImages[0]:=0;
[/quote]
Код:
ImageList1.Add(Bitmap, Mask);
И дальше -
[quote=frosty]
li:=ListView1.Items.Add;
ListView1.ViewStyle:=vsReport;
li.Caption:='что-нить';
li.ImageIndex:=1;
li.SubItems.Add('еще что-нить');
li.SubItems.Add('и еще что-нить');
li.SubItemImages[0]:=0;
[/quote]