Transparentes PNG in TImage drehen...Wie?

[torud]

Hallo Wissende,

ich habe mir aus diversen Threads mal genau das "gebaut", was ich eigentlich bräuchte. Leider funzt das Ganze so gar nicht. Es liegt ein TImage auf einem Form, welches schon ein tranparentes PNG beinhaltet. Zu sehen ist ein Pfeil. Darunter befindet sich eine Trackbar. Wenn ich an dieser nun schiebe, soll sich die Graphik ensprechend drehen. Ich brauche es unbedingt mit png.

Was mache ich da falsch?
Das Projekt hängt im Anhang und der Code, so viel ist es ja nicht, ist hier:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, pngimage, ExtCtrls,Math, JvGradient, StdCtrls ;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Image2: TImage;
    lbl_position: TLabel;
    Image1: TImage;
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure DrawRotatedGraphic (aCanvas: TCanvas;  aGraphic: TGraphic;
                              aAngle: Double;  aOffsetX, aOffsetY: Integer);
var
  svMode: Integer;
  Mat, svMat: tagXFORM;
  si, co: Extended;
begin
  // aktuellen Zustand retten
  svMode := SetGraphicsMode(aCanvas.Handle, GM_ADVANCED);
  if (svMode = GM_ADVANCED) then
    GetWorldTransform(aCanvas.Handle, svMat);
  // Verschiebung in den Usprung
  FillChar (Mat, SizeOf(Mat), 0);
  Mat.em11 := 1.0;
  Mat.em22 := 1.0;
  Mat.eDx := -(aOffsetX + aGraphic.Width / 2);
  Mat.eDy := -(aOffsetY + aGraphic.Height / 2);
  SetWorldTransform(aCanvas.Handle, Mat);
  // Verdrehung
  SinCos (aAngle * Pi / 180, si, co);
  FillChar (Mat, SizeOf(Mat), 0);
  Mat.em11 := co;
  Mat.em12 := si;
  Mat.em21 := -si;
  Mat.em22 := co;
  ModifyWorldTransform(aCanvas.Handle, Mat, MWT_RIGHTMULTIPLY);
  // Zurückschieben
  FillChar (Mat, SizeOf(Mat), 0);
  Mat.em11 := 1.0;
  Mat.em22 := 1.0;
  Mat.eDx := (aOffsetX + aGraphic.Width / 2);
  Mat.eDy := (aOffsetY + aGraphic.Height / 2);
  ModifyWorldTransform(aCanvas.Handle, Mat, MWT_RIGHTMULTIPLY);
  // Bitmap zeichnen
  aCanvas.Draw(aOffsetX, aOffsetY, aGraphic);
  // alten Zustand wiederherstellen
  if (svMode = GM_ADVANCED) then
    SetWorldTransform(aCanvas.Handle, svMat)
  else
    SetGraphicsMode(aCanvas.Handle, svMode);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  lbl_position.Caption:=inttostr(TrackBar1.Position);
  DrawRotatedGraphic(Image2.Canvas,Image2.Picture.Graphic,TrackBar1.Position,0,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lbl_position.Caption:=inttostr(TrackBar1.Position);
end;

end.

[Mavarik]

hmm...

Cool, wußte garnicht das es sowas gibt...

Kann keinen Fehler in Deinem Source finden... Bist Du sicher, dass das auch mit einem Screen_Canvas geht?

Frank

[torud]

Ja ja es geht schon, aber eben nur, wenn ich mir die Source aus nem anderen TImage hole und dann auch nicht transparent. Aber ich bin mir fast sicher, dass es irgendwie geht...

[Mavarik]

Also bei mir funktioniert es nicht...

Außerdem kann ein BMP ja auch Transparent sein...

Frank

[torud]

So, nun habe ich das Projekt mal etwas modifiziert, damit man sehen, kann wie es eigentlich funktionieren sollte. Das linke Image im Projekt wird als Source genommen, gedreht und dem rechten Image zugewiesen.

So weit so gut.

Problem dabei ist, dass die Transparenz des png´s verloren geht. Weiss jemand, wie ich das händeln muss, damit das nicht passiert?

[DGL-luke]

Dann musst du eben von deinem PNG die alpha-maske rausholen, die RGB-Werte und die Alpha-Maske rotieren, und dann auf ein neues png zuweisen. (kannst dir die sache erleichtern, indem du die alpha-maske in ein graustufen-bitmap schriebst, das dann rotierst und dir dann die werte ins png zurückschreibst)

[Mavarik]

Soweit ich das sehe, hast Du ein BMP genommen und kein PNG? Oder?

Frank

[torud]

ich werde es mal checken und das Projekt notfalls angepasst hochladen. wird aber nicht vor mitternacht.

@lukas - danke für den tipp, aber sowas habe ich noch nicht gemacht...hast du vielleicht ein beispiel?

[MaBuSE]

Zitat von torud:

Was mache ich da falsch?

Ich habe Dein Projekt nicht ausprobiert, aber ich glaube, dass Du "nur" das TGraphic drehst (und zwar auf dem Canvas) und nicht das PNG an sich.

Im TGraphic sind die Alpha Informationen nicht verfügbar. Dazu musst Du das TPNGObject verwenden.

Gustavo Daud (der Ersteller der PngDelphi) hat das in einem Beispiel so gemacht:

Delphi-Quellcode:

{Smooth rotate a png object}
procedure SmoothRotate(var aPng: TPNGObject; Angle: Extended);

Damit kannst Du das PNG in dem TImage inkl. der Transparenz bzw Alpha Infos drehen.

Hier ist der Link: http://pngdelphi.sourceforge.net/met...view.php?ID=26

Ich hoffe, dass bringt Dich weiter...

[MaBuSE]

Zitat von MaBuSE:

Dazu musst Du das TPNGObject verwenden.

Hier steht wie Du z.B. das TPngObject ohne TImage verwendest:

http://pngdelphi.sourceforge.net/met...view.php?ID=15

Bzw. leicht abgewandelt:

Delphi-Quellcode:

procedure TForm1.DrawOverForm(filename: String; X, Y: Integer);
var
  PNG: TPNGObject;
begin
  PNG := TPNGObject.Create;
  try
    PNG.LoadFromFile(filename);
    PNG.Draw(Canvas, Rect(X, Y, X + PNG.Width, Y + PNG.Height));
  finally
    PNG.Free;
  end;
end;