Variablen Bildausschnitt erzeugen

[jessy]

(Delphi-Anfänger: eine vielleicht etwas dusselige Anfrage)

Mit meinem Programm schneide ich aus einem Bitmap in Hochformat (angezeigt in image1) ein Rechteck in Breitformat aus (angezeigt in image2); das klappt so weit.

Nun möchte ich aber das auszuschneidende Rechteck von oben nach unten wandern lassen können; ich erhöhe dazu den Wert "oben"; in image 2 sollte nun der neue, etwas tiefer liegende Ausschnitt zu sehen sein.

Das klappt aber nicht, sondern das Bild in image2 wird nur immer länger; es wird also nur ein Streifen unten hinzugefügt, ohne dass oben ein Streifen gelöscht wird..

Was muss ich ändern, damit in miage2 nur ein Rechteck mit der definierten Größe erscheint?

Gruß

Jeppes

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  oben : Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   oben := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  pict1:string;
  Bitmap: TBitmap;
  MyRect: TRect;
  b,h, h2,w: Integer;
begin
   pict1 := 'pic1.bmp';
   Image1.picture.LoadFromFile(pict1);
   Bitmap := TBitmap.Create;
   Bitmap.LoadFromFile(pict1);
   h := Bitmap.Height;
   w := Bitmap.Width;
   h2 := 10 + oben;
   MyRect := Rect(0,h2,w,h2 + Round(h/2));
   Image2.Canvas.CopyRect(MyRect,Bitmap.Canvas,MyRect);
   Bitmap.Free;
   oben := oben + 10;
end;

end.

[edit=sakura] BBCodes aktiviert. Mfg, sakura[/edit]