Thema: Delphi *.bmp zu *.ico

Einzelnen Beitrag anzeigen

Legnad

Registriert seit: 23. Jan 2007
16 Beiträge
 
Delphi XE5 Professional
 
#1

*.bmp zu *.ico

  Alt 19. Jun 2007, 18:31
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?
  Mit Zitat antworten Zitat