Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
10. Jun 2010
Kommt gleich :P Vielleicht ist aber auch einfach nur was falsch eingestellt gewesen bei mir. Hatte schonmal probiert gezielt mit dem Overlay rumzuspielen, aber auch da kamen nur unbrauchbare Ergebnisse raus.
Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
10. Jun 2010
Also der VST ruft die GetImageIndex Funktion jeweils 2x für jede Node auf. Das erste mal mit ikNormal und das zweite Mal mit ikOverlay. So funktioniert es nun:
procedure TfrmFileManager.vtFileListGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer);
var
NodeData: PFileNodeData;
begin
if...
Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
10. Jun 2010
Habs grade selbst gelöst :eek: Im GetImageIndex Event gibt es eine Eigenschaft "Kind: TVTImageKind" die kann teilweise den Wert ikOverlay haben. Ist dies der Fall, wird einfach ein weiteres Icon, über das Standardicon drübergemalt.
Meine Routine hat zwar das Icon gesetzt, aber dieses wurde vom Overlay einfach komplett übermalt :wall: Jetzt prüfe ich am Anfang auf "Kind <> ikOverlay", was nun zum...
Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
10. Jun 2010
Edit: Es klappt auch bei anderen Komponenten, nur nicht beim VST wie es scheint.
Mist jetzt hab ich auch noch ausversehen auf "neuer Beitrag" geklickt -.-
Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
9. Jun 2010
Hey,
ich versuche grade verzweifelt Icons aus der System ImageList in meinem VirtualTreeView anzuzeigen. Doch leider bleiben die Symbole hartnäckig leer. :-? Aus meinem Testprojekt:
procedure InitialisiereIcons;
var SysIL : HImageList;
Info : TSHFileInfo;
SmallImages : TImageList;
begin
SmallImages := TImageList.Create(Form1);