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.)
|