Einzelnen Beitrag anzeigen

LingNeu

Registriert seit: 18. Dez 2006
164 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Einen bestimmten Bereich des Bildschirm speichern

  Alt 16. Jan 2007, 08:22
@muetze1, danke für deinen Hinweis.
@luckie
laut Beschreibung ist das die Quelle, oder ??? Ich blick da nicht mehr durch, weil lt. Hinweis copyrect(rechteck,canvas,source). Die Quelle müsste aber der erste Parameter sein.

Ich habe auf der Form einen Button1, den ich abfotografieren möchte. Irgendwas stimmt nicht. Das Bild wird um 180Grad versetzt abfotografiert - obwohl ich nichts getrunken habe
Da krieg ich doch den Vogel

button1.top := 20
button1.left := 10
button1.width := 75
button1.height := 25

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var BMP: TBitmap;
begin
  BMP := TBitmap.Create;
  try
    //BMP.Width := ClientWidth;
    //BMP.Height := ClientHeight;
    BMP.Width := 75;
    BMP.Height := 25;
    BMP.Canvas.CopyRect(Rect(0, 0, 75, 25), Canvas, Rect(0, 0, 75, 25));
    BMP.SaveToFile('C:\test.bmp');
  finally
    BMP.Free;
  end;
end;
  Mit Zitat antworten Zitat