|
From: Peter T. <pe...@us...> - 2003-08-23 23:18:34
|
Update of /cvsroot/jvcl/dev/JVCL3/examples/JvDomainUpDown
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvDomainUpDown
Added Files:
Project2.dpr Project2.res Unit1.dfm Unit1.pas
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter
--- NEW FILE: Project2.dpr ---
program Project2;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
--- NEW FILE: Project2.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: Unit1.dfm ---
object Form1: TForm1
Left = 252
Top = 133
Width = 870
Height = 640
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 678
Top = 444
Width = 31
Height = 13
Caption = 'Label1'
end
object JvPanel1: TJvPanel
Left = 38
Top = 40
Width = 221
Height = 111
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'JvPanel1'
TabOrder = 0
Transparent = True
MultiLine = False
end
object JvTreeView1: TJvTreeView
Left = 518
Top = 52
Width = 119
Height = 213
Indent = 19
MultiSelect = True
MultiSelectStyle = [msControlSelect, msShiftSelect]
TabOrder = 1
Items.Data = {
060000001A0000000000000000000000FFFFFFFFFFFFFFFF0000000006000000
01311A0000000000000000000000FFFFFFFFFFFFFFFF00000000000000000161
1A0000000000000000000000FFFFFFFFFFFFFFFF000000000000000001621A00
00000000000000000000FFFFFFFFFFFFFFFF000000000000000001631A000000
0000000000000000FFFFFFFFFFFFFFFF000000000000000001641A0000000000
000000000000FFFFFFFFFFFFFFFF000000000000000001651A00000000000000
00000000FFFFFFFFFFFFFFFF000000000000000001661A000000000000000000
0000FFFFFFFFFFFFFFFF000000000000000001321A0000000000000000000000
FFFFFFFFFFFFFFFF000000000000000001331A0000000000000000000000FFFF
FFFFFFFFFFFF000000000000000001341A0000000000000000000000FFFFFFFF
FFFFFFFF000000000000000001351A0000000000000000000000FFFFFFFFFFFF
FFFF00000000000000000136}
end
object JvPageListTreeView1: TJvPageListTreeView
Left = 96
Top = 224
Width = 273
Height = 313
AutoExpand = False
ShowButtons = True
ShowLines = True
ReadOnly = False
PageDefault = 0
Indent = 19
TabOrder = 2
Items.Links = {00000000}
end
object Edit1: TEdit
Left = 518
Top = 443
Width = 129
Height = 21
TabOrder = 3
Text = 'Peter'
OnChange = Edit1Change
end
object JvDomainUpDown1: TJvDomainUpDown
Left = 647
Top = 443
Width = 15
Height = 21
Associate = Edit1
Items.Strings = (
'Peter'
'Bella'
'Simon'
'Elias'
'Maja'
'Higgins'
'Felix')
Position = 0
Text = 'Peter'
TabOrder = 4
Wrap = True
end
end
--- NEW FILE: Unit1.pas ---
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, JvPanel, ExtCtrls, ComCtrls, StdCtrls, Mask,
JvToolEdit, JvComCtrls, JvPageListTreeView, JvUpDown;
type
TForm1 = class(TForm)
JvPanel1: TJvPanel;
JvTreeView1: TJvTreeView;
JvPageListTreeView1: TJvPageListTreeView;
Edit1: TEdit;
JvDomainUpDown1: TJvDomainUpDown;
Label1: TLabel;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
Label1.Caption := Format('%d',[JvDomainUpDown1.Position]);
end;
end.
|