|
From: Peter T. <pe...@us...> - 2003-08-23 23:36:39
|
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.
|