home *** CD-ROM | disk | FTP | other *** search
- object FormBrowse: TFormBrowse
- Left = 255
- Top = 102
- Width = 724
- Height = 520
- ActiveControl = ScrollBox
- Caption = 'GaleBrowser'
- Color = clBtnFace
- Font.Charset = SHIFTJIS_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = '�l�r �o�S�V�b�N'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = False
- Position = poDefault
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShortCut = FormShortCut
- PixelsPerInch = 96
- TextHeight = 12
- object Splitter1: TSplitter
- Left = 197
- Top = 0
- Width = 3
- Height = 474
- Cursor = crHSplit
- AutoSnap = False
- MinSize = 64
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 474
- Width = 716
- Height = 19
- Panels = <
- item
- Width = 200
- end
- item
- Width = 120
- end
- item
- Width = 80
- end
- item
- Width = 80
- end
- item
- Width = 50
- end>
- SimplePanel = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 197
- Height = 474
- Align = alLeft
- BevelOuter = bvNone
- BorderWidth = 8
- TabOrder = 1
- OnResize = Panel1Resize
- object LabelFolder: TLabel
- Left = 8
- Top = 8
- Width = 181
- Height = 17
- Align = alTop
- AutoSize = False
- Caption = '&Folder:'
- FocusControl = DirList
- end
- object DirList: TDirectoryListBox
- Left = 8
- Top = 25
- Width = 181
- Height = 255
- Align = alClient
- ItemHeight = 16
- TabOrder = 0
- OnChange = DirListChange
- end
- object PanelBottom: TPanel
- Left = 8
- Top = 280
- Width = 181
- Height = 186
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object LabelDrive: TLabel
- Left = 0
- Top = 8
- Width = 29
- Height = 12
- Caption = 'Dri&ve:'
- FocusControl = Drive
- end
- object LabelType: TLabel
- Left = 0
- Top = 80
- Width = 50
- Height = 12
- Caption = 'File &Type:'
- FocusControl = Filter
- end
- object Drive: TDriveComboBox
- Left = 0
- Top = 24
- Width = 181
- Height = 18
- DirList = DirList
- TabOrder = 0
- end
- object Filter: TFilterComboBox
- Left = 0
- Top = 97
- Width = 181
- Height = 20
- TabOrder = 1
- OnClick = DirListChange
- end
- object RadioSize: TRadioGroup
- Left = 0
- Top = 132
- Width = 117
- Height = 33
- Caption = '&Size'
- Columns = 3
- Items.Strings = (
- 'S'
- 'M'
- 'L')
- TabOrder = 2
- OnClick = DirListChange
- end
- object CheckHigh: TCheckBox
- Left = 0
- Top = 172
- Width = 137
- Height = 17
- Caption = '&High Quality'
- TabOrder = 3
- OnClick = DirListChange
- end
- object btnNet: TButton
- Left = 80
- Top = 52
- Width = 99
- Height = 21
- Caption = '&Network...'
- TabOrder = 4
- OnClick = btnNetClick
- end
- end
- end
- object ScrollBox: TScrollBox
- Left = 200
- Top = 0
- Width = 516
- Height = 474
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Align = alClient
- TabOrder = 2
- TabStop = True
- OnResize = ScrollBoxResize
- object PaintBox: TPaintBox
- Left = 0
- Top = 0
- Width = 105
- Height = 105
- OnDblClick = PaintBoxDblClick
- OnMouseDown = PaintBoxMouseDown
- OnMouseMove = PaintBoxMouseMove
- OnPaint = PaintBoxPaint
- end
- end
- object DropSource: TDropFileSource
- Dragtypes = [dtCopy, dtMove]
- OnFeedback = DropSourceFeedback
- ImageIndex = 0
- ShowImage = True
- ImageHotSpotX = 16
- ImageHotSpotY = 16
- Left = 384
- Top = 86
- end
- object DropDummy: TDropDummy
- Dragtypes = []
- GetDataOnEnter = False
- ShowImage = True
- Left = 385
- Top = 124
- end
- object DropFileTarget: TDropFileTarget
- Dragtypes = [dtCopy, dtMove]
- GetDataOnEnter = True
- OnEnter = DropFileTargetEnter
- OnDrop = DropFileTargetDrop
- OnGetDropEffect = DropFileTargetGetDropEffect
- ShowImage = True
- Left = 384
- Top = 204
- end
- object FileOperation: TFileOperation
- Options = [fofMultiDestFiles, fofAllowUndo, fofFilesOnly]
- Left = 295
- Top = 182
- end
- object idea: TDCP_idea
- Algorithm = 'IDEA'
- BlockSize = 64
- MaxKeySize = 128
- Left = 234
- Top = 150
- end
- object blowfish: TDCP_blowfish
- Algorithm = 'Blowfish'
- BlockSize = 64
- MaxKeySize = 448
- Left = 238
- Top = 186
- end
- object Context: TContextMenuEx
- Left = 430
- Top = 126
- end
- object WinPlace: TWinPlace
- KeyName = 'Software\TEMPEST\Gale\Browse'
- Left = 238
- Top = 226
- end
- object ApplicationEvents1: TApplicationEvents
- OnActivate = ApplicationEvents1Activate
- Left = 326
- Top = 270
- end
- object Watcher: TDirectoryWatcher
- Delay = False
- DelayTime = 0
- SubTree = False
- OnChange = WatcherChange
- ThreadFree = False
- Left = 466
- Top = 122
- end
- end
-