object TextDeFindForm: TTextDeFindForm Left = 0 Top = 0 Caption = 'TextDeFindForm' ClientHeight = 543 ClientWidth = 735 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #65325#65331' '#12468#12471#12483#12463 Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 16 object Splitter1: TSplitter Left = 185 Top = 219 Width = 9 Height = 273 ExplicitLeft = 232 ExplicitTop = 200 ExplicitHeight = 65 end object Web: TWebBrowser Left = 194 Top = 219 Width = 541 Height = 273 Align = alClient TabOrder = 7 ExplicitLeft = 242 ExplicitTop = 166 ExplicitWidth = 300 ExplicitHeight = 150 ControlData = { 4C000000EA370000371C00000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end object Memo1: TMemo Left = 194 Top = 219 Width = 541 Height = 273 Align = alClient Lines.Strings = ( 'Memo1') TabOrder = 8 end object LeftPanel: TPanel Left = 0 Top = 219 Width = 185 Height = 273 Align = alLeft Caption = 'LeftPanel' TabOrder = 4 object ListName: TComboBox Left = 1 Top = 1 Width = 183 Height = 24 Align = alTop AutoComplete = False DropDownCount = 30 TabOrder = 0 Text = #12522#12473#12488#21517 OnChange = ListNameChange Items.Strings = ( 'E:\wav') end object Text: TRichEdit Left = 1 Top = 51 Width = 183 Height = 221 Align = alClient Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #65325#65331' '#12468#12471#12483#12463 Font.Style = [] HideSelection = False ParentFont = False PlainText = True PopupMenu = PopupMenu1 ScrollBars = ssBoth TabOrder = 1 Zoom = 100 OnMouseUp = TextMouseUp end object Tree: TTreeView Left = 1 Top = 25 Width = 183 Height = 26 Align = alTop Indent = 19 TabOrder = 2 Visible = False OnClick = TreeClick end end object Panel1: TPanel Left = 0 Top = 0 Width = 735 Height = 25 Align = alTop TabOrder = 0 object Path: TComboBox Left = 166 Top = 1 Width = 460 Height = 24 Align = alClient DropDownCount = 30 TabOrder = 0 Text = 'E:\wav\' Items.Strings = ( 'D:\Music\' 'D:\Music\%'#12522#12473#12488#21517'%') end object Find: TButton Left = 1 Top = 1 Width = 75 Height = 23 Align = alLeft Caption = #26908#32034 TabOrder = 1 OnClick = FindClick end object Button1: TButton Left = 76 Top = 1 Width = 90 Height = 23 Align = alLeft Caption = #20877#35501#12415#36796#12415 TabOrder = 2 Visible = False OnClick = Button1Click end object PathEditButton: TButton Left = 680 Top = 1 Width = 54 Height = 23 Align = alRight Caption = #32232#38598 TabOrder = 3 OnClick = PathEditButtonClick end object PathSelButton: TButton Left = 626 Top = 1 Width = 54 Height = 23 Align = alRight Caption = #36984#25246 TabOrder = 4 OnClick = PathSelButtonClick end end object GridFiles: TStringGrid Left = 194 Top = 219 Width = 541 Height = 273 Align = alClient Ctl3D = False DrawingStyle = gdsClassic Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goThumbTracking] ParentCtl3D = False PopupMenu = PopupMenu2 TabOrder = 1 OnMouseDown = GridFilesMouseDown OnSelectCell = GridFilesSelectCell OnSetEditText = GridFilesSetEditText ColWidths = ( 64 64 64 64 64) RowHeights = ( 24 24 24 24 24) end object buf: TStringGrid Left = 0 Top = 516 Width = 735 Height = 27 Align = alBottom TabOrder = 2 Visible = False ColWidths = ( 64 64 64 64 64) RowHeights = ( 24 24 24 24 24) end object TMP: TComboBox Left = 0 Top = 492 Width = 735 Height = 24 Align = alBottom TabOrder = 3 Text = 'TMP' Visible = False end object Panel3: TPanel Left = 0 Top = 25 Width = 735 Height = 25 Align = alTop TabOrder = 5 object Url: TComboBox Left = 76 Top = 1 Width = 516 Height = 24 Align = alClient DropDownCount = 30 TabOrder = 0 Items.Strings = ( 'itmss://itunes.apple.com/search?term=%'#12522#12473#12488#21517'% %'#26908#32034#25991#23383'%&country=jp' 'https://linkmaker.itunes.apple.com/ja-jp?country=jp&mediaType=ap' + 'ple_music&term=%'#12522#12473#12488#21517'%+%'#26908#32034#25991#23383'%' 'https://itunes.apple.com/search?term=%'#12522#12473#12488#21517'% %'#26908#32034#25991#23383'%&country=jp' 'https://play.google.com/music/listen?hl=ja&pli=1#/sr/%'#12522#12473#12488#21517'% %'#26908#32034#25991 + #23383'%' '' 'https://music.amazon.co.jp/search/%'#12522#12473#12488#21517'% %'#26908#32034#25991#23383'%' 'https://www.google.com/search?q=%'#12522#12473#12488#21517'% %'#26908#32034#25991#23383'%' 'https://www.youtube.com/results?search_query=%'#12522#12473#12488#21517'% %'#26908#32034#25991#23383'%' 'https://www.clubdam.com/app/search/searchKaraokeKeywordArtist.ht' + 'ml?keyword=%'#12522#12473#12488#21517'%' 'https://www.google.com/search?q=%'#12522#12473#12488#21517'% %'#26908#32034#25991#23383'% site:itunes.apple.' + 'com' 'https://playapplemusic.com/search?q=%'#12522#12473#12488#21517'% %'#26908#32034#25991#23383'% ') end object FindUrlButton: TButton Left = 1 Top = 1 Width = 75 Height = 23 Align = alLeft Caption = #26908#32034'URL' TabOrder = 1 OnClick = FindUrlButtonClick end object UrlEditButton: TButton Left = 592 Top = 1 Width = 54 Height = 23 Align = alRight Caption = #32232#38598 TabOrder = 2 OnClick = UrlEditButtonClick end object OpURLButton: TButton Left = 646 Top = 1 Width = 88 Height = 23 Align = alRight Caption = #12458#12503#12471#12519#12531 TabOrder = 3 OnClick = OpURLButtonClick end end object OpURLPanel: TPanel Left = 0 Top = 50 Width = 735 Height = 169 Align = alTop AutoSize = True TabOrder = 6 Visible = False object OpURLEscape: TCheckBox Left = 1 Top = 59 Width = 733 Height = 17 Align = alTop Caption = #12456#12473#12465#12540#12503 Checked = True State = cbChecked TabOrder = 0 end object OpUrlSpace: TCheckBox Left = 1 Top = 18 Width = 733 Height = 17 Align = alTop Caption = #31354#30333#12395#22793#25563 Checked = True State = cbChecked TabOrder = 1 end object OpURLZenkaku: TCheckBox Left = 1 Top = 100 Width = 733 Height = 17 Align = alTop Caption = #20840#35282#21270 TabOrder = 2 end object OpURLEscapeEdit: TEdit Left = 1 Top = 76 Width = 733 Height = 24 Align = alTop TabOrder = 3 Text = ':/?#[]@!$&'#39#39'()*+,;=' end object OpURLSpaceEdit: TEdit Left = 1 Top = 35 Width = 733 Height = 24 Align = alTop TabOrder = 4 Text = '!"#$%&'#39'()*+,-./:;<=>?@[\]^_`{|}~'#65295#65340#65374#8741#65372#8230#8229#8216#8217#8220#8221#65288#65289#12308#12309#65339#65341#65371#65373#12296#12297#12298#12299#12300#12301#12302#12303#12304#12305#65291#65293#177 + #215#247#65309#8800#65308#65310#8806#8807#8734#8756#9794#9792#176#8242#8243#8451#65509#65284#65504#65505#65285#65283#65286#65290#65312#167#9734#9733#9675#9679#9678#9671' '#9670#9633#9632#9651#9650#9661#9660#8251#12306#8594#8592#8593#8595 end object OptionUrlDQuote: TCheckBox Left = 1 Top = 117 Width = 733 Height = 17 Align = alTop Caption = '""'#12391#22258#12416 TabOrder = 5 end object OpURLComment: TCheckBox Left = 1 Top = 1 Width = 733 Height = 17 Align = alTop Caption = '//'#12363#12425#24460#12429#12399#12467#12513#12531#12488 Checked = True State = cbChecked TabOrder = 6 end object OpURLFile: TCheckBox Left = 1 Top = 134 Width = 733 Height = 17 Align = alTop Caption = #12501#12449#12452#12523#21015#12395#29983#12487#12540#12479 TabOrder = 7 end object OpURLitune: TCheckBox Left = 1 Top = 151 Width = 733 Height = 17 Align = alTop Caption = 'itmss:'#12399'json'#35299#26512 Checked = True State = cbChecked TabOrder = 8 end end object PopupMenu2: TPopupMenu Left = 208 Top = 360 object PFileCut: TMenuItem Caption = #12459#12483#12488 OnClick = PFileCutClick end object PFileCopy: TMenuItem Caption = #12467#12500#12540 OnClick = PFileCopyClick end object PFilePaste: TMenuItem Caption = #12506#12540#12473#12488 OnClick = PFilePasteClick end object PFileSaveAs: TMenuItem Caption = #20445#23384 OnClick = PFileSaveAsClick end object PFileOpen: TMenuItem Caption = #35501#12415#36796#12415 OnClick = PFileOpenClick end object PFileExec: TMenuItem Caption = #38283#12367 OnClick = PFileExecClick end object PFileFolder: TMenuItem Caption = #12501#12457#12523#12480 OnClick = PFileFolderClick end object PFileUpdate: TMenuItem Caption = 'Update' Visible = False OnClick = PFileUpdateClick end object N5: TMenuItem Caption = '-' end object PRowDel: TMenuItem Caption = #34892#21066#38500 OnClick = PRowDelClick end object PRowAdd: TMenuItem Caption = #34892#36861#21152 OnClick = PRowAddClick end object PColDel: TMenuItem Caption = #21015#21066#38500 OnClick = PColDelClick end object PColAdd: TMenuItem Caption = #21015#36861#21152 OnClick = PColAddClick end object PClear: TMenuItem Caption = #12463#12522#12450 OnClick = PClearClick end end object PopupMenu1: TPopupMenu Left = 104 Top = 288 object PTextCut: TMenuItem Caption = #12459#12483#12488 OnClick = PTextCutClick end object PTextCopy: TMenuItem Caption = #12467#12500#12540 OnClick = PTextCopyClick end object PTextPaste: TMenuItem Caption = #12506#12540#12473#12488 OnClick = PTextPasteClick end object PTextSaveAs: TMenuItem Caption = #20445#23384 OnClick = PTextSaveAsClick end object PTextOpen: TMenuItem Caption = #35501#12415#36796#12415 OnClick = PTextOpenClick end object N1: TMenuItem Caption = '-' end object PTextFind: TMenuItem Caption = #26908#32034 OnClick = PTextFindClick end object PTextFindUrl: TMenuItem Caption = #26908#32034'URL' OnClick = PTextFindUrlClick end end object SaveDialog: TSaveDialog Left = 24 Top = 344 end object OpenDialog: TOpenDialog Left = 24 Top = 304 end object IdHTTP: TIdHTTP IOHandler = IdSSLIOHandlerSocketOpenSSL AllowCookies = True ProxyParams.BasicAuthentication = False ProxyParams.ProxyPort = 0 Request.ContentLength = -1 Request.ContentRangeEnd = -1 Request.ContentRangeStart = -1 Request.ContentRangeInstanceLength = -1 Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' Request.BasicAuthentication = False Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' Request.Ranges.Units = 'bytes' Request.Ranges = <> HTTPOptions = [hoForceEncodeParams] Left = 96 Top = 360 end object IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL MaxLineAction = maException Port = 0 DefaultPort = 0 SSLOptions.Mode = sslmUnassigned SSLOptions.VerifyMode = [] SSLOptions.VerifyDepth = 0 Left = 24 Top = 400 end end