object FormEdit: TFormEdit Left = 205 Top = 257 Width = 620 Height = 427 ActiveControl = ListView BorderIcons = [biSystemMenu] Caption = '�ꗗ' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Menu = MainMenu1 Scaled = False OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Image1: TImage Left = 208 Top = 200 Width = 16 Height = 16 AutoSize = True Picture.Data = {} end object Image2: TImage Left = 232 Top = 200 Width = 16 Height = 16 AutoSize = True Picture.Data = {} end object Image3: TImage Left = 256 Top = 200 Width = 16 Height = 16 AutoSize = True Picture.Data = {} end object ListView: TListView Left = 0 Top = 48 Width = 612 Height = 314 Align = alClient OnClick = ListViewClick OnDblClick = RepClick Columns = <> ReadOnly = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] MultiSelect = True RowSelect = True OnColumnClick = ListViewColumnClick ParentFont = False SortType = stText TabOrder = 0 ViewStyle = vsReport end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 612 Height = 48 ButtonHeight = 40 ButtonWidth = 8 EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom] TabOrder = 1 object BtnView1: TSpeedButton Left = 0 Top = 2 Width = 54 Height = 40 GroupIndex = 1 Down = True Caption = '�P��' Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC000000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 66666600000060000000000000000600000060FF7FF7FF7FF7FF0600000060FF 7FF7FF7FF7FF0600000060777777447777770600000060FF7FF7447FF7FF0600 000060FF7FF7447FF7FF0600000060777777447777770600000060FF7F47447F F7FF0600000060FF7F44447FF7FF0600000060777774447777770600000060FF 7FF7447FF7FF0600000060FF7FF7FF7FF7FF0600000060CCCCCCCCCCCCCC0600 000060CCCCCCCCCCCCCC06000000600000000000000006000000666666666666 666666000000} Layout = blGlyphTop ParentFont = False Spacing = 2 OnClick = View1Click end object BtnView2: TSpeedButton Left = 54 Top = 2 Width = 54 Height = 40 GroupIndex = 1 Caption = '����' Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC000000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 66666600000060000000000000000600000060FF7FF7FF7FF7FF0600000060FF 7FF7FF7FF7FF0600000060777444777744770600000060FF44F44F7F44FF0600 000060FF7FF44F7F44FF0600000060777774477744770600000060FF7F44FF4F 44FF0600000060FF7FF44F4444FF0600000060774474477444770600000060FF 7444FF7F44FF0600000060FF7FF7FF7FF7FF0600000060CCCCCCCCCCCCCC0600 000060CCCCCCCCCCCCCC06000000600000000000000006000000666666666666 666666000000} Layout = blGlyphTop ParentFont = False Spacing = 2 OnClick = View2Click end object BtnView3: TSpeedButton Left = 108 Top = 2 Width = 54 Height = 40 GroupIndex = 1 Caption = '�N��' Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC000000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 66666600000060000000000000000600000060FF7FF7FF7FF7FF0600000060FF 7FF7FF7FF7FF06000000607447774477744706000000604F74F4FF4F47F40600 000060FF74F4FF4FF7F406000000607747744477444F0600000060FF74F4FF7F 47FF06000000604F74F4FF4F47FF0600000060F44FF7447F4444060000006077 7777777777770600000060FF7FF7FF7FF7FF0600000060CCCCCCCCCCCCCC0600 000060CCCCCCCCCCCCCC06000000600000000000000006000000666666666666 666666000000} Layout = blGlyphTop ParentFont = False Spacing = 2 OnClick = View3Click end object BtnView4: TSpeedButton Left = 162 Top = 2 Width = 54 Height = 40 GroupIndex = 1 Caption = 'ALL' Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC000000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 66666600000060000000000000000600000060FF7FF7FF7FF7FF0600000060FF 7FF7FF7FF7FF0600000060777777777777770600000060FF7FF7FF7FF7FF0600 000060FF0F070F0F07FF0600000060770007770007770600000060FF0007FF00 07FF0600000060F00000F00000FF0600000060777077777077770600000060FF 7FF7FF7FF7FF0600000060FF7FF7FF7FF7FF0600000060CCCCCCCCCCCCCC0600 000060CCCCCCCCCCCCCC06000000600000000000000006000000666666666666 666666000000} Layout = blGlyphTop ParentFont = False Spacing = 2 OnClick = AllClick end object ToolButton1: TToolButton Left = 216 Top = 2 Width = 8 Height = 40 Caption = 'ToolButton1' ImageIndex = 0 Style = tbsDivider end object BtnAdd: TSpeedButton Left = 224 Top = 2 Width = 54 Height = 40 Caption = '�lj�' Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 666666000000000006666687777777770666668FFFFFFFF70666668FFFFFFFF7 0666668FFFFFFFF70666668FFFFFFF870666668FFFF8F8F80666668FFFFF88B8 0F66668FFFFFB8B8B866668FFF888BBB8886668FFFFBBBFBBBF6668FFFFFFBBB 866666888888B8B8B8666666666F86B86F666666666666F86666} Layout = blGlyphTop ParentFont = False Spacing = 2 OnClick = AddClick end object BtnRep: TSpeedButton Left = 278 Top = 2 Width = 54 Height = 40 Caption = '����' Enabled = False Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 666666666666666666666666666666666666666FFFFFFFFFFFFF660000000000 0006668888888888888F6888888888888806688888888888888F68FFFFFFFFFF F80668F7FFFFFFFFF88F68F888888888F80668F888888888788F68FFFFFF10FF F80668F7FFFFF87F788F68F88888B107F80668F888887787F88F68FFFFFF3B10 F80668F7FFFFFF78788F68F8888883B1080668F888888777888F68FFFFFFFF3B 100668FFFFFFFFFF788F64CCCCCCCCC3B10668888888888FF687644444444444 3B10688888888888666866666666666663D16666666666666666666666666666 6699666666666666666666666666666666666666666666666666} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False Spacing = 2 OnClick = RepClick end object BtnDel: TSpeedButton Left = 332 Top = 2 Width = 54 Height = 40 Caption = '�폜' Enabled = False Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 666666666666666666F666666666666669666666F66666666866666966666666 66666668FF6666666F66669996666666966666888F6666668666669996666669 666666888FF66668F6666669996666996666666888FF66886666666699966996 66666666888FF886666666666999996666666666688888666666666666999666 6666666666888FF6666666666999996666666666688888F66666666699966966 6666666F8886687FF6666699996666996666668888666688FF66699996666669 96666888866666688FF669966666666699666886666666668876666666666666 6666666666666666666666666666666666666666666666666666} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False Spacing = 2 OnClick = DelClick end object BtnCopy: TSpeedButton Left = 386 Top = 2 Width = 54 Height = 40 Caption = '�R�s�[' Enabled = False Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666660000000 000066666888888888886666687777777770666668F666666668666668FFFFFF FF706FFFF8F666666668000008FFFFFFFF70888888F666666668877778FFFFFF FF708F6668F6666666688FFFF8F4444FFF708F6668F8888666688FFFF8FF444F FF708F6668F6888666688FFFF8FF444FFF708F6668F6888666688FF4F8F4FF4F FF708F6868F866866FF88FFF444FFFFF00008F668886666688888FFFF8FFFFFF 87068F6668F666668F868FFFF8FFFFFF80668F6668FFFFFF88668FFFF8888888 86668F666888888886668FFFFF78706666668F666668F86666668FFFFF780666 66668FFFFFF88666666688888888666666668888888866666666} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False Spacing = 2 OnClick = RepClick end object BtnMove: TSpeedButton Left = 440 Top = 2 Width = 54 Height = 40 Caption = '�ړ�' Enabled = False Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666660000000 000066666888888888886666687777777770666668F666666668666668FFFFFF FF706F6F68F666666668060608FFFFFFFF70868688F666666668666668FFFFFF FF706F6668F666666668066668F4444FFF70866668F888866668666668FF444F FF706F6668F688866668066668FF444FFF70866668F688866668666468F4FF4F FF706F6868F866866FF80666444FFFFF00008666888666668888666668FFFFFF 87066F6668F666668F86066668FFFFFF8066866668FFFFFF8866666668888888 86666F6668888888866606666660606666668666666868666666666666660666 66666F6F6F6F8666666606060600666666668686868866666666} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False Spacing = 2 OnClick = RepClick end end object StatusBar1: TStatusBar Left = 0 Top = 362 Width = 612 Height = 19 Panels = < item Width = 50 end> SimplePanel = False end object MainMenu1: TMainMenu Left = 120 Top = 168 object MenuFile: TMenuItem Caption = '�t�@�C��(&F)' object MenuCsvSave: TMenuItem Caption = 'CSV�`���ŕۑ�(&C)' OnClick = MenuCsvSaveClick end object MenuFileSep1: TMenuItem Caption = '-' end object MenuExit: TMenuItem Caption = '�I��(&X)' ShortCut = 27 OnClick = FormClose end end object MenuEdit: TMenuItem Caption = '�ҏW(&E)' object MenuAdd: TMenuItem Caption = '�lj�(&A)' OnClick = AddClick end object MenuRep: TMenuItem Caption = '����(&R)' Enabled = False OnClick = RepClick end object MenuDel: TMenuItem Caption = '�폜(&D)' Enabled = False OnClick = DelClick end object MenuCopy: TMenuItem Caption = '�R�s�[(&C)' Enabled = False OnClick = RepClick end object MenuMove: TMenuItem Caption = '�ړ�(&M)...' Enabled = False OnClick = RepClick end end object MenuShow: TMenuItem Caption = '�\��(&V)' object MenuView1: TMenuItem Caption = '�P��(&D)' Checked = True GroupIndex = 1 RadioItem = True OnClick = View1Click end object MenuView2: TMenuItem Caption = '����(&M)' GroupIndex = 1 RadioItem = True OnClick = View2Click end object MenuView3: TMenuItem Caption = '�N��(&Y)' GroupIndex = 1 RadioItem = True OnClick = View3Click end object MenuView4: TMenuItem Caption = '���ׂ�(&A)' GroupIndex = 1 RadioItem = True OnClick = AllClick end end end object SaveDialog1: TSaveDialog Filter = 'CSV (*.csv)|*.csv|���ׂẴt�@�C�� (*.*)|*.*' Left = 152 Top = 168 end end