[JVCL-Checkins] CVS: dev/JVCL3/examples/JvScreenCapture JvScreenCaptureMainFormU.dfm,NONE,1.1 JvScreenCaptureMainFormU.pas,NONE,1.1 JvScreenCaptureProj.dof,NONE,1.1 JvScreenCaptureProj.dpr,NONE,1.1 JvScreenCaptureProj.res,NONE,1.1

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvScreenCapture
In directory sc8-pr-cvs1:/tmp/cvs-serv5637/JVCL3/examples/JvScreenCapture

Added Files:
	JvScreenCaptureMainFormU.dfm JvScreenCaptureMainFormU.pas 
	JvScreenCaptureProj.dof JvScreenCaptureProj.dpr 
	JvScreenCaptureProj.res 
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter

--- NEW FILE: JvScreenCaptureMainFormU.dfm ---
object JvScreenCaptureMainForm: TJvScreenCaptureMainForm
  Left = 374
  Top = 78
  Width = 584
  Height = 499
  Caption = 'screen capture using JvFunctions unit'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 16
    Top = 66
    Width = 537
    Height = 391
    Stretch = True
  end
  object Button1: TButton
    Left = 84
    Top = 26
    Width = 75
    Height = 25
    Caption = 'Capture'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 168
    Top = 26
    Width = 139
    Height = 25
    Caption = 'Place on clipboard'
    TabOrder = 1
    OnClick = Button2Click
  end
end

--- NEW FILE: JvScreenCaptureMainFormU.pas ---
unit JvScreenCaptureMainFormU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, clipbrd;

type
  TJvScreenCaptureMainForm = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  JvScreenCaptureMainForm: TJvScreenCaptureMainForm;

implementation

{$R *.DFM}

uses
  JvFunctions;

procedure TJvScreenCaptureMainForm.Button1Click(Sender: TObject);
var
  b : TBitmap;
begin
   b := CaptureScreen;
   self.image1.picture.bitmap.assign(b);
   b.Free;
end;

procedure TJvScreenCaptureMainForm.Button2Click(Sender: TObject);
var
  MyFormat : Word;
  AData: THandle;
  APalette:HPalette;
begin
   self.image1.picture.bitmap.SaveToClipboardFormat(MyFormat,AData,APalette);
   ClipBoard.SetAsHandle(MyFormat,AData);
end;

end.

--- NEW FILE: JvScreenCaptureProj.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common

--- NEW FILE: JvScreenCaptureProj.dpr ---
program JvScreenCaptureProj;

uses
  Forms,
  JvScreenCaptureMainFormU in 'JvScreenCaptureMainFormU.pas' {JvScreenCaptureMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TJvScreenCaptureMainForm, JvScreenCaptureMainForm);
  Application.CreateForm(TJvScreenCaptureMainForm, JvScreenCaptureMainForm);
  Application.Run;
end.

--- NEW FILE: JvScreenCaptureProj.res ---
(This appears to be a binary file; contents omitted.)