Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Пример загрузки файлов в ListView с иконками, Пример взят из drkb3 - не отображаються  
:(
    Опции темы
AlanFree
Дата 12.11.2009, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
вот код но иконок в ListView1 нет!!!  В чем дело кто подскажет? или другой рабочий пример может кто даст?

Код

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl, StdCtrls, ShellAPI, ComCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    DirectoryListBox1: TDirectoryListBox;
    ListView1: TListView;
    DriveComboBox1: TDriveComboBox;
    procedure FormCreate(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure UpdateFiles;
var
  sr: TSearchRec;
  li: TListItem;
  fi: TSHFileInfo;
  ext: string;
  IconIndex: word;
  ic: TIcon;
begin
  Form1.ListView1.Items.BeginUpdate;
  Form1.ListView1.Items.Clear;
  if FindFirst(Form1.DirectoryListBox1.Directory + '\*.*', faAnyFile, sr) = 0 then
    repeat
      if sr.Attr and faDirectory <> 0 then
        continue;
      li := Form1.ListView1.Items.Add;
      li.Caption := sr.name;
      ext := LowerCase(ExtractFileExt(li.Caption));
      ShGetFileInfo(PChar('*' + ext), 0, fi, SizeOf(fi),
      SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
      li.ImageIndex := fi.iIcon;
      if sr.Size < 1024 then
        li.SubItems.Add(IntToStr(sr.Size) + ' byte')
      else
      if sr.Size < 1024 * 1024 then
        li.SubItems.Add(IntToStr(round(sr.Size / 1024)) + ' KByte')
      else
        li.SubItems.Add(IntToStr(round(sr.Size / (1024 * 1024))) + ' MByte');
      li.SubItems.Add(fi.szTypeName);
    until
      FindNext(sr) <> 0;
  FindClose(sr);
  Form1.ListView1.Items.EndUpdate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  fi: TSHFileInfo;
  lc: TListColumn;
begin
  DriveComboBox1.DirList := DirectoryListBox1;
  with ListView1 do
  begin
    SmallImages := TImageList.CreateSize(16,16);
    SmallImages.Handle := ShGetFileInfo('*.*', 0, fi,
      SizeOf(fi), SHGFI_SMALLICON or SHGFI_ICON
      or SHGFI_SYSICONINDEX);
    LargeImages := TImageList.Create(nil);
    LargeImages.Handle := ShGetFileInfo('*.*', 0, fi,
      SizeOf(fi), SHGFI_LARGEICON or SHGFI_ICON
      or SHGFI_SYSICONINDEX);
    lc := Columns.Add;
    lc.Caption := 'Name';
    lc := Columns.Add;
    lc.Caption := 'Size';
    ComboBox1.Items.Add('Icons');
    ComboBox1.Items.Add('List');
    ComboBox1.Items.Add('Table');
    ComboBox1.Items.Add('SmallIcons');
    ComboBox1.ItemIndex := 0;
  end;
  UpdateFiles;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  UpdateFiles;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
    case ComboBox1.ItemIndex of
    0: ListView1.ViewStyle := vsIcon;
    1: ListView1.ViewStyle := vsList;
    2: ListView1.ViewStyle := vsReport;
    else
      ListView1.ViewStyle := vsSmallIcon;
  end;
end;

end.
PM MAIL   Вверх
Keeper89
Дата 12.11.2009, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Иконку получить можно так:
Код

Form1.ListView1.SmallImages.Clear;
ic := TIcon.Create;
  try
    ext := LowerCase(ExtractFileExt(li.Caption));
    SHGetFileInfo(PChar('*' + ext),
                  FILE_ATTRIBUTE_NORMAL,
                  fi,
                  SizeOf(fi),
                  SHGFI_ICON or SHGFI_SMALLICON or
                  SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES
                  );
    ic.Handle := fi.hIcon;
    Form1.ListView1.SmallImages.AddIcon(ic);
    li.ImageIndex := Form1.ListView1.SmallImages.Count - 1;
  finally
    ic.Free;
  end;


Это сообщение отредактировал(а) Keeper89 - 12.11.2009, 21:25


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
AlanFree
Дата 13.11.2009, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 22.9.2006

Репутация: нет
Всего: нет
Keeper89,  спасибо!!! Но почему то не для всех файлов иконки вытягиваються, к примеру для файлов оперы иконка не вытягиваеться, в чем может быть дело?

Код

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl, StdCtrls, ShellAPI, ComCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    DirectoryListBox1: TDirectoryListBox;
    ListView1: TListView;
    DriveComboBox1: TDriveComboBox;
    procedure FormCreate(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure UpdateFiles;
var
  sr: TSearchRec;
  li: TListItem;
  fi: TSHFileInfo;
  ext: string;
  IconIndex: word;
  ic: TIcon;
begin
  Form1.ListView1.Items.BeginUpdate;
  Form1.ListView1.Items.Clear;
  if FindFirst(Form1.DirectoryListBox1.Directory + '\*.*', faAnyFile, sr) = 0 then
    repeat
      if sr.Attr and faDirectory <> 0 then
        continue;
      li := Form1.ListView1.Items.Add;
      li.Caption := sr.name;
      ic := TIcon.Create;
      try
        ext := LowerCase(ExtractFileExt(li.Caption));
        SHGetFileInfo(PChar('*' + ext),
                      FILE_ATTRIBUTE_NORMAL,
                      fi,
                      SizeOf(fi),
                      SHGFI_ICON or SHGFI_SMALLICON or
                      SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES
                      );
        ic.Handle := fi.hIcon;
        Form1.ListView1.SmallImages.AddIcon(ic);
        li.ImageIndex := Form1.ListView1.SmallImages.Count - 1;
      finally
        ic.Free;
      end;
      li.ImageIndex := fi.iIcon;
      if sr.Size < 1024 then
        li.SubItems.Add(IntToStr(sr.Size) + ' byte')
      else
      if sr.Size < 1024 * 1024 then
        li.SubItems.Add(IntToStr(round(sr.Size / 1024)) + ' KByte')
      else
        li.SubItems.Add(IntToStr(round(sr.Size / (1024 * 1024))) + ' MByte');
      li.SubItems.Add(fi.szTypeName);
    until
      FindNext(sr) <> 0;
  FindClose(sr);
  Form1.ListView1.Items.EndUpdate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  fi: TSHFileInfo;
  lc: TListColumn;
begin
  DriveComboBox1.DirList := DirectoryListBox1;
  with ListView1 do
  begin
    SmallImages := TImageList.CreateSize(16,16);
    SmallImages.Handle := SHGetFileInfo('*.*',
                  FILE_ATTRIBUTE_NORMAL,
                  fi,
                  SizeOf(fi),
                  SHGFI_ICON or SHGFI_SMALLICON or
                  SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES
                  );
    LargeImages := TImageList.Create(nil);
    LargeImages.Handle := SHGetFileInfo('*.*',
                  FILE_ATTRIBUTE_NORMAL,
                  fi,
                  SizeOf(fi),
                  SHGFI_ICON or SHGFI_SMALLICON or
                  SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES
                  );
    lc := Columns.Add;
    lc.Caption := 'Name';
    lc := Columns.Add;
    lc.Caption := 'Size';
    ComboBox1.Items.Add('List');
    ComboBox1.Items.Add('Icons');
    ComboBox1.Items.Add('Table');
    ComboBox1.Items.Add('SmallIcons');
    ComboBox1.ItemIndex := 0;
    ListView1.ViewStyle := vsList;
  end;
  UpdateFiles;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  UpdateFiles;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
    case ComboBox1.ItemIndex of
    0: ListView1.ViewStyle := vsIcon;
    1: ListView1.ViewStyle := vsList;
    2: ListView1.ViewStyle := vsReport;
    else
      ListView1.ViewStyle := vsSmallIcon;

  end;
end;

end.
PM MAIL   Вверх
Keeper89
Дата 13.11.2009, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
AlanFree, а что такое файлы Оперы? Если htm/html-сраницы - должен получаться значок, предусмотренный браузером по умолчанию.

+ Прикрепите проект целиком, так будет проще смотреть что не так.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0719 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.