[JVCL-Checkins] CVS: dev/JVCL3/examples/JvClipboardViewer JvClipboardViewerMainFormU.dfm,NONE,1.1 JvClipboardViewerMainFormU.pas,NONE,1.1 JvClipboardViewerProj.dof,NONE,1.1 JvClipboardViewerProj.dpr,NONE,1.1 JvClipboardViewerProj.res,NONE,1.1

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

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

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

--- NEW FILE: JvClipboardViewerMainFormU.dfm ---
object JvClipboardViewerMainForm: TJvClipboardViewerMainForm
  Left = 493
  Top = 225
  BorderStyle = bsDialog
  Caption = 'a clipboard viewer with JvClipboardViewer'
  ClientHeight = 453
  ClientWidth = 373
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 147
    Top = 12
    Width = 78
    Height = 13
    Caption = 'Clipboard as text'
  end
  object Image1: TImage
    Left = 10
    Top = 148
    Width = 355
    Height = 295
    Stretch = True
  end
  object Label2: TLabel
    Left = 43
    Top = 128
    Width = 287
    Height = 13
    Caption = 'Clipboard as image (Try the print screen/Alt+print screen key)'
  end
  object Memo1: TMemo
    Left = 10
    Top = 32
    Width = 355
    Height = 89
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object JvClipboardViewer1: TJvClipboardViewer
    OnImage = JvClipboardViewer1Image
    OnText = JvClipboardViewer1Text
    Left = 66
    Top = 40
  end
end

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

interface

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

type
  TJvClipboardViewerMainForm = class(TForm)
    JvClipboardViewer1: TJvClipboardViewer;
    Label1: TLabel;
    Memo1: TMemo;
    Image1: TImage;
    Label2: TLabel;
    procedure JvClipboardViewer1Image(Sender: TObject; Image: TBitmap);
    procedure JvClipboardViewer1Text(Sender: TObject; AText: String);
  end;

var
  JvClipboardViewerMainForm: TJvClipboardViewerMainForm;

implementation

{$R *.DFM}

procedure TJvClipboardViewerMainForm.JvClipboardViewer1Image(Sender: TObject; Image: TBitmap);
begin
   self.Image1.Picture.Bitmap.Assign(Image);
end;

procedure TJvClipboardViewerMainForm.JvClipboardViewer1Text(Sender: TObject; AText: String);
begin
   self.Memo1.Lines.text:=Text;
end;

end.

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

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

uses
  Forms,
  JvClipboardViewerMainFormU in 'JvClipboardViewerMainFormU.pas' {JvClipboardViewerMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TJvClipboardViewerMainForm, JvClipboardViewerMainForm);
  Application.CreateForm(TJvClipboardViewerMainForm, JvClipboardViewerMainForm);
  Application.Run;
end.

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