|
From: Peter T. <pe...@us...> - 2003-08-24 01:04:51
|
Update of /cvsroot/jvcl/dev/JVCL3/examples/JvFileListBox
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvFileListBox
Added Files:
FileDirDemo.dof FileDirDemo.dpr FileDirDemo.res
FileListBoxMainFormU.dfm FileListBoxMainFormU.pas
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter
--- NEW FILE: FileDirDemo.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common
--- NEW FILE: FileDirDemo.dpr ---
program FileDirDemo;
uses
Forms,
FileListBoxMainFormU in 'FileListBoxMainFormU.pas' {FileListBoxMainForm};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TFileListBoxMainForm, FileListBoxMainForm);
Application.CreateForm(TFileListBoxMainForm, FileListBoxMainForm);
Application.Run;
end.
--- NEW FILE: FileDirDemo.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: FileListBoxMainFormU.dfm ---
object FileListBoxMainForm: TFileListBoxMainForm
Left = 282
Top = 64
Width = 604
Height = 484
Caption = 'various file components'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object JvLabel6: TJvLabel
Left = 24
Top = 16
Width = 450
Height = 32
Caption =
'Here you can see the combination of a JvDriveCombo (at the top)'#13 +
#10'a JvDirectoryListBox (at the left) and a JvFileListBox (at the ' +
'right)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clWindowText
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = []
end
object JvLabel8: TJvLabel
Left = 32
Top = 328
Width = 151
Height = 13
Caption = 'Here you can see a JvDriveList:'
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clWindowText
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = []
end
object Label1: TLabel
Left = 240
Top = 352
Width = 196
Height = 13
Caption = 'c:\Programme\Borlan...\JVCLMegaDemo'
end
object Label2: TLabel
Left = 216
Top = 328
Width = 201
Height = 13
Caption = 'This label shows always the selected path:'
end
object Label3: TLabel
Left = 216
Top = 400
Width = 162
Height = 13
Caption = 'This label shows always the mask:'
end
object JvDriveList1: TJvDriveList
Left = 40
Top = 344
Width = 121
Height = 97
Style = lbOwnerDrawFixed
ItemHeight = 37
Items.Strings = (
'DRIVE_C (C:)'
'DRIVE_D (D:)'
'DELPHI6DG (E:)')
ScrollWidth = 96
TabOrder = 0
DriveTypes = [dtFixed, dtRemote, dtCDROM]
ImageSize = isSmall
end
object JvCaptionPanel1: TJvCaptionPanel
Left = 24
Top = 56
Width = 553
Height = 257
Buttons = []
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWhite
CaptionFont.Height = -13
CaptionFont.Name = 'MS Shell Dlg 2'
CaptionFont.Style = [fsBold]
OutlookLook = False
TabOrder = 1
object JvFileListBox1: TJvFileListBox
Left = 217
Top = 21
Width = 329
Height = 229
Align = alRight
FileEdit = Edit1
ItemHeight = 16
ShowGlyphs = True
TabOrder = 0
ForceFileExtensions = False
end
object JvDriveCombo1: TJvDriveCombo
Left = 20
Top = 1
Width = 526
Height = 22
Align = alTop
DriveTypes = [dtFixed, dtRemote, dtCDROM]
Offset = 4
ImageSize = isSmall
ItemHeight = 16
TabOrder = 1
end
object JvDirectoryListBox1: TJvDirectoryListBox
Left = 20
Top = 21
Width = 197
Height = 229
Style = lbOwnerDrawFixed
Align = alClient
ItemHeight = 17
Items.Strings = (
'c:\'
'c:\Programme'
'c:\Programme\Borland'
'c:\Programme\Borland\Delphi7'
'c:\Programme\Borland\Delphi7\JEDI'
'c:\Programme\Borland\Delphi7\JEDI\jvcl'
'c:\Programme\Borland\Delphi7\JEDI\jvcl\examples'
'c:\Programme\Borland\Delphi7\JEDI\jvcl\examples\JVCLMegaDemo'
'c:\Programme\Borland\Delphi7\JEDI\jvcl\examples\JVCLMegaDemo\shk')
ScrollWidth = 387
TabOrder = 2
Directory = 'c:\Programme\Borland\Delphi7\JEDI\jvcl\examples\JVCLMegaDemo'
DirLabel = Label1
FileList = JvFileListBox1
DriveCombo = JvDriveCombo1
end
end
object Edit1: TEdit
Left = 252
Top = 415
Width = 121
Height = 21
TabOrder = 2
Text = '*.*'
end
end
--- NEW FILE: FileListBoxMainFormU.pas ---
unit FileListBoxMainFormU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
FileCtrl, JvDriveCtrls, StdCtrls, JvCombobox, JvListBox, JvLabel,
JvComponent, JvFileInfo, ExtCtrls, JvCaptionPanel;
type
TFileListBoxMainForm = class(TForm)
JvLabel6: TJvLabel;
JvLabel8: TJvLabel;
JvDriveList1: TJvDriveList;
Label1: TLabel;
Label2: TLabel;
JvCaptionPanel1: TJvCaptionPanel;
JvFileListBox1: TJvFileListBox;
JvDriveCombo1: TJvDriveCombo;
JvDirectoryListBox1: TJvDirectoryListBox;
Edit1: TEdit;
Label3: TLabel;
end;
var
FileListBoxMainForm : TFileListBoxMainForm;
implementation
{$R *.DFM}
end.
|