Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Probleme beim Ermitteln von System-Icons unter Delhi 7.0 (https://www.delphipraxis.net/28116-probleme-beim-ermitteln-von-system-icons-unter-delhi-7-0-a.html)

ChristianWE 19. Aug 2004 22:12


Probleme beim Ermitteln von System-Icons unter Delhi 7.0
 
Ich habe ein Problem beim Ermitteln der System-Icons unter Delphi 7.0 und kann daher in Trees und Listviews, die Dateien anzeigen, die zu den Dateien passenden Icons nicht anzeigen.
Bei der Verwendung des Codes, mit dem ich das früher unter Delphi 3.0 ermöglicht habe resultieren unter 7.0 nur 5 Icons.

Ich verwende folgenden Code:

Delphi-Quellcode:
function GetSystemIcons(var BildListe : TImageList;
Klein : Boolean) : Boolean;
VAR
 SysIl : uint;
 FiInf  : TSHFileInfo;
begin
  Result := False;
  IF BildListe = NIL THEN Exit;
  IF Klein THEN
    SysIl := SHGetFileInfo('', 0, FiInf, SizeOf(FiInf),
      SHGFI_SYSICONINDEX OR SHGFI_SMALLICON)
  ELSE
    SysIl := SHGetFileInfo('', 0, FiInf, SizeOf(FiInf),
      SHGFI_SYSICONINDEX OR SHGFI_LARGEICON);
  IF SysIl <> 0 THEN
  BEGIN
    BildListe.Handle := SysIl;
    BildListe.ShareImages := True;
    Result := True;
  END;
end;
Was mache ich falsch? Kann mir jemand helfen?

Thanks
Christian

[edit=Sharky]Delphi-Tags korrigiert. Mfg, Sharky[/edit]

MathiasSimmack 19. Aug 2004 22:53

Re: Probleme beim Ermitteln von System-Icons unter Delhi 7.0
 
Ich muss zwar zugeben, dass sich der Code ohne Formatierung doch etwas schwerer liest (wie haben wir das bloß früher gemacht? :gruebel:), aber ich denke, der Weg ist richtig. Ich habe mal fix [dp:308f7fd3a1="System Imagelist]gesucht[/dp:308f7fd3a1], aber im Prinzip benutze ich den gleichen Code.

Als Beispiel aus diesem Beitrag:
Delphi-Quellcode:
tmpImgLst.Handle := SHGetFileInfo(PChar(FName),0,
  FileInfo,sizeof(FileInfo),SHGFI_SYSICONINDEX or SHGFI_ICON);
usw.

Was passiert bei dir denn genau, bzw. was passiert denn nicht? Was meinst du mit:
Zitat:

[...] resultieren unter 7.0 nur 5 Icons.

ChristianWE 19. Aug 2004 23:07

Re: Probleme beim Ermitteln von System-Icons unter Delhi 7.0
 
Also erst mal danke für die schnelle Reaktion. Den Quellcode habe ich zwar schon formatiert eingefügt, Formatierung ist aber beim Posten verloren gegangen, hab wohl noch nicht ganz kapiert, wie man das richtig macht...

Was bei mir passiert ist schnell beschrieben. Es tritt kein Fehler auf, aber meine Imagelist enthält danach sage und schreibe 5 Icons und ich weiß einfach nicht warum. Der aus einer von mir unter D3.0 entwickelten Komponente stammende Code liefert unter D3.0 ein tadeloses Ergebnis, nur leider nicht unter D7.0.

Vjay 19. Aug 2004 23:13

Re: Probleme beim Ermitteln von System-Icons unter Delhi 7.0
 
*Offtopic
Du hast über dem Post - Memofeld ein Button der heisst Delphi-Code da drückst du :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz