Forum: Multimedia
Delphi
by FAlter,
18. Okt 2007
Hi,
noch eine kleine Korrektur:
function WriteIcons(Stream: TStream; const Icons: array of TIcon): Boolean;
...
Result := WriteIconsFromHandles(Stream, HandleArray);
end;
Forum: Multimedia
Delphi
by FAlter,
17. Okt 2007
Hi,
uses
IconTools;
var
Icon1, Icon2: TIcon;
FileName: String;
Forum: Multimedia
Delphi
by FAlter,
17. Okt 2007
Hi,
es geht mit nicht darum, einen Icon-Editor zu schreiben, sondern lediglich die Option zu geben, ein Bild auch als *.ico zu speichern. Ungefähr so wie IrfanView - das speichert dann auch nur ein einzelnes Icon. Dass Icons und Cursor verschiedene Bilder in verschiedenen Auflösungen und Farbtiefen beinhalten können, ist mir durchaus bewusst. Eines mit der richtigen Farbanzahl würde mir schon...
Forum: Multimedia
Delphi
by FAlter,
16. Okt 2007
Hi,
ein fertiges Programm hilft mir bei dem Problem leider nicht weiter. Ich möchte mit meinem eigenen Programm ein 24 Bit TIcon speichern und nicht mit irgendeinem Programm.
Mfg
FAlter
Forum: Multimedia
Delphi
by FAlter,
16. Okt 2007
Hi,
ich würde auch gerne ein 24-Bit-Icon speichern und krame mal diesen Thread raus, da es das gleiche Problem ist, nämlich, dass es beim Speichern weniger Farben bekommt.
In meinem Fall wird das Icon über eine ImageList erstellt. Ein Teil meiner Funktion, die das TIcon zurückliefert, sieht so aus:
with TImageList.CreateSize(FWidth, FHeight) do
try
Add(BMP, Mask);
GetIcon(0,...