AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

OrdnerIcons setzen

Ein Thema von Delbor · begonnen am 13. Nov 2019 · letzter Beitrag vom 13. Nov 2019
Antwort Antwort
Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
1.186 Beiträge
 
Delphi 11 Alexandria
 
#1

OrdnerIcons setzen

  Alt 13. Nov 2019, 10:20
Hi zusammen

Wie ich Icons einer Datei oder eines Ordners auslese, hab ich hier gefunden. Und wie das in Delphi so ist: zu einer Get-Methode gehört meist auch eine Set-Methode - aber so in Windows offensichtlich nicht. Und das stellt mich nun vor die Frage: Wie weise ich einem Ordner ein eigenes Icon zu?
Hintergrund ist: Im Moment erweitere ich meinen Pathfinderframe um die Fähigkeit, Order anlegen zu können. Dazu erzeuge ich im Treeview einen neuen TreeNode, weise diesem ein eigenes Icon zu, zeige ihn im Editmodus an und erzeuge (noch nicht) den zugehörigen Ordner im Parentvverzeichnis.
Das Problem dabei: Schliesse ich das Programm, sind die Nodes natürlich weg - und damit auch ihre zugewiesenen Node.Data - Infos. Also werden die Ordner bei einem erneuten Öffnen des Programms mit den Standard-Icons aus einer Imagelist geladen. Das Programm kann nun ja nicht mehr die Nodes.Data auslesen. Die müssen ja erst wieder neu erzeugt werden.

Klar, ich könnte eine Liste mit den Dateiname erstellen. Das Programm müsste dann "nur" den gefundenen Namen mit dieser Liste vergleichen - viel Spass, wenn ein Verzeichnis mehrere hundert Untereinträge aufweist...

Und da bietet sich nun shgetfileinfo an, um das einem Ordner zugeordnete Icon auszulesen. Aber wie weise ich so ein Icon zu?

Gruss
Delbor
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch
  Mit Zitat antworten Zitat
Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#2

AW: OrdnerIcons setzen

  Alt 13. Nov 2019, 10:52
Schau mal hier: https://www.delphipraxis.net/601-ord...s-aendern.html
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.
  Mit Zitat antworten Zitat
Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
1.186 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: OrdnerIcons setzen

  Alt 13. Nov 2019, 11:09
Hi Moombas

Danke für die prompte antwort!

Gruss
Delbor
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch
  Mit Zitat antworten Zitat
Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#4

AW: OrdnerIcons setzen

  Alt 13. Nov 2019, 11:41
War ja auch nicht schwer zu googlen...
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz