x Bilder einheitlich skaliert auf drittes Bild zeichen

[QStorm]

Ich habe mal einen sehr einfachen Beispielcode implementiert. Bitte beachtet die Dateipfade anzupassen bevor ihr ihn ausführt.

[Bummi]

Um das ganze in guter Qualität hinzubekommen könntest Du auf GDI+ zurückgreifen,da Du aber nichts externes wolltest und TImage vermeiden willst, hätte ich folgendes anzubieten.

Delphi-Quellcode:

unit Demop;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  ENotImplemeted=Class(Exception);

  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

uses Math, pngImage, GifImg,jpeg;

Procedure SetCanvasZoomAndRotation(ACanvas: TCanvas; Zoom: Double; Angle: Double; CenterpointX, CenterpointY: Double);
var
  form: tagXFORM;
  Winkel: Double;

begin
  Winkel := DegToRad(Angle);
  SetGraphicsMode(ACanvas.Handle, GM_ADVANCED);
  SetMapMode(ACanvas.Handle, MM_ANISOTROPIC);
  form.eM11 := Zoom * cos(Winkel);
  form.eM12 := Zoom * Sin(Winkel);
  form.eM21 := Zoom * (-Sin(Winkel));
  form.eM22 := Zoom * cos(Winkel);
  form.eDx := CenterpointX;
  form.eDy := CenterpointY;
  SetWorldTransform(ACanvas.Handle, form);
end;

Procedure LoadAndPaint(FileName: String; C: TCanvas; x, y, BH: Integer;BitMapTransparent:Boolean=false);
var
  G: TGraphic;
  SC: Integer;
begin
  if UpperCase(ExtractFileExt(FileName)) = '.PNG' then
    G := TPngImage.Create
  else if UpperCase(ExtractFileExt(FileName)) = '.BMP' then
    begin
      G := TBitMap.Create;
      if BitMapTransparent then TBitMap(G).Transparent := true;
    end
  else if UpperCase(ExtractFileExt(FileName)) = '.GIF' then
    G := TGifImage.Create
  else if (UpperCase(ExtractFileExt(FileName)) = '.JPG') or (UpperCase(ExtractFileExt(FileName)) = '.JPEG') then
    G := TJpegImage.Create
  else raise ENotImplemeted.Create('Nicht berücksichtigtes Dateiformat');

  try
    G.LoadFromFile(FileName);
    SC := G.Width;
    if G.Height > G.Width then
      SC := G.Height;
    SetCanvasZoomAndRotation(C, BH / SC, 0, x, y);
    C.Draw(0, 0, G);
    SetCanvasZoomAndRotation(C , 1, 0, 0,0);
  finally
    G.Free;
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
Const
  C_Raster = 40;
var
  x, y: Integer;
  Path: String;
begin
  Path := IncludeTrailingBackSlash(ExtractFilePath(Paramstr(0)));
  x := 0;
  y := 0;
  LoadAndPaint(Path + '01.png', Canvas, x, y, C_Raster);
  Inc(x, C_Raster);
  LoadAndPaint(Path + '02.png', Canvas, x, y, C_Raster);
  Inc(x, C_Raster);
  LoadAndPaint(Path + '01.bmp', Canvas, x, y, C_Raster);
  Inc(y, C_Raster);
  Inc(x, C_Raster);
  LoadAndPaint(Path + '01.gif', Canvas, x, y, C_Raster);
  Inc(y, C_Raster);
  Inc(x, C_Raster);
  LoadAndPaint(Path + 'bbok.bmp', Canvas, x, y, C_Raster,true);

end;

end.

[QStorm]

Zitat von Bummi:

Um das ganze in guter Qualität hinzubekommen könntest Du auf GDI+ zurückgreifen,da Du aber nichts externes wolltest und TImage vermeiden willst, hätte ich folgendes anzubieten.

Vielen Dank für die Antworten.

@Bummi: Ich habe dein Beispiel ausprobiert. Es funktioniert wunderbar, mit einer Einschränkung: Wenn man die PNGs rotiert (z.B.: um 25°) dann wird die Transparenzfarbe auf das Canvas gezeichnet (die Transparenz geht verloren). Hast du eine Idee woran das liegen könnte?

/QStorm

[Bummi]

Darauf hatte ich gar nicht geachtet, da von Rotation ursprünglich keine Rede war.
Mit einem Umweg über ein Bitmap geht es:

Delphi-Quellcode:

Procedure LoadAndPaint(FileName: String; C: TCanvas; x, y, BH: Integer;BitMapTransparent:Boolean=false);
var
  G,G2: TGraphic;
  SC: Integer;
begin
  if UpperCase(ExtractFileExt(FileName)) = '.PNG' then
  begin
    G := TPngImage.Create;
  end
  else if UpperCase(ExtractFileExt(FileName)) = '.BMP' then
    begin
      G := TBitMap.Create;
      if BitMapTransparent then TBitMap(G).Transparent := true;
    end
  else if UpperCase(ExtractFileExt(FileName)) = '.GIF' then
    G := TGifImage.Create
  else if (UpperCase(ExtractFileExt(FileName)) = '.JPG') or (UpperCase(ExtractFileExt(FileName)) = '.JPEG') then
    G := TJpegImage.Create
  else raise ENotImplemeted.Create('Nicht berücksichtigtes Dateiformat');

  G2 := TBitmap.Create;
  try
    G.LoadFromFile(FileName);
    G2.Assign(G);
    G2.Transparent := BitMapTransparent;
    SC := G.Width;
    if G.Height > G.Width then
      SC := G.Height;
    SetCanvasZoomAndRotation(C, BH / SC, 0, x, y);
    C.Draw(0, 0, G2);
    SetCanvasZoomAndRotation(C , 1, 0, 0,0);
  finally
    G.Free;
    G2.Free;
  end;
end;

[QStorm]

Zitat von Bummi:

Darauf hatte ich gar nicht geachtet, da von Rotation ursprünglich keine Rede war.
Mit einem Umweg über ein Bitmap geht es:

Die Rotation ist in den meisten Fällen auch nicht nötig, daher hatte ich sie nicht erwähnt. Mit dieser Lösung funktioniert es. Ich habe jetzt nur noch ein Problem:

Das Ergebnis der "Bilderzusammenstellung" soll ein TBitmap sein (oder ein anderer Untertyp von TGraphic). Das TBitmap muss ich in einigen Fällen einen TPicture zuweisen (pic.Bitmap.Assign(bit)), um es in bestimmten Komponenten (z.B.: cxGrid) nutzen zu können. Ich habe mal dein Beispiel dahingehend angepasst. Leider habe ich dann wieder Probleme mit der Transparenz. Dazu kommt, dass sich die Transparenz bei verschiedenen Komponenten (TPaintBox, TImage, TForm) unterschiedlich verhält.

Vermutlich liegt es an irgendeiner Einstellung. Leider finde ich sie nicht.

Noch eine allgemeine Frage:
Welche externe Bildverarbeitungs-Bibliothek könnt ihr empfehlen? Wenn möglich eine kommerzielle. Ich habe hier schon von GDI+ gehört. Graphics32 und ImageEn habe ich mal kurz überflogen. Leider hat Graphics32 keine geeignete Lizenz.
Wichtig ist, dass die Bibliothek ohne Probleme in kommerziellen Produkten einsetzbar/integrierbar ist.

Vielen Dank nochmal!

/QStorm

[Bummi]

Ja, hier kommen wir jetzt an den Punkt wo man mit reinen GDI-Routinen Probleme bekommt.
Ich meine ich hatte in meiner ersten Antwort auf GDI+ hingewiesen, hier entfallen alle Basteleien ...
Ich verwende noch die anscheinend nicht erhältliche Api von http://www.progdigy.com/.
Eine freie Implementierung, mit der ich noch keine Erfahrung habe gibt es unter http://www.bilsen.com/gdiplus/index.shtml, hier sind auch weitere Downloadadressen angegeben.