*.bmp zu *.ico

[Legnad]

Hallo Leute!
Hoffe ihr könnt mir weiterhelfen! Besimmt sogar.

Ich schreibe zur Zeit ein Programm, dass Prozessor-/Mainboardtemperatur unten rechts in der Taskleiste anzeigt. Habe vor das mit TTrayicon zu verwirklichen. Ich dachte mir, man könnte ja den Wert (Temperatur) in eine Bitmap schreiben, diese in eine *.ico konvertieren und als Symbol des Trayicons zur Laufzeit einstellen.

Hört sich einfach an, aber ich scheitere schon an dem Schritt, wo es ums konvertieren geht. Ich habe einen Algorithmus im Net gefunden, welcher ein .ico in ein .bmp konvertiert. Hab versucht das ganze umzudrehen, aber Canvas läuft nicht mit TIcon. Hier der Code:

Zitat:

Procedure IcoToBmp;
var
OOIcon : TIcon;
OOBitmap : TBitmap;
begin
OOIcon := TIcon.Create;
OOBitmap := TBitmap.Create;
OOIcon.LoadFromFile('c:\picture.ico') ;
OOBitmap.Width := Icon.Width;
OOBitmap.Height := Icon.Height;
OOBitmap.Canvas.Draw(0, 0, Icon ) ;
OOBitmap.SaveToFile('c:\picture.bmp') ;
OOIcon.Free;
OOBitmap.Free;
end;

Quelle: http://delphi.about.com/cs/adptips19...ltip0599_2.htm

Danke, schon im Voraus, für die Antworten!

PS: Wie kann man eigentlich Text gescheit formatieren?