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 = 50 Width = 612 Height = 312 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 = 50 ButtonHeight = 42 ButtonWidth = 8 EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom] TabOrder = 1 object BtnView1: TSpeedButton Left = 0 Top = 2 Width = 54 Height = 42 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 OnClick = View1Click end object BtnView2: TSpeedButton Left = 54 Top = 2 Width = 54 Height = 42 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 OnClick = View2Click end object BtnView3: TSpeedButton Left = 108 Top = 2 Width = 54 Height = 42 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 OnClick = View3Click end object BtnView4: TSpeedButton Left = 162 Top = 2 Width = 54 Height = 42 GroupIndex = 1 Caption = '�`�k�k' 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 6666666666666666666666666666666666666666666666666666666666666666 6666606660606066606666060666660606666600066666000666600000666000 0066000000060000000666000666660006666660666666606666666666666666 6666666666666666666666666666666666666666666666666666} Layout = blGlyphTop ParentFont = False OnClick = AllClick end object ToolButton1: TToolButton Left = 216 Top = 2 Width = 8 Height = 42 Caption = 'ToolButton1' ImageIndex = 0 Style = tbsDivider end object BtnAdd: TSpeedButton Left = 224 Top = 2 Width = 54 Height = 42 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 66666600000000000666660FFFFFFFFF0666660FFFFFFFFF0666660FFFFFFFFF 0666660FFFFFFFFF0666660FFFFFFF8F0666660FFFF8F8F80666660FFFFF88B8 0F66660FFFFFB8B8B866660FFF888BBB8886660FFFFBBBFBBBF6660FFFFFFBBB 866666000000B8B8B8666666666F86B86F666666666666F86666} Layout = blGlyphTop ParentFont = False OnClick = AddClick end object BtnRep: TSpeedButton Left = 278 Top = 2 Width = 54 Height = 42 Caption = '����' Enabled = False 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 66666600000000000666660FFFFFFFFF0666660FFFFFFFFF0666660FFFFFFFFF 0666660FFF10FFFF0666660FFF310FFF0666660FFF3B10FF0666660FFFF3B10F 0666660FFFFF3B100666660FFFFFF3B10666660FFFFFF03B1066660FFFFFF003 D166660000000066996666666666666666666666666666666666} Layout = blGlyphTop ParentFont = False OnClick = RepClick end object BtnDel: TSpeedButton Left = 332 Top = 2 Width = 54 Height = 42 Caption = '�폜' Enabled = False 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 666666600000000000666660FFFFFFFFF0666600FFFFFFFF006666000FFFFFF0 0066666000FFFF00F0666660000FF00FF0666660F00000FFF0666660FF000FFF F0666660F00000FFF0666660000FF0000066660000FFFF00066660000FFFFF00 0666600000000006006666666666666666666666666666666666} Layout = blGlyphTop ParentFont = False OnClick = DelClick end object BtnCopy: TSpeedButton Left = 386 Top = 2 Width = 54 Height = 42 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 = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666660000000 0000666660FFFFFFFFF0666660FFFFFFFFF0000000FFFFFFFFF00FFFF0FFFFFF FFF00FFFF0F4444FFFF00FFFF0FF444FFFF00FFFF0FF444FFFF00FF4F0F4FF4F FFF00FFF444FFFFF00000FFFF0FFFFFF0F060FFFF0FFFFFF00660FFFF0000000 06660FFFFFF0F06666660FFFFFF0066666660000000066666666} Layout = blGlyphTop ParentFont = False OnClick = RepClick end object BtnMove: TSpeedButton Left = 440 Top = 2 Width = 54 Height = 42 Caption = '�ړ�' Enabled = False Flat = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000C40E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666660000000 0000666660FFFFFFFFF0666660FFFFFFFFF0060600FFFFFFFFF0666660FFFFFF FFF0066660F4444FFFF0666660FF444FFFF0066660FF444FFFF0666460F4FF4F FFF00666444FFFFF0000666660FFFFFF0F06066660FFFFFF0066666660000000 0666066666606066666666666666066666660606060066666666} Layout = blGlyphTop ParentFont = False 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)' 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