Hi!
Ja, heute läufts mal wieder bescheiden
.
Ich habe da noch ne Frage bezgl. PNG:
In ein TImage habe ich ein PNG-File geladen. Mit eurer Hilfe (
http://www.delphipraxis.net/160327-a...-wenn-png.html) weiss ich nun, dass ich mit folgendem Code auf dieses PNG-Image malen kann:
Delphi-Quellcode:
IF FileExt = '.png' THEN
WITH TPNGImage(myImage.Picture.Graphic) DO
BEGIN
OldBrushColor := Canvas.Brush.Color;
Canvas.Brush.Color := ClRed;
Canvas.FrameRect(myRect);
Canvas.Brush.Color := OldBrushColor;
END
...
Prima soweit.
Im nächsten Schritt möchte ich nun ein Rechteck aus diesem myImage kopieren und auf ein TImage übertragen (so eine Art Vergrößerungs-Image). Egal ob ich ein Canvas.CopyRect oder BitBlt benutze, kommt es natürlich wieder zum gleichen Fehler:
EInvalidOperation: Ein Bild kann nur geändert werden, wenn es ein
Bitmap enthält.
Mein (bescheidener) Versuch:
Delphi-Quellcode:
IF FileExt = '.png' THEN
WITH TPNGImage(Main_Form.MainImage.Picture.Graphic) DO
BEGIN
Canvas.CopyRect(Bounds(0, 0, Width, Height), Main_Form.MainImage.Canvas,
Bounds(myRect.Left, myRect.Top, myRect.Right, myRect.Bottom));
END
ELSE
...
Das beduetet doch, wenn ich ein Rechteck aus einem PNG-Canvas kopieren möchte, dann muß das Ziel-Canvas auch ein PNG-Canvas sein oder? (Also im Falle, dass ein PNG in das TIMage geladen wurde, muß ein TPNGImage created werden, welches das zu kopierende Rechteck übernimmt). Habe ich das wohl korrekt verstanden?
Danke & Gruß
Jazzman