Auf Canvas zeichnen, wenn PNG

[Namenloser]

Du musst das PNG erst auf ein Bitmap kopieren, zum Speichern umgekehrt:

Delphi-Quellcode:

var
  Bmp: TBitmap;
  Png: TPNGObject;
begin
  Bmp := nil;
  Png := nil;
  try
    Bmp := TBitmap.Create;
    Bmp.Assign(myImage.Picture.Graphic);
    Bmp.Canvas.…(…); 

    Png := TPNGObject.Create;
    Png.Assign(Bmp);
    Png.SaveToFile(…);   
  finally
    Bmp.Free;
    Png.Free;
  end;
end;

[Jazzman_Marburg]

Zitat von NamenLozer:

Du musst das PNG erst auf ein Bitmap kopieren, zum Speichern umgekehrt:

Delphi-Quellcode:

var
  Bmp: TBitmap;
  Png: TPNGObject;
begin
  Bmp := nil;
  Png := nil;
  try
    Bmp := TBitmap.Create;
    Bmp.Assign(myImage.Picture.Graphic);
    Bmp.Canvas.…(…); 

    Png := TPNGImage.Create;
    Png.Assign(Bmp);
    Png.SaveToFile(…);   
  finally
    Bmp.Free;
    Png.Free;
  end;
end;

Super - vielen Dank!

Jazzman

[Thom]

Zitat von NamenLozer:

Du musst das PNG erst auf ein Bitmap kopieren, zum Speichern umgekehrt...

Das ist nicht korrekt.
Folgendes Beispiel funktioniert ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('xxx.png');
  with TPNGImage(Image1.Picture.Graphic) do
  begin
    Canvas.Brush.Color:=clRed;
    Canvas.Rectangle(10,10,50,50);
  end;
  Image1.Refresh;
end;

Wer's nicht glaubt: Ich kann die Demo gern anhängen...
Welche PNGImage-Version verwendest Du?

[EWeiss]

Zitat von Thom:

Zitat von NamenLozer:

Du musst das PNG erst auf ein Bitmap kopieren, zum Speichern umgekehrt...

Das ist nicht korrekt.
Folgendes Beispiel funktioniert ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('xxx.png');
  with TPNGImage(Image1.Picture.Graphic) do
  begin
    Canvas.Brush.Color:=clRed;
    Canvas.Rectangle(10,10,50,50);
  end;
  Image1.Refresh;
end;

Wer's nicht glaubt: Ich kann die Demo gern anhängen...
Welche PNGImage-Version verwendest Du?

Vor allem sollte man bedenken das bei den konvertieren der Alpha Channel verloren geht.
Oder?

gruss

[Thom]

Genau - das kommt auch noch als "Nebeneffekt" hinzu!

[EWeiss]

Zitat von Thom:

Genau - das kommt auch noch als "Nebeneffekt" hinzu!

Und dann macht es keinen Sinn mehr ein PNG einzuladen und darauf zu zeichnen.
Wenn es erst konvertiert werden muss.

gruss

[Namenloser]

Zitat von Thom:

Zitat von NamenLozer:

Du musst das PNG erst auf ein Bitmap kopieren, zum Speichern umgekehrt...

Das ist nicht korrekt.
Folgendes Beispiel funktioniert ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('xxx.png');
  with TPNGImage(Image1.Picture.Graphic) do
  begin
    Canvas.Brush.Color:=clRed;
    Canvas.Rectangle(10,10,50,50);
  end;
  Image1.Refresh;
end;

Wer's nicht glaubt: Ich kann die Demo gern anhängen...
Welche PNGImage-Version verwendest Du?

Hmm, vielleicht funktioniert das unter XE, früher (bei der OpenSource-Version) war TPNGObject.Canvas AFAIR Read-Only.
Inwiefern beim Kopieren der Alpha-Channel erhalten bleibt, weiß ich nicht sicher, aber prinzipiell hätte ein 32Bit-Bitmap Platz dafür.

Ich nutze für die Bearbeitung von PNGs aber eh immer Graphics32 mit der GR32_PNG-Unit...

[EWeiss]

Zitat:

Inwiefern beim Kopieren der Alpha-Channel erhalten bleibt, weiß ich nicht sicher, aber prinzipiell hätte ein 32Bit-Bitmap Platz dafür.

Starte mal ein Paint Programm ala PhotoShop
Konvertiere ein PNG nach Bitmap und siehe was dann vom alpha Channel noch übrigbleibt.

Ein Weißer Hintergrund mehr nicht... die Transparenz wird komplett entfernt.

gruss

[Namenloser]

Zitat von EWeiss:

Zitat:

Inwiefern beim Kopieren der Alpha-Channel erhalten bleibt, weiß ich nicht sicher, aber prinzipiell hätte ein 32Bit-Bitmap Platz dafür.

Starte mal ein Paint Programm ala PhotoShop
Konvertiere ein PNG nach Bitmap und siehe was dann vom alpha Channel noch übrigbleibt.

Ein Weißer Hintergrund mehr nicht... die Transparenz wird komplett entfernt.

Und was hat Photoshop mit Delphi zu tun?
Ich habe schon mit ganz normalen Bitmaps mit Alphachannel gearbeitet... war überhaupt kein Problem. Du darfst nur nicht die veralteten GDI-Routinen zum Zeichnen nutzen.

[EWeiss]

Zitat von NamenLozer:

Zitat von EWeiss:

Zitat:

Inwiefern beim Kopieren der Alpha-Channel erhalten bleibt, weiß ich nicht sicher, aber prinzipiell hätte ein 32Bit-Bitmap Platz dafür.

Starte mal ein Paint Programm ala PhotoShop
Konvertiere ein PNG nach Bitmap und siehe was dann vom alpha Channel noch übrigbleibt.

Ein Weißer Hintergrund mehr nicht... die Transparenz wird komplett entfernt.

Und was hat Photoshop mit Delphi zu tun?
Ich habe schon mit ganz normalen Bitmaps mit Alphachannel gearbeitet... war überhaupt kein Problem. Du darfst nur nicht die veralteten GDI-Routinen zum Zeichnen nutzen.

Kein Problem solange du es nicht von einem zum anderen konvertierst.
Teste es doch ganz einfach

gruss