Einzelnen Beitrag anzeigen

Aesir

Registriert seit: 3. Jun 2013
2 Beiträge
 
#3

AW: BMP's zerschneiden

  Alt 3. Jun 2013, 23:05
Um das befüllen der Buttons geht es nicht ich möchte es erstmal so hinbiegen dass überhaupt Bildteile
aus meinem Image ausgeschnitten bzw rauskopiert werden....eigentlich kann das doch nicht so schwer sein oder steh ich auf dem Schlauch? o.o
Delphi-Quellcode:
const
  Spalten = 4;
  Zeilen = 4;
  Kantenlaenge = 30;
var
  X, Y: integer;
  QuellRect: TRect;
begin
  for Y := 0 to Zeilen - 1 do //zeilen
    for X := 0 to Spalten - 1 do //spalten
      begin
        //neue Bitmap erzeugen
        Ziel := TBitmap.Create;
        Ziel.Width := Kantenlaenge;
        Ziel.Height := Kantenlaenge;
        //Koordinaten errechnen
        QuellRect := Rect(X * Kantenlaenge, Y * Kantenlaenge, (X + 1) * Kantenlaenge, (Y + 1) * Kantenlaenge);
        //Ausschnitt aus Quellbild kopieren
        Ziel.Canvas.CopyRect(Rect(0, 0, Kantenlaenge, Kantenlaenge), image1.Canvas, QuellRect);
        //hier sollte die bmp dann vorliegen...tut sie aber aus irgendwelche Grunden nicht...
end;
So schaut es bisher aus
  Mit Zitat antworten Zitat