Bildgröße zur Laufzeit ändern

[blackfin]

Das ist bei einem Image32 ganz einfach :

Stell im ObjektInspector einfach den ScaleMode des TImage32 auf smOptimalScaled oder smStretch, je nachdem was du willst.
(smOptimalScaled skaliert das Bild in das TImage32 hinein, während die Proportionen beibehalten werden, smStretch skaliert das Bild in die gesamte verfügbare Fläche des TImage32, ohne die Proportionen beizubehalten)

smResize gibts auch noch, wenn du das Bild grösser machen willst, als es im Original ist. (das macht smOptimalScaled nicht)
Auch smResize skaliert proportional.

Dann brauchst du per Code einfach nur noch die Grösse des Timage32 zu verändern (und nicht des internen Bitmaps!)
Die Skalierung und das Neuzeichnen macht das TImage32 dann ganz automatisch, ohne irgendwelche Kopier- oder Repaint-Routinen aufrufen zu müssen.

Delphi-Quellcode:

// Erst im Objektinspektor den ScaleMode von imageWindow auf smOptimalScaled, smStretch oder smResize stellen!
// Und dann:
procedure TForm1.btnScaleClick(Sender: TObject);
begin
  imageWindow.Height := 100;
  imageWindow.Width := 100;
end;

[Root2k]

Danke erstmal für alle Antworten!

@mleyen: Deine Variante scheint nicht zu funktionieren (hat einfach keine sichtbaren Auswirkungen).

@blackfin: Ok, das funktioniert zumindest wenn ich das Bild mit dem Bitmap32-Editor an Anfang direkt einfügt.
Wenn ich jetzt allerdings das Bild erst später einfügen will (weil das z.B. der Anwender machen können soll), dann haben diese Einstellungen keine Auswirkungen. D.h. ich kann das Bild so nicht skalieren.

Besteht sonst keine Möglichkeit "nur" das Bild zu skalieren und das TImage32-Objekt (mehr oder weniger) zu belassen wie es ist?

[blackfin]

Zitat:

Besteht sonst keine Möglichkeit "nur" das Bild zu skalieren und das TImage32-Objekt (mehr oder weniger) zu belassen wie es ist?

Doch klar, du kannst einfach das Bitmap skaliert in das gleiche Bitmap malen.
Allerdings stehen dann beim Verkleinern die überflüssigen Bereiche noch da, was sicher unerwünscht ist.

"Sauber" kannst du das z.B. über ein temporäres Bitmap machen:

Delphi-Quellcode:

uses
...GR32, GR32_Image...


procedure TForm1.btnScaleClick(Sender: TObject);
var
  FRect : TRect ;
  FBitmap: TBitmap32 ;
begin
  FRect.Left := 0 ;
  FRect.Top := 0 ;
  FRect.Right := 100 ;
  FRect.Bottom := 100 ;

  FBitmap := TBitmap32.Create();
  FBitmap.Width := FRect.Right;
  FBitmap.Height := FRect.Bottom;

  imageWindow.Bitmap.DrawTo(FBitmap,FRect);
  imagewindow.Bitmap.Assign(FBitmap);

  FreeAndNil(FBitmap) ;
end;

Dabei ist das Bild beim Skalieren aber noch recht hässlich und hat Aliasing-Stufen.
Deswegen kannst du einen Kernel-Resampler von Graphics32 verwenden, der das Bild beim Skalieren auch "schön" aussehen lässt.

Hier das ganze nochmal mit einem Resampler und Lanczos-Kernel.
Es gibt mehrere Kernels in der GR32, wie Gaussian, Hann, Cubic etc.
Der Lanczos-Algorithmus erzeugt aber meiner Meinung nach meistens die schönsten skalierten Bilder. Je nach Anwendungsfall und Geschmack natürlich

Delphi-Quellcode:

uses
...GR32, GR32_Image, GR32_Resamplers...

procedure TForm1.btnScaleClick(Sender: TObject);
var
  FRect : TRect ;
  FBitmap: TBitmap32 ;
  FSampler: TKernelResampler ;
begin
  FRect.Left := 0 ;
  FRect.Top := 0 ;
  FRect.Right := 100 ;
  FRect.Bottom := 100 ;

  FSampler:= TKernelResampler.Create() ;
  FSampler.Kernel := TLanczosKernel.Create;

  FBitmap := TBitmap32.Create();
  FBitmap.Width := FRect.Right;
  FBitmap.Height := FRect.Bottom;

  imageWindow.Bitmap.Resampler := FSampler;
  imageWindow.Bitmap.DrawTo(FBitmap,FRect);
  imagewindow.Bitmap.Assign(FBitmap);

  FreeAndNil(FBitmap) ;
  FreeAndNil(FSampler) ;
end;

Allerdings ist das ja relativ grosser Overhead..welchen Grund gibt es, dass du das TImage32 nicht in der Grösse verändern willst?

[Root2k]

Naja, wenn ich es mir recht überlege gibt es eigentlich keinen Grund das TImage32-Objekt in der Größe festzulegen.

Jetzt hats grad "klick" gemacht... jetzt weiß ich wie ich meine Ideen umsetzen kann.

Vielen Dank!!

Werde es jetzt einfach so machen dass sich der (Zeichen-)Bereich meines Programmes an das jeweilige Bild anpasst (Größe).
Nur wenn das Bild zu groß ist um korrekt dargestellt zu werden mache ich eine Neuskalierung.

Thx again