home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 231
- Top = 109
- Width = 279
- Height = 520
- Align = alLeft
- BorderIcons = [biSystemMenu, biMinimize]
- Caption = 'DOS/V magazine CD-ROM Simple Browser'
- Color = clBtnFace
- Enabled = False
- 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>}
- Menu = MainMenu1
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnPaint = FormPaint
- PixelsPerInch = 96
- TextHeight = 12
- object TreeView1: TTreeView
- Left = 0
- Top = 0
- Width = 271
- Height = 402
- Align = alClient
- Indent = 19
- PopupMenu = PopupMenu1
- ReadOnly = True
- ShowButtons = False
- ShowRoot = False
- TabOrder = 0
- OnChange = TreeView1Change
- OnDblClick = TreeView1DblClick
- end
- object Panel1: TPanel
- Left = 0
- Top = 402
- Width = 271
- Height = 72
- Align = alBottom
- TabOrder = 1
- object Label1: TLabel
- Left = 4
- Top = 18
- Width = 263
- Height = 52
- AutoSize = False
- Caption =
- '���ڂ�I�����A�E�N���b�N���j���[����A�u����HTML���J���v��I����' +
- '��ƁAWeb�u���E�U��HTML�t�@�C�����J����܂��B�u�֘A�t�H���_���J�' +
- '��v��I������ƁA�֘A�t�@�C�������^����Ă���t�H���_���J���܂��' +
- 'B'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 106
- Top = 2
- Width = 59
- Height = 12
- Caption = '���g������'
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 106
- Top = 104
- object miHTML: TMenuItem
- Action = actHTML
- end
- object miDir: TMenuItem
- Action = actDir
- end
- end
- object ActionList1: TActionList
- Left = 134
- Top = 47
- object actHTML: TAction
- Caption = '����HTML���J��(&V)'
- OnExecute = actHTMLExecute
- end
- object actDir: TAction
- Caption = '�֘A�t�H���_���J��(&O)'
- OnExecute = actDirExecute
- end
- end
- object MainMenu1: TMainMenu
- Left = 176
- Top = 104
- object Exit1: TMenuItem
- Caption = '�t�@�C��(&F)'
- object miDIr2: TMenuItem
- Action = actDir
- end
- object miHTML2: TMenuItem
- Action = actHTML
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit2: TMenuItem
- Caption = '�I��(&X)'
- OnClick = Exit2Click
- end
- end
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 50
- Top = 53
- end
- end
-