*.bmp zu *.ico

[Legnad]

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

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! :cheers:

PS: Wie kann man eigentlich Text gescheit formatieren?

[DeddyH]

Hallo, ich habe das hier bei den Schweizern entdeckt. Ich hoffe, das hilft Dir.

[Matze]

Zitat:

Zitat von Legnad

PS: Wie kann man eigentlich Text gescheit formatieren?

Du meinst sicher den Delphi-Code, wenn ich deine manuelle Hervorhebung so ansehe. ;) Umscließe den Code einfach mittels [delphi][/delphi]

[Legnad]

Ah ja! Dankeschön!

Klasse Community hier! Hat mir schon so oft weitergeholfen! Ich kenn mich noch nicht so gut aus. Bin grad in der MSS 11, hab Informatik Grundkurs, mit dem Problem, dass mein Info-Lehrer wohl einmal so ein "Wie-bringe-ich-mir-Delphi-in-3-Tagen-bei"-Buch, was darauf hinausläuft, dass ich das besser kann als er :|

Sau doof! :-D :-D