Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Hab mal zum Testen meine Systemfarbtiefe auf 16 Bit gestellt (sollte ja auch damit möglichst kompatibel sein).
Wollte mal gucken, was mit dem Alpha-Kanal passiert...
Dabei habe ich folgendes festgestellt:
bei ImageList1.Add(b, nil) oder ImageList1.Add(b, b) haben die Symbole einen schwarzen Hintergrund
(sieht besch... aus).
Wenn ich dagegen:
ImageList1.AddMasked(b, clBlack);
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Also mit:
ImageList1.Delete(Index);
lösche ich dann einfach die Bitmaps, die ich nicht brauche...
Kann man den Code eigentlich noch verbessern ?
Ich wusste halt nicht, wie ich das schreiben soll:
ImageList1.Add(b, b);
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Also, erstmal hier der Code:
So klappts prima zur Laufzeit!
Vorraussetzung:
ToolBar mit genügend ToolButtons.
ImageList1 enthält die normalen Bitmaps,
ImageList2 für den Hover-Effekt.
Beiden ImageList müssen leer sein.
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Perfekt!!! :thumb:
Danke, das isses !!!
Wie kann ich denn nur einzelne Bitmaps in die ImageList laden?
Ich will ja nicht immer die komplette Sammlung als ToolBar...
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Hab jetzt einfach mal als Bitmap gespeichert und in eine ImageList geladen.
Dabei hat er mich auch gleich gefragt:
Perfekt!!
Jetzt hab ich die Bitmaps alle einzeln in der ImageList!!!
Probleme gibts nur mit dem Alpha Kanal:
Sieht dann in einer ToolBar doch etwas bescheiden aus...
Gibt es vielleicht eine Komponente wie ImageList, die Alpha-Kanal unterstützt?
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Hm...
Und wie kann ich die in eine ToolBar (mit ImageList oder so) laden?
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Hääää????
Da kommt das bei raus...
(Bild im Anhang).
//Edit:
Probelm gelöst.
Hatte nur mein TImage zu schmal gemacht :wall:
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Hmm....
Da bekomme ich diese hier...
:gruebel:
Hab Deinen Code aus Beitrag #2 verwendet.
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Ja, wo holt sie der Explorer eigentlich her :gruebel:
@Daniel G:
gleich mal ausprobieren...
//Edit: Auch nur 4 Bit Icons...
Ja, aber mit VIEW_32 Bit ist da nix dabei, oder ?
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Copy und Delete hab ich gefunden...
Die anderen sind aber definitiv nicht drin.
Zum Anhang:
Die müssen doch irgendwo in Windows drin sein???
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Ja, aber in der shell32.dll gibts nicht die Icons die ich brauche:
Delete, Cut, Copy, Paste, FileOpen, FileClose...
...sind da alle nicht drin!
Forum: Win32/Win64 API (native code)
Delphi
by Martin K,
16. Mai 2006
Hi Leute,
würde gerne die 32 Bit Icons von Windows in meinem Programm einbinden.
Natürlich nicht das Icon selbst einbinden (wegen Linzenrechten geht das glaub ich nicht), sondern es eben bei FormCreate aus Windows rausholen.
Dazu gibts ja diesen Code,
allerdings erhalte ich dann immer das 4 Bit Icon, nicht das 32 Bit XP-Icon...