home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 April A
/
Pcwk4a98.iso
/
PROGRAM
/
DELPHI16
/
Calmira
/
Src
/
SRC
/
FILEPROP.DFM
/
FILEPROP.txt
Wrap
Text File
|
1997-02-17
|
8KB
|
371 lines
object FilePropDlg: TFilePropDlg
Left = 201
Top = 107
HelpContext = 52
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'Properties'
ClientHeight = 291
ClientWidth = 342
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 13
object OKBtn: TBitBtn
Left = 100
Top = 260
Width = 77
Height = 27
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Margin = 4
Style = bsNew
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 180
Top = 260
Width = 77
Height = 27
TabOrder = 1
Kind = bkCancel
Margin = 4
Style = bsNew
Spacing = -1
IsControl = True
end
object Notebook: TTabbedNotebook
Left = 2
Top = 0
Width = 337
Height = 257
TabFont.Color = clBtnText
TabFont.Height = -11
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 2
object TTabPage
Left = 5
Top = 26
Caption = 'General'
object Bevel1: TBevel
Left = 8
Top = 10
Width = 311
Height = 135
Shape = bsFrame
end
object Bevel2: TBevel
Left = 8
Top = 156
Width = 311
Height = 61
Shape = bsFrame
end
object Label5: TLabel
Left = 28
Top = 148
Width = 47
Height = 13
Caption = 'Attributes:'
end
object Notes: TNotebook
Left = 14
Top = 18
Width = 297
Height = 119
PageIndex = 1
TabOrder = 0
object TPage
Left = 0
Top = 0
Caption = 'File Properties'
object Label1: TLabel
Left = 2
Top = 4
Width = 42
Height = 13
Caption = 'Filename'
end
object Label2: TLabel
Left = 2
Top = 28
Width = 41
Height = 13
Caption = 'Location'
end
object Label3: TLabel
Left = 22
Top = 52
Width = 20
Height = 13
Caption = 'Size'
end
object Label4: TLabel
Left = 2
Top = 100
Width = 40
Height = 13
Caption = 'Modified'
end
object FilenameLab: TLabel
Left = 58
Top = 4
Width = 60
Height = 13
Caption = 'FilenameLab'
ParentShowHint = False
ShowHint = False
end
object LocationLab: TLabel
Left = 60
Top = 28
Width = 59
Height = 13
Caption = 'LocationLab'
end
object SizeLab: TLabel
Left = 58
Top = 52
Width = 38
Height = 13
Caption = 'SizeLab'
ParentShowHint = False
ShowHint = False
end
object DateLab: TLabel
Left = 58
Top = 100
Width = 41
Height = 13
Caption = 'DateLab'
end
object Label10: TLabel
Left = 18
Top = 76
Width = 24
Height = 13
Caption = 'Type'
end
object TypeLab: TLabel
Left = 58
Top = 76
Width = 42
Height = 13
Caption = 'TypeLab'
end
end
object TPage
Left = 0
Top = 0
Caption = 'Folder Properties'
object Label6: TLabel
Left = 2
Top = 4
Width = 58
Height = 13
Caption = 'Folder name'
end
object Foldername: TLabel
Left = 80
Top = 4
Width = 55
Height = 13
Caption = 'Foldername'
ParentShowHint = False
ShowHint = True
end
object Label8: TLabel
Left = 19
Top = 28
Width = 41
Height = 13
Caption = 'Location'
end
object FolderLoc: TLabel
Left = 80
Top = 28
Width = 47
Height = 13
Caption = 'FolderLoc'
end
object Label16: TLabel
Left = 18
Top = 52
Width = 42
Height = 13
Caption = 'Contents'
end
object Foldersize: TLabel
Left = 80
Top = 52
Width = 67
Height = 13
Caption = 'FolderSizeLab'
end
object Label21: TLabel
Left = 20
Top = 76
Width = 40
Height = 13
Caption = 'Modified'
end
object FolderDate: TLabel
Left = 80
Top = 76
Width = 52
Height = 13
Caption = 'FolderDate'
end
object Label23: TLabel
Left = 8
Top = 100
Width = 52
Height = 13
Caption = 'Deep scan'
end
object TotalLab: TLabel
Left = 80
Top = 100
Width = 94
Height = 13
Cursor = -24
Caption = 'Click here to scan...'
OnClick = TotalLabClick
end
end
object TPage
Left = 0
Top = 0
Caption = 'Multiple Item Properties'
object Label7: TLabel
Left = 8
Top = 16
Width = 45
Height = 13
Caption = 'Total files'
end
object Label9: TLabel
Left = 8
Top = 44
Width = 45
Height = 13
Caption = 'Total size'
end
object Selfiles: TLabel
Left = 94
Top = 16
Width = 33
Height = 13
Caption = 'Selfiles'
end
object Selsize: TLabel
Left = 94
Top = 44
Width = 33
Height = 13
Caption = 'Selsize'
end
end
end
object ReadOnly: TCheckBox
Left = 26
Top = 168
Width = 97
Height = 17
AllowGrayed = True
Caption = '&Read only'
TabOrder = 1
OnClick = ReadOnlyClick
end
object Hidden: TCheckBox
Left = 174
Top = 168
Width = 97
Height = 17
AllowGrayed = True
Caption = '&Hidden'
TabOrder = 2
OnClick = ReadOnlyClick
end
object Archive: TCheckBox
Left = 26
Top = 192
Width = 97
Height = 17
AllowGrayed = True
Caption = '&Archive'
TabOrder = 3
OnClick = ReadOnlyClick
end
object System: TCheckBox
Left = 174
Top = 192
Width = 97
Height = 17
AllowGrayed = True
Caption = '&System'
TabOrder = 4
OnClick = ReadOnlyClick
end
object Panel1: TPanel
Left = 272
Top = 18
Width = 41
Height = 39
BevelOuter = bvNone
TabOrder = 5
object ItemImage: TImage
Left = 4
Top = 2
Width = 33
Height = 33
end
end
end
object TTabPage
Left = 5
Top = 26
Caption = 'Version Info'
object Listbox: TListBox
Left = 8
Top = 26
Width = 311
Height = 191
ItemHeight = 16
Style = lbOwnerDrawFixed
TabOrder = 0
OnDrawItem = ListboxDrawItem
end
object Header: THeader
Left = 8
Top = 8
Width = 311
Height = 19
Sections.Sections = (
#0'100'#0'Property'
#0'35'#0'Value')
TabOrder = 1
OnSized = HeaderSized
end
end
end
object HelpBtn: TBitBtn
Left = 260
Top = 260
Width = 77
Height = 27
TabOrder = 3
Kind = bkHelp
Margin = 4
Style = bsNew
Spacing = -1
end
end
