Capture Layar - Lazarus

By Administrator 21 Jul 2020, 13:04:56 WIB Tutorial
Capture Layar - Lazarus

Keterangan Gambar : Lazarus Free Pascal


procedure TForm1.Capture(Sender: TObject);
var
 
MyPNG: TPortableNetworkGraphic;
  FileName: string;
  nfile: string;
  R: TRect;
begin
  nfile := extractfilepath(application.ExeName);
  MyPNG := TPortableNetworkGraphic.Create;
  try
    R := Rect(0, 0, grid.Width, grid.Height);
    MyPNG.SetSize(grid.Width, grid.Height);
    MyPNG.Canvas.CopyRect(R, grid.Canvas, R);

    // Get the name of the file to be created from the user
    FileName := 'Screenshot_' + FormatDateTime('dddd-mm-dd-yyyy-hhnnss', Now());
    MyPNG.SaveToFile(Format(nfile + '%s.png', [FileName]));
  finally
    MyPNG.Free;
  end;
end;       




Write a Facebook Comment

Komentar dari Facebook

View all comments

Write a comment

Yuk Temukan Toko Terdekat dari tempat tinggal anda agar belanja lebih mudah. Klik / Cari Disini



Temukan juga kami di

Ikuti kami di facebook, twitter, Google+, Linkedin dan dapatkan informasi terbaru dari kami disana.

Jejak Pendapat

Bahasa Pemrograman Yang Paling Anda Sukai ..?
  Javascript
  Java
  VB.net
  PHP
  Pascal

Komentar Terakhir

  • Customer Service

    Komentar paling pedas Khamenei adalah Iran tidak pernah mengenal Israel. Negara ini juga secara ...

    View Article
  • Tommy Utama

    Para pengunjuk rasa membawa bendera-bendera Palestina dan foro-foto pemimpin tertinggi ...

    View Article
  • Customer Service

    Anda penyuka Transformer? Tentu hal yang paling menarik saat menonton film Transformer salah ...

    View Article

Video Terbaru

View All Video