(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]