unit Unit8;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
type
TForm8 = class(TForm)
Button1: TButton;
CheckBox1: TCheckBox;
ScrollBox1: TScrollBox;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
uses Clipbrd,jpeg;
procedure TForm8.Button1Click(Sender: TObject);
var
i:integer;
FIsBitmap:boolean;
begin
FIsBitmap:=false;
for i:=0 to clipboar