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

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

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

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

--- NEW FILE: JvPanelDemo.dof ---
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=0
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=vclx30;VCL30;vcldb30;vcldbx30;inetdb30;inet30;VclSmp30;Qrpt30;teeui30;teedb30;tee30;dss30;IBEVNT30;Test;Eqsoft;EQPACK1_D3;EQPACK2_D3;Others_D3;Dss50;Vcl50;DragDropD5;Vcldb50;Vclx50;Inetdb50;Inet50;OTHERS_D5
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
[Language]
ActiveLang=
ProjectLang=$0000041D
RootDir=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1053
CodePage=1252
[Version Info Keys]
CompanyName=Peter Thörnqvist
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=Copyright © 2001 by Peter Thörnqvist; all rights reserved
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
$(DELPHI)\Projects\Bpl\dclusr50.bpl=Borland User Components

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

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

{$R *.RES}

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


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

--- NEW FILE: JvPanelDemoFrm.dfm ---
object Form1: TForm1
  Left = 234
  Top = 107
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clRed
  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 Animate1: TAnimate
    Left = 200
    Top = 128
    Width = 272
    Height = 60
    Active = True
    CommonAVI = aviCopyFile
    StopFrame = 26
  end
  object JvPanel1: TJvPanel
    Left = 464
    Top = 120
    Width = 185
    Height = 193
    Caption = 
      'JvPanel1 JvPanel1 JvPanel1 JvPanel1 JvPanel1 JvPanel1 JvPanel1 J' +
      'vPanel1 '
    TabOrder = 0
    Sizeable = True
    MultiLine = True
    object Label1: TLabel
      Left = 40
      Top = 128
      Width = 31
      Height = 13
      Caption = 'Label1'
      Transparent = True
    end
    object Edit1: TEdit
      Left = 24
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'Edit1'
    end
    object JvFilenameEdit1: TJvFilenameEdit
      Left = 24
      Top = 32
      Width = 121
      Height = 21
      ButtonFlat = False
      NumGlyphs = 1
      TabOrder = 1
      Text = 'JvFilenameEdit1'
    end
  end
  object CheckBox1: TCheckBox
    Left = 384
    Top = 360
    Width = 97
    Height = 17
    Caption = 'CheckBox1'
    TabOrder = 1
    OnClick = CheckBox1Click
  end
  object JvFormStorage1: TJvFormStorage
    StoredValues = <>
    Left = 416
    Top = 296
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, JvPanel, StdCtrls, ComCtrls, JvCurrEdit, Mask, JvToolEdit,
  JvComponent, JvPlacemnt;

type
  TForm1 = class(TForm)
    JvPanel1: TJvPanel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Animate1: TAnimate;
    JvFilenameEdit1: TJvFilenameEdit;
    Label1: TLabel;
    JvFormStorage1: TJvFormStorage;
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  JvPanel1.Transparent := CheckBox1.Checked;
  if JvPanel1.Transparent then
    Edit1.Top := 8
  else
    Edit1.Top := JvPanel1.Height - 35;
end;

end.