Canvas und Icons

[Martin K]

Hi,

habe ein Icon in ein TImage geladen.
Dann wollte ich mit Canvas darauf zeichnen und es kommt diese Meldung:

Code:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Ein Bild kann nur geändert werden, wenn es ein Bitmap enthält'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK   Hilfe   
---------------------------

Frage:
Wie kann man auf Icons zeichnen, also ähnlich wie mit Canvas

[Hawkeye219]

Hallo Martin,

die Fehlermeldung sagt es schon: eine Zeichenfläche (Canvas) gibt es nur, wenn das TImage-Objekt eine Bitmap enthält:

Zitat von Delphi-Hilfe:

Canvas ist nur verfügbar, wenn die Eigenschaft Picture ein TBitmap-Objekt enthält. Wenn Picture einen anderen Grafiktyp darstellt, führt der Versuch, Canvas zu lesen, zu einer EInvalidOperation-Exception.

Du wirst also dein Icon in eine Bitmap umwandeln müssen. Vielleicht findest du über die Suchfunktion in der DP einen entsprechenden Code.

Gruß Hawkeye

[Martin K]

Hmm...
Also gibt es überhaupt keine Möglichkeit direkt auf ein TIcon zu zeichnen...?!?

[Hawkeye219]

Hier wurde ein ähnliches Problem besprochen. Möglicherweise hilft es dir ja weiter.

Gruß Hawkeye

[Martin K]

Jo, danke schonmal.

Aber wie kann ich abfragen, ob mein TImage ein Bitmap oder ein Icon enthält ?

Dann lasse ich das Zeichnen halt einfach nur zu, wenn das TImage ein Bitmap ist...

[Hawkeye219]

Du kannst die Eigenschaft Graphic überprüfen:

Delphi-Quellcode:

if (Image1.Picture.Graphic = nil) then
  // kein Bild enthalten
else 
  if (Image1.Picture.Graphic is TBitmap) then
    // bitmap
  else
    if (Image1.Picture.Graphic is TJPEGImage) then
      // jpg
    else
      ...

Gruß Hawkeye

[Martin K]

Zitat von Hawkeye219:

Du kannst die Eigenschaft Graphic überprüfen:

Delphi-Quellcode:

if (Image1.Picture.Graphic = nil) then
  // kein Bild enthalten
else 
  if (Image1.Picture.Graphic is TBitmap) then
    // bitmap
  else
    if (Image1.Picture.Graphic is TJPEGImage) then
      // jpg
    else
      ...

Gruß Hawkeye

Sicher, dass das so geht ?

Bei der Überprüfung auf ein TBitmap kommt diese Fehlermeldung:

Zitat:

[Fehler] Unit1.pas(158): Operator ist auf diesen Operandentyp nicht anwendbar

[Hawkeye219]

Du mußt darauf achten, daß in der USES-Anweisung die Unit "Windows" vor der Unit "Graphics" aufgeführt wird, da beide den Bezeichner TBitmap definieren. Hier wird aber die Definition aus der Unit Graphics benötigt.

Gruß Hawkeye

[Martin K]

Danke, das war's