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

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

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

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

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

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

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

{$R *.RES}

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


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

--- NEW FILE: uFormMain.dfm ---
object Form1: TForm1
  Left = 393
  Top = 222
  Width = 502
  Height = 222
  Caption = 'JvGroupHeader and JvFooter demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object JvGroupHeader1: TJvGroupHeader
    Left = 8
    Top = 8
    Width = 225
    Height = 17
    Caption = 'JvGroupHeader1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object JvGroupHeader2: TJvGroupHeader
    Left = 8
    Top = 40
    Width = 225
    Height = 17
    Caption = 'JvGroupHeader2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    BevelOptions.Brush.Color = 11106843
    BevelOptions.Height = 3
    BevelOptions.Pen.Color = 14789952
    BevelOptions.Style = bsShape
  end
  object JvFooter1: TJvFooter
    Left = 0
    Top = 160
    Width = 494
    Height = 37
    Align = alBottom
    object JvFooterBtn1: TJvFooterBtn
      Left = 5
      Top = 7
      Width = 74
      Height = 23
      Anchors = [akLeft, akBottom]
      Caption = 'Help'
      TabOrder = 0
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'MS Sans Serif'
      HotTrackFont.Style = []
      Alignment = taLeftJustify
      ButtonIndex = 0
      SpaceInterval = 6
    end
    object JvFooterBtn2: TJvFooterBtn
      Left = 334
      Top = 7
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = 'OK'
      Default = True
      TabOrder = 1
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'MS Sans Serif'
      HotTrackFont.Style = []
      ButtonIndex = 1
      SpaceInterval = 6
    end
    object JvFooterBtn3: TJvFooterBtn
      Left = 415
      Top = 7
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 2
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'MS Sans Serif'
      HotTrackFont.Style = []
      ButtonIndex = 2
      SpaceInterval = 6
    end
  end
  object JvFooter2: TJvFooter
    Left = 0
    Top = 123
    Width = 494
    Height = 37
    Align = alBottom
    object JvFooterBtn4: TJvFooterBtn
      Left = 260
      Top = 7
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = 'Previous'
      TabOrder = 0
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'MS Sans Serif'
      HotTrackFont.Style = []
      ButtonIndex = 0
      SpaceInterval = 0
    end
    object JvFooterBtn5: TJvFooterBtn
      Left = 334
      Top = 7
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = 'Next'
      Default = True
      TabOrder = 1
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'MS Sans Serif'
      HotTrackFont.Style = []
      ButtonIndex = 1
      SpaceInterval = 6
    end
    object JvFooterBtn6: TJvFooterBtn
      Left = 415
      Top = 7
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = 'Close'
      TabOrder = 2
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'MS Sans Serif'
      HotTrackFont.Style = []
      ButtonIndex = 2
      SpaceInterval = 6
    end
  end
  object JvFooter3: TJvFooter
    Left = 0
    Top = 86
    Width = 494
    Height = 37
    Align = alBottom
    object JvFooterBtn7: TJvFooterBtn
      Left = 210
      Top = 7
      Width = 74
      Height = 23
      Anchors = [akBottom]
      Caption = '&Close'
      TabOrder = 0
      NumGlyphs = 2
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'MS Sans Serif'
      HotTrackFont.Style = []
      Alignment = taCenter
      ButtonIndex = 0
      SpaceInterval = 0
    end
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, JvFooter, JvGroupHeader, JvComponent, JvBitBtn, Buttons;

type
  TForm1 = class(TForm)
    JvFooter1: TJvFooter;
    JvFooterBtn1: TJvFooterBtn;
    JvFooterBtn2: TJvFooterBtn;
    JvFooterBtn3: TJvFooterBtn;
    JvFooter2: TJvFooter;
    JvFooter3: TJvFooter;
    JvFooterBtn4: TJvFooterBtn;
    JvFooterBtn5: TJvFooterBtn;
    JvFooterBtn6: TJvFooterBtn;
    JvFooterBtn7: TJvFooterBtn;
    JvGroupHeader1: TJvGroupHeader;
    JvGroupHeader2: TJvGroupHeader;
  private
    { Private declarations }
  public
    { Public declarations } 
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.