object MainForm: TMainForm Left = 221 Top = 129 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'LunarView' ClientHeight = 507 ClientWidth = 377 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 12 object Label4: TLabel Left = 184 Top = 484 Width = 33 Height = 12 Alignment = taRightJustify AutoSize = False end object Panel1: TPanel Left = 28 Top = 12 Width = 324 Height = 451 BevelOuter = bvLowered BevelWidth = 2 TabOrder = 0 object Image1: TImage Left = 2 Top = 2 Width = 320 Height = 447 Align = alClient Center = True OnDblClick = Image1DblClick end object Label1: TLabel Left = 29 Top = 196 Width = 266 Height = 12 Caption = 'Copyright 1998-1999 �Ǎ�(watazaki@geocities.co.jp)' Visible = False end object Image2: TImage Left = 40 Top = 124 Width = 32 Height = 32 end object Label2: TLabel Left = 92 Top = 128 Width = 162 Height = 29 Caption = '�k���������u������' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = '�l�r �o����' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 131 Top = 168 Width = 63 Height = 12 Caption = 'Version 2.00' end object Button1: TButton Left = 124 Top = 240 Width = 75 Height = 25 Caption = 'OK' TabOrder = 0 Visible = False OnClick = Button1Click end end object ComboBox1: TComboBox Left = 4 Top = 120 Width = 57 Height = 20 Style = csDropDownList ItemHeight = 12 Items.Strings = ( '41984000' '48779264' '47337472' '17659904' '28448768' '50212864' '49639424' '49352704' '49926144' '17373184' '28162048' '32563200' '32849920' '47624192' '42270720') TabOrder = 1 Visible = False OnChange = ComboBox1Change end object Button2: TButton Left = 291 Top = 476 Width = 60 Height = 25 Caption = '>' Enabled = False TabOrder = 2 OnClick = Button2Click end object Button3: TButton Left = 223 Top = 476 Width = 60 Height = 25 Caption = '<' Enabled = False TabOrder = 3 OnClick = Button3Click end object DriveComboBox1: TDriveComboBox Left = 28 Top = 480 Width = 145 Height = 18 TabOrder = 4 OnChange = DriveComboBox1Change end object ComboBox3: TComboBox Left = 4 Top = 168 Width = 57 Height = 20 ItemHeight = 12 Items.Strings = ( '51901436' '51925748' '51944372' '51963612' '52006404' '52031748' '52059852' '52085340' '52108252' '52128484' '52170076') TabOrder = 5 Visible = False end object ComboBox2: TComboBox Left = 4 Top = 144 Width = 57 Height = 20 ItemHeight = 12 Items.Strings = ( '69640' '258056' '473096' '684040' '876552' '1056776' '1255432' '1619976' '1867784' '2134024' '2451464' '2656264' '2893832' '3125256' '3328008' '3624968' '3817480' '3989512' '4190216' '4386824' '4638728' '4880392' '5144584' '5384200' '5619720' '5871624' '6072328' '6330376' '6631432' '6803464' '6995976' '7247880' '7454728' '7837704' '8079368' '8302600' '8482824' '8787976' '9007112' '9211912' '9451528' '9775112' '10022920' '10278920' '10475528' '10745864' '10913800' '11081736' '11255816' '11409416' '11567112' '11761672' '11997192' '12130312' '12265480' '12431368' '12666888' '12871688' '12972040' '13084680' '13189128' '13365256' '13582344' '13828104' '13920264' '14014472' '14198792' '14417928' '14618632' '14866440' '14974984' '15116296' '15210504' '15329288' '15423496' '15517704' '15620104' '15722504' '15814664' '15917064' '16310280' '16410632' '16805896' '16898056' '17133576') TabOrder = 6 Visible = False end object SaveDialog1: TSaveDialog DefaultExt = 'bmp' Filter = '�r�b�g�}�b�v(*.bmp)|*.bmp' Top = 12 end object MainMenu1: TMainMenu Top = 44 object File1: TMenuItem Caption = '�t�@�C��(&F)' object Exit1: TMenuItem Caption = '�I��(&X)' OnClick = Exit1Click end end object G1: TMenuItem Caption = '�W������(&G)' Enabled = False object N1: TMenuItem Caption = '�u���}�C�h(&B)' Checked = True GroupIndex = 1 RadioItem = True OnClick = N1Click end object C1: TMenuItem Caption = '�퓬�V�[��(&S)' GroupIndex = 1 RadioItem = True OnClick = C1Click end object C2: TMenuItem Caption = '�L�����N�^(&C)' GroupIndex = 1 RadioItem = True OnClick = C2Click end end object Help1: TMenuItem Caption = '�w���v(&H)' object About1: TMenuItem Caption = 'LunarView�ɂ‚���(&A)' OnClick = About1Click end end end end