Wie löse ich dieses Probleme siehe Bild

Aufgepixelt und schwarzer Rand

Bei den Icons scheint es sich um die 16x16px-Version zu handeln. Welche Komp?Vielleicht kann man die Icon-Größe dort ja umstellen.

Hi Doreen,

den schwarzen Rand müsstest du hiermit beseitigen können. ANsonsten würde ich auch sagen, dass die Icongröße nicht stimmt.

Benutze die JvImageList und habe dort bei Height und Width 32 eigegeben

Bevor du die Bilder geladen hast oder danach. Die größe wird beim Laden angepasst.

Nun habe ich den Code für die schwarzen Ränder in die OnCreate gepackt - nun sind meine Icons aber in Mini-Format

meine QuellCode:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  LV_InsertFiles_1('C:\Windows\System32\', JvListView1, ImgLst);
end;

zusammenfalten · markieren

Delphi-Quellcode:

procedure LV_InsertFiles_1(strPath: string; ListView: TlistView; ImageList: TJvImageList);
var
  i: Integer;
  Icon: TIcon;
  SearchRec: TSearchRec;
    ListItem: TListItem;
  FileInfo: SHFILEINFO;
begin
  Icon := TIcon.Create;
  ListView.Items.BeginUpdate;

  try
    i := FindFirst(strPath + '*.exe', faAnyFile, SearchRec);
    while i = 0 do
    begin
      with ListView do
      begin
        if ((SearchRec.Attr and FaDirectory <> FaDirectory) and
          (SearchRec.Attr and FaVolumeId <> FaVolumeID)) then
        begin
          ListItem := ListView.Items.Add;

          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo, SizeOf(FileInfo), SHGFI_DISPLAYNAME);
          Listitem.Caption := FileInfo.szDisplayName;

          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME);
          ListItem.SubItems.Add(FileInfo.szTypeName);

          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
          icon.Handle := FileInfo.hIcon;

          ListItem.ImageIndex := ImageList.AddIcon(Icon);
          ImageList.AddIcon(Icon);
          DestroyIcon(FileInfo.hIcon);

          Application.ProcessMessages;
        end;
      end;
      i := FindNext(SearchRec);
    end;
  finally
    Icon.Free;
    ListView.Items.EndUpdate;
  end;
end;

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  SHFileInfo: TSHFileInfo;
  SysIcons: THandle;
begin
  try
    SysIcons := SHGetFileInfo(PChar(copy(ParamStr(0), 1, 3)), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
  ImgLst.Handle := SysIcons;
end;

mich macht dabei das SHGFI_SMALLICON etwas stutzig, weil das wohl irgendwie auch sagt, dass man kleine Icons haben will, oder nicht? Naja, mal in der MSDN nach SHGetFileInfo() gesucht hier gefunden und in der Beschreibung zu dem Parameter findet man dann auch SHGFI_LARGEICON, damit sollte man das grosse Icon bekommen (soweit vorhanden, behaupte ich da mal).

ok das mit "SHGFI_LARGEICON" hab ich geändert und schwups waren sie wieder gross nur Aufgepixelt wie auf dem Bild aus meinem ersten Posting sind diese immer noch!