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

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

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

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

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

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

uses
  Forms,
  fEdits in 'fEdits.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

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

--- NEW FILE: fEdits.dfm ---
object Form1: TForm1
  Left = 310
  Top = 275
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 144
  ClientWidth = 338
  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 JvFilenameBox1: TJvFilenameEdit
    Left = 18
    Top = 8
    Width = 307
    Height = 21
    ButtonFlat = False
    NumGlyphs = 1
    TabOrder = 0
  end
  object JvDirectoryBox1: TJvDirectoryEdit
    Left = 18
    Top = 30
    Width = 307
    Height = 21
    ButtonFlat = False
    NumGlyphs = 1
    TabOrder = 1
  end
  object JvButtonBox1: TJvComboEdit
    Left = 18
    Top = 74
    Width = 307
    Height = 21
    ButtonFlat = False
    GlyphKind = gkEllipsis
    NumGlyphs = 1
    TabOrder = 3
    OnButtonClick = JvButtonBox1ButtonClick
  end
  object JvDateEdit1: TJvDateEdit
    Left = 18
    Top = 53
    Width = 307
    Height = 21
    ButtonFlat = False
    NumGlyphs = 2
    TabOrder = 2
  end
  object JvCalcEdit1: TJvCalcEdit
    Left = 18
    Top = 96
    Width = 307
    Height = 21
    AutoSize = False
    NumGlyphs = 2
    TabOrder = 4
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, JvEdit, JvToolEdit, JvCurrEdit;

type
  TForm1 = class(TForm)
    JvFileNameBox1: TJvFilenameEdit;
    JvDirectoryBox1: TJvDirectoryEdit;
    JvButtonBox1: TJvComboEdit;
    JvDateEdit1: TJvDateEdit;
    JvCalcEdit1: TJvCalcEdit;
    procedure JvButtonBox1ButtonClick(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.JvButtonBox1ButtonClick(Sender: TObject);
begin
  ShowMessage('Button clicked');
end;

end.