Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   PNG auf TImage kopieren (https://www.delphipraxis.net/160362-png-auf-timage-kopieren.html)

Jazzman_Marburg 9. Mai 2011 19:35


PNG auf TImage kopieren
 
Hi!
Ja, heute läufts mal wieder bescheiden :wall:.
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

Luckie 9. Mai 2011 19:40

AW: Nochmal PNG...
 
Bitte gebe deinem Thema einen aussagekräftigen Titel, damit man weiß, um was es geht.

rollstuhlfahrer 9. Mai 2011 20:07

AW: Nochmal PNG...
 
Also: mach das ganze doch erst einmal so, dass du ein TPNGImage erstellst und dann direkt in der Instanz rummalst und dann das ganze wieder (am besten unter anderem Namen) speicherst und dann mal schaust, was passiert ist.

Was ist eigentlich aus dem Tipp mit GDI+ geworden? - Wolltest du das nicht nehmen oder war das jemand anderes? Habs nachgeschaut, war jemand anderes. Deshalb nochmal: GDI+ kann das.

Bernhard

Jazzman_Marburg 9. Mai 2011 20:31

AW: Nochmal PNG...
 
Zitat:

Zitat von Luckie (Beitrag 1099833)
Bitte gebe deinem Thema einen aussagekräftigen Titel, damit man weiß, um was es geht.

Ähm scusi, richtig, der Titel wirklich nicht aussagekräftig, aber kann ich den denn noch ändern?
(Oder ist das jetzt schon zu spät?)

Danke & Gruß
Jazzman

Luckie 9. Mai 2011 20:37

AW: Nochmal PNG...
 
Ja kann man. Ersten Beitrag editieren und auf "Erweitert" klicken. Dann kannst du den Titel ändern.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz