Screenshot aber wie?!

[Skrenkovic]

Hi Ihr Programmier lustigen

Ich habe in einem anderem Forum (bitte Verzeiht mir) einen Code gefunden der genau passt bis auf zwei Kleinigkeiten.
1) Wie kann ich den Code so umschreiben dass der mir auf "Form4" den Screenshot macht und
2) Wo ist der Fehler (in der Zeile wo die ganzen ################### sind ^^
Es kommt folgende Fehlermeldung: unit3.pas(76,40) Fatal: Syntax error, ")" expected but "," found

Code:

procedure TForm1.Button5Click(Sender: TObject);
 
var
  MyBitmap: TBitmap;
  MyBitmap2: TBitmap;
  MyDC: HDC;
  png: TPortableNetworkGraphic;
  R: TRect;
begin
  R.TopLeft := Form1.BoundsRect.TopLeft;
  R.BottomRight := Form1.BoundsRect.BottomRight;
  MyDC := GetDC(Self.Handle);
  MyBitmap := TBitmap.Create;
  MyBitmap2 := TBitmap.Create;
  MyBitmap2.Width := R.Right - R.Left;
  MyBitmap2.Height := R.Bottom - R.Top;
  png := TPortableNetworkGraphic.Create;
 
  try
    MyBitmap.LoadFromDevice(MyDC);
    MyBitmap.SaveToFile('FormsAppearance.bmp');
    //MyBitmap2.Canvas.CopyRect(ClientRect,MyBitmap.Canvas,ClientRect);
    ########################################MyBitmap2.Canvas.copyRect(Rect(0, 0, MyBitmap2.Width, MyBitmap2.Height),MyBitmap.Canvas, R);
    MyBitmap2.SaveToFile('FormsAppearance2.bmp');
    png.Assign(MyBitmap2);
    png.SaveToFile('shottest.png');
  finally
    ReleaseDC(Self.Handle, MyDC);
    FreeAndNil(MyBitmap);
    FreeAndNil(MyBitmap2);
    png.Free;
  end;
end;

die screenshots werden erstellt ... aber das png ist schwarz ...

[Luckie]

2. Guck dir mal die Zeile an. Fällt dir da was auf?

[Aviator]

Zitat von Luckie:

2. Guck dir mal die Zeile an. Fällt dir da was auf?

Ich gehe mal davon aus, dass er die davor geschrieben hat um deutlich zu machen, wo der Fehler ist. Wenn nicht, dann geb ich dir recht.

[Skrenkovic]

Zitat von Aviator:

Zitat von Luckie:

2. Guck dir mal die Zeile an. Fällt dir da was auf?

Ich gehe mal davon aus, dass er die davor geschrieben hat um deutlich zu machen, wo der Fehler ist. Wenn nicht, dann geb ich dir recht.

achso ... ja klar ##### sin nur zu zeigen wo Fehlermeldung kommt

[Luckie]

Das war mir klar. Aber er meckert doch wegen der Klammern. Mach mal die Augen auf.

[Skrenkovic]

Zitat von Luckie:

Das war mir klar. Aber er meckert doch wegen der Klammern. Mach mal die Augen auf.

Oo aber wie soll man die denn sonst setzten ... habe so ziemlich jede möglichkeit eben ausprobiert ohne erfolg


Edit:
also ich komm echt nicht drauf ich habe alles verucht ... bitte bitte seid so gut und schreibt mir mal die Lösung
ach ja und ich benutze Lazarus falls das wichtig ist

[Skrenkovic]

Zitat von Luckie:

2. Guck dir mal die Zeile an. Fällt dir da was auf?

wenn ich den Fehler finden würde dann hätte ich hier nicht gefragt

Ich kenn mich mit canvas nicht wirklich aus und ich weiss wirklich nicht wo der Fehler is