Variablen Bildausschnitt erzeugen

[freak4fun]

Huhu,

so wird ein bestimmter Abschnitt nach oben gescrollt.

Delphi-Quellcode:

 
procedure TForm1.Button2Click(Sender: TObject);
var
  pict1:string;
  MyRect, ZielRect: TRect;
  b,h, h2,w: Integer;
begin
   form1.Top := 0;
   form1.Left := 0;
   form1.Height := 768;
   form1.Width := 1024;
   pict1 := '1.bmp';
   Image1.picture.LoadFromFile(pict1);
   Bitmap := TBitmap.Create;
   try
     // Bild wird in Bitmap geladen
     Bitmap.LoadFromFile(pict1);
     // Höhe und Breite wird ermittelt
     h := Bitmap.Height;
     w := Bitmap.Width;
     // h2 wird um 10 erhöht
     h2 := 10 + oben;
     // MyRect wird erstellt
     MyRect := Rect(0, 0, w, h2 + Round(h/2));
     // SecondRect wird erstellt
     ZielRect := Rect(0, 0 - oben, w, h2 + Round(h/2) - oben);
     // Zeichenflächenmaße werden angepasst
     Image2.Height := h;
     Image2.Width := w;
     //
     Image2.Canvas.CopyRect(ZielRect,Bitmap.Canvas,MyRect);
     Image2.Refresh;
     oben := oben + 10;
   finally
     Bitmap.Free;
   end;
end;

Sry, aber bin müde sag dann mal bescheid ob es das ist was du willst.

MfG
freak