home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
WDR Computer Club Digital 1998 March
/
CC9803-2.BIN
/
SHARE
/
95RFILER
/
RFILER.ZIP
/
RFILER.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1997-12-27
|
10KB
|
451 lines
object Form1: TForm1
Left = 68
Top = 67
Width = 681
Height = 434
Caption = 'RFiler 1.32'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnPaint = FormPaint
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 2
Top = 2
Width = 669
Height = 29
TabOrder = 0
object ExplorerButton1: TExplorerButton
Left = 2
Top = 4
Width = 43
Height = 23
Hint = 'Copy File'
Caption = 'Copy'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton1Click
end
object ExplorerButton2: TExplorerButton
Left = 44
Top = 4
Width = 43
Height = 23
Hint = 'Move File'
Caption = 'Move'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton2Click
end
object ExplorerButton3: TExplorerButton
Left = 86
Top = 4
Width = 43
Height = 23
Hint = 'Delete File'
Caption = 'Delete'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton3Click
end
object ExplorerButton4: TExplorerButton
Left = 128
Top = 4
Width = 43
Height = 23
Hint = 'Swap Files'
Caption = 'Swap'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton4Click
end
object ExplorerButton5: TExplorerButton
Left = 170
Top = 4
Width = 43
Height = 23
Hint = 'Split File'
Caption = 'Split'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton5Click
end
object ExplorerButton6: TExplorerButton
Left = 212
Top = 4
Width = 43
Height = 23
Hint = 'Join Files'
Caption = 'Join'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton6Click
end
object ExplorerButton7: TExplorerButton
Left = 338
Top = 4
Width = 43
Height = 23
Hint = 'Rescan Directory'
Caption = 'Rescan'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton7Click
end
object ExplorerButton8: TExplorerButton
Left = 254
Top = 4
Width = 43
Height = 23
Hint = 'Rename File'
Caption = 'Name'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton8Click
end
object ExplorerButton9: TExplorerButton
Left = 296
Top = 4
Width = 43
Height = 23
Hint = 'File Properties'
Caption = 'Attrib'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton9Click
end
object ExplorerButton10: TExplorerButton
Left = 380
Top = 4
Width = 43
Height = 23
Hint = '(De)Select All'
Caption = 'Sel All'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton10Click
end
object Image1: TImage
Left = 628
Top = -4
Width = 13
Height = 13
Picture.Data = {<image000.bmp>}
Visible = False
end
object Image2: TImage
Left = 640
Top = -4
Width = 11
Height = 13
Picture.Data = {<image001.bmp>}
Visible = False
end
object ExplorerButton11: TExplorerButton
Left = 422
Top = 4
Width = 43
Height = 23
Hint = 'View File'
Caption = 'View'
Enabled = False
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = ExplorerButton11Click
end
object DriveComboBox1: TDriveComboBox
Left = 474
Top = 4
Width = 91
Height = 19
TabOrder = 0
OnChange = DriveComboBox1Change
end
object DriveComboBox2: TDriveComboBox
Left = 568
Top = 4
Width = 91
Height = 19
TabOrder = 1
OnChange = DriveComboBox2Change
end
end
object Panel2: TPanel
Left = 2
Top = 32
Width = 325
Height = 19
TabOrder = 1
object Label1: TLabel
Left = 2
Top = 2
Width = 3
Height = 13
end
end
object Panel3: TPanel
Left = 332
Top = 32
Width = 339
Height = 19
TabOrder = 2
object Label2: TLabel
Left = 3
Top = 2
Width = 3
Height = 13
end
end
object ListBox1: TListBox
Left = 4
Top = 54
Width = 325
Height = 326
ExtendedSelect = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
MultiSelect = True
ParentFont = False
PopupMenu = PopupMenu1
Sorted = True
Style = lbOwnerDrawFixed
TabOrder = 3
OnDblClick = ListBox1DblClick
OnDrawItem = ListBox1DrawItem
end
object ListBox2: TListBox
Left = 332
Top = 52
Width = 333
Height = 327
ExtendedSelect = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
MultiSelect = True
ParentFont = False
PopupMenu = PopupMenu2
Sorted = True
Style = lbOwnerDrawFixed
TabOrder = 4
OnDblClick = ListBox2DblClick
OnDrawItem = ListBox2DrawItem
end
object MainMenu1: TMainMenu
Left = 12
Top = 62
object File1: TMenuItem
Caption = 'File'
object Options1: TMenuItem
Caption = 'Options'
OnClick = Options1Click
end
object Close1: TMenuItem
Caption = '&Quit'
OnClick = Close1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
object Copy3: TMenuItem
Caption = '&Copy'
end
object Move3: TMenuItem
Caption = '&Move'
end
object Delete3: TMenuItem
Caption = '&Delete'
end
object Swap3: TMenuItem
Caption = '&Swap'
end
object Split3: TMenuItem
Caption = 'S&plit'
end
object Join3: TMenuItem
Caption = '&Join'
end
object Name3: TMenuItem
Caption = '&Name'
end
object Attrib3: TMenuItem
Caption = '&Attrib'
end
object Rescan3: TMenuItem
Caption = 'Rescan'
OnClick = Rescan3Click
end
object SelAll2: TMenuItem
Caption = 'Sel All'
OnClick = SelAll2Click
end
object View1: TMenuItem
Caption = 'View'
OnClick = View1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
object Help3: TMenuItem
Caption = '&Help'
OnClick = Help3Click
end
end
end
object PopupMenu1: TPopupMenu
Left = 12
Top = 346
object Root1: TMenuItem
Caption = 'Root'
OnClick = Root1Click
end
object Pop1: TMenuItem
Caption = 'Parent'
OnClick = Pop1Click
end
object Rescan1: TMenuItem
Caption = 'Rescan'
OnClick = Rescan1Click
end
object N1: TMenuItem
Caption = '-'
end
object Copy1: TMenuItem
Caption = 'Copy'
OnClick = Copy1Click
end
object Move1: TMenuItem
Caption = 'Move'
OnClick = Move1Click
end
object Delete1: TMenuItem
Caption = 'Delete'
OnClick = Delete1Click
end
object Swap1: TMenuItem
Caption = 'Swap'
OnClick = Swap1Click
end
object Split1: TMenuItem
Caption = 'Split'
OnClick = Split1Click
end
object Join1: TMenuItem
Caption = 'Join'
OnClick = Join1Click
end
object Name1: TMenuItem
Caption = 'Name'
OnClick = Name1Click
end
object Attrib1: TMenuItem
Caption = 'Attrib'
OnClick = Attrib1Click
end
object SelectAll1: TMenuItem
Caption = 'Sel All'
OnClick = SelectAll1Click
end
object View2: TMenuItem
Caption = 'View'
OnClick = View2Click
end
end
object PopupMenu2: TPopupMenu
Left = 344
Top = 348
object Root2: TMenuItem
Caption = 'Root'
OnClick = Root2Click
end
object Pop2: TMenuItem
Caption = 'Parent'
OnClick = Pop2Click
end
object Rescan2: TMenuItem
Caption = 'Rescan'
OnClick = Rescan2Click
end
object N2: TMenuItem
Caption = '-'
end
object Copy2: TMenuItem
Caption = 'Copy'
OnClick = Copy2Click
end
object Move2: TMenuItem
Caption = 'Move'
OnClick = Move2Click
end
object Delete2: TMenuItem
Caption = 'Delete'
OnClick = Delete2Click
end
object Swap2: TMenuItem
Caption = 'Swap'
OnClick = Swap2Click
end
object Split2: TMenuItem
Caption = 'Split'
OnClick = Split2Click
end
object Join2: TMenuItem
Caption = 'Join'
OnClick = Join2Click
end
object Name2: TMenuItem
Caption = 'Name'
OnClick = Name2Click
end
object Attrib2: TMenuItem
Caption = 'Attrib'
OnClick = Attrib2Click
end
object SelAll1: TMenuItem
Caption = 'Sel All'
OnClick = SelAll1Click
end
object View3: TMenuItem
Caption = 'View'
OnClick = View3Click
end
end
end