From: naru Date: Sat, 30 Nov 2002 18:13:12 +0000 (+0000) Subject: Changed Compiler to Delphi7, Add XPManifest X-Git-Tag: BOTTLE2-22~4 X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=c1818cb564de888e38dfec450542f8535296db4e;p=winbottle%2Fwinbottle.git Changed Compiler to Delphi7, Add XPManifest --- diff --git a/bottleclient/MainForm.dfm b/bottleclient/MainForm.dfm index d882f82..b9ed56f 100755 --- a/bottleclient/MainForm.dfm +++ b/bottleclient/MainForm.dfm @@ -10,7 +10,7 @@ object frmSender: TfrmSender Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = '‚l‚r ‚oƒSƒVƒbƒN' + Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] Menu = MainMenu OldCreateOrder = False @@ -49,7 +49,6 @@ object frmSender: TfrmSender item Width = 50 end> - SimplePanel = False end object ToolBar: TToolBar Left = 0 @@ -109,8 +108,8 @@ object frmSender: TfrmSender object tbtnInsertConst: TToolButton Left = 154 Top = 0 - Hint = '’èŒ^‹å‘}“ü|’èŒ^‹å‚Ì‘}“ü' - Caption = '’èŒ^‹å‘}“ü' + Hint = #23450#22411#21477#25407#20837'|'#23450#22411#21477#12398#25407#20837 + Caption = #23450#22411#21477#25407#20837 DropdownMenu = mnPopupConst ImageIndex = 7 end @@ -136,10 +135,10 @@ object frmSender: TfrmSender Color = clBtnFace EdgeBorders = [ebTop] Flat = True + Menu = ConstBarMenu ParentColor = False ShowCaptions = True TabOrder = 2 - Menu = ConstBarMenu end object MediaPlayer: TMediaPlayer Left = 312 @@ -193,7 +192,7 @@ object frmSender: TfrmSender Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = '‚l‚r ƒSƒVƒbƒN' + Font.Name = #65325#65331' '#12468#12471#12483#12463 Font.Style = [] HideScrollBars = False Lines.Strings = ( @@ -215,6 +214,9 @@ object frmSender: TfrmSender Align = alBottom BevelOuter = bvNone TabOrder = 5 + DesignSize = ( + 516 + 25) object lblMessage: TLabel Left = 72 Top = 9 @@ -225,7 +227,7 @@ object frmSender: TfrmSender Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -11 - Font.Name = '‚l‚r ‚oƒSƒVƒbƒN' + Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] ParentFont = False Visible = False @@ -235,7 +237,7 @@ object frmSender: TfrmSender Top = 3 Width = 91 Height = 18 - Hint = 'IfGhost‚ðŽw’肵‚Ä‘—M‚µ‚Ü‚·' + Hint = 'IfGhost'#12434#25351#23450#12375#12390#36865#20449#12375#12414#12377 Style = csOwnerDrawVariable Anchors = [akRight, akBottom] DropDownCount = 40 @@ -277,7 +279,7 @@ object frmSender: TfrmSender Top = 4 Width = 38 Height = 17 - Hint = 'IfGhost‚ðCH„§‚ɃŠƒZƒbƒg‚µ‚Ü‚·' + Hint = 'IfGhost'#12434'CH'#25512#22888#12395#12522#12475#12483#12488#12375#12414#12377 Anchors = [akRight, akBottom] Caption = '&Ghost' TabOrder = 4 @@ -290,13 +292,13 @@ object frmSender: TfrmSender Left = 296 Top = 72 object mnFile: TMenuItem - Caption = 'ƒtƒ@ƒCƒ‹(&F)' + Caption = #12501#12449#12452#12523'(&F)' object mnSetting: TMenuItem Action = actSetting end object mnStayOnTop: TMenuItem - Caption = 'í‚ÉŽè‘O‚É•\Ž¦(&F)' - Hint = 'í‚ÉŽè‘O‚É•\Ž¦' + Caption = #24120#12395#25163#21069#12395#34920#31034'(&F)' + Hint = #24120#12395#25163#21069#12395#34920#31034 OnClick = mnStayOnTopClick end object mnExit: TMenuItem @@ -304,7 +306,7 @@ object frmSender: TfrmSender end end object mnEdit: TMenuItem - Caption = '•ÒW(&E)' + Caption = #32232#38598'(&E)' object mnCut: TMenuItem Action = actEditCut end @@ -325,7 +327,7 @@ object frmSender: TfrmSender end end object mnRegister: TMenuItem - Caption = '“o˜^(&C)' + Caption = #30331#37682'(&C)' object mnStart: TMenuItem Action = actStart end @@ -361,20 +363,20 @@ object frmSender: TfrmSender end end object mnView: TMenuItem - Caption = '•\Ž¦(&V)' + Caption = #34920#31034'(&V)' object mnEditConst: TMenuItem Tag = -1 Action = actEditConst - Caption = '’èŒ^‹åƒpƒŒƒbƒg(&P)' + Caption = #23450#22411#21477#12497#12524#12483#12488'(&P)' end object mnShowToolBar: TMenuItem - Caption = 'ƒc[ƒ‹ƒo[(&T)' - Hint = 'ƒc[ƒ‹ƒo[‚ð•\Ž¦/”ñ•\Ž¦' + Caption = #12484#12540#12523#12496#12540'(&T)' + Hint = #12484#12540#12523#12496#12540#12434#34920#31034'/'#38750#34920#31034 OnClick = mnShowToolBarClick end object mnShowConstBar: TMenuItem - Caption = '’èŒ^‹åƒo[(&C)' - Hint = '’èŒ^‹åƒo[‚ð•\Ž¦/”ñ•\Ž¦' + Caption = #23450#22411#21477#12496#12540'(&C)' + Hint = #23450#22411#21477#12496#12540#12434#34920#31034'/'#38750#34920#31034 OnClick = mnShowConstBarClick end object N3: TMenuItem @@ -382,7 +384,7 @@ object frmSender: TfrmSender end end object mnScript: TMenuItem - Caption = 'ƒXƒNƒŠƒvƒg(&R)' + Caption = #12473#12463#12522#12503#12488'(&R)' object mnConfirm: TMenuItem Action = actConfirm end @@ -396,49 +398,48 @@ object frmSender: TfrmSender Caption = '-' end object mnColorScript: TMenuItem - Caption = 'ƒXƒNƒŠƒvƒg‚̐F•ª‚¯‚ðs‚¤(&F)' + Caption = #12473#12463#12522#12503#12488#12398#33394#20998#12369#12434#34892#12358'(&F)' Checked = True - Hint = 'ƒXƒNƒŠƒvƒg‚̐F•ª‚¯‚ðs‚¤' + Hint = #12473#12463#12522#12503#12488#12398#33394#20998#12369#12434#34892#12358 ShortCut = 16468 OnClick = mnColorScriptClick end end object mnHelp: TMenuItem - Caption = 'ƒwƒ‹ƒv(&H)' + Caption = #12504#12523#12503'(&H)' object mnGoToHelp: TMenuItem - Caption = 'ƒwƒ‹ƒvƒy[ƒW(&H)' + Caption = #12504#12523#12503#12506#12540#12472'(&H)' ImageIndex = 29 OnClick = mnGoToHelpClick end object mnGoToHP: TMenuItem - Caption = 'SSTP Bottleƒz[ƒ€ƒy[ƒW(&B)' + Caption = 'SSTP Bottle'#12507#12540#12512#12506#12540#12472'(&B)' OnClick = mnGoToHPClick end object mnGotoVote: TMenuItem - Caption = '“Š•[ƒ‰ƒ“ƒLƒ“ƒOƒy[ƒW(&R)' + Caption = #25237#31080#12521#12531#12461#12531#12464#12506#12540#12472'(&R)' OnClick = mnGotoVoteClick end object mnGotoGLog: TMenuItem - Caption = 'ƒS[ƒXƒg‘¨’²¸ƒy[ƒW(&G)' + Caption = #12468#12540#12473#12488#22269#21218#35519#26619#12506#12540#12472'(&G)' OnClick = mnGotoGLogClick end object N4: TMenuItem Caption = '-' end object mnGetNewId: TMenuItem - Caption = '&LUIDŽæ“¾' + Caption = '&LUID'#21462#24471 OnClick = mnGetNewIdClick end object mnAbout: TMenuItem - Caption = 'ƒo[ƒWƒ‡ƒ“î•ñ(&A)...' - Hint = 'ƒo[ƒWƒ‡ƒ“î•ñ' + Caption = #12496#12540#12472#12519#12531#24773#22577'(&A)...' + Hint = #12496#12540#12472#12519#12531#24773#22577 ImageIndex = 15 OnClick = mnAboutClick end end end object ColorDialog: TColorDialog - Ctl3D = True Left = 232 Top = 72 end @@ -447,165 +448,163 @@ object frmSender: TfrmSender Left = 200 Top = 72 object actEditCopy: TEditCopy - Category = '•ÒW' - Caption = 'ƒRƒs[(&C)' - Hint = 'ƒRƒs[' + Category = #32232#38598 + Caption = #12467#12500#12540'(&C)' + Hint = #12467#12500#12540 ImageIndex = 2 ShortCut = 16451 end object actEditCut: TEditCut - Category = '•ÒW' - Caption = 'Ø‚èŽæ‚è(&T)' - Hint = 'Ø‚èŽæ‚è' + Category = #32232#38598 + Caption = #20999#12426#21462#12426'(&T)' + Hint = #20999#12426#21462#12426 ImageIndex = 4 ShortCut = 16472 end object actEditPaste: TEditPaste - Category = '•ÒW' - Caption = '“\‚è•t‚¯(&P)' - Hint = '“\‚è•t‚¯' + Category = #32232#38598 + Caption = #36028#12426#20184#12369'(&P)' + Hint = #36028#12426#20184#12369 ImageIndex = 3 ShortCut = 16470 end object actEditSelectAll: TEditSelectAll - Category = '•ÒW' - Caption = '‚·‚ׂĂð‘I‘ð(&A)' - Hint = '‚·‚ׂĂð‘I‘ð' + Category = #32232#38598 + Caption = #12377#12409#12390#12434#36984#25246'(&A)' + Hint = #12377#12409#12390#12434#36984#25246 ShortCut = 16449 end object actTrans: TAction - Caption = '‘—MŽžŒ`Ž®‚É•ÏŠ·' - Hint = 'ƒXƒNƒŠƒvƒg‚𑗐MŽžŒ`Ž®‚É•ÏŠ·' + Caption = #36865#20449#26178#24418#24335#12395#22793#25563 + Hint = #12473#12463#12522#12503#12488#12434#36865#20449#26178#24418#24335#12395#22793#25563 ImageIndex = 6 ShortCut = 16468 end object actStart: TAction - Caption = 'ƒ`ƒƒƒ“ƒlƒ‹ŽQ‰Á(&S)' - Hint = 'ƒ`ƒƒƒ“ƒlƒ‹ŽQ‰Á|SSTP BottleƒT[ƒo‚ɐڑ±‚µAƒ`ƒƒƒ“ƒlƒ‹‚ÉŽQ‰Á' + Caption = #12481#12515#12531#12493#12523#21442#21152'(&S)' + Hint = #12481#12515#12531#12493#12523#21442#21152'|SSTP Bottle'#12469#12540#12496#12395#25509#32154#12375#12289#12481#12515#12531#12493#12523#12395#21442#21152 ImageIndex = 17 ShortCut = 16467 OnExecute = actStartClick end object actStop: TAction - Caption = '‘Sƒ`ƒƒƒ“ƒlƒ‹‚©‚ç’E‘Þ‚µ‚Ä‹­§ÄÚ‘±(&E)' - Hint = - 'ƒ`ƒƒƒ“ƒlƒ‹‘S’E‘Þ|‚·‚ׂẴ`ƒƒƒ“ƒlƒ‹‚©‚ç’E‘Þ‚µAƒ{ƒgƒ‹ƒT[ƒo‚ɍÄ' + - 'Ú‘±‚ðŽŽ‚Ý‚Ü‚·' + Caption = #20840#12481#12515#12531#12493#12523#12363#12425#33073#36864#12375#12390#24375#21046#20877#25509#32154'(&E)' + Hint = #12481#12515#12531#12493#12523#20840#33073#36864'|'#12377#12409#12390#12398#12481#12515#12531#12493#12523#12363#12425#33073#36864#12375#12289#12508#12488#12523#12469#12540#12496#12395#20877#25509#32154#12434#35430#12415#12414#12377 ImageIndex = 18 ShortCut = 16453 OnExecute = actStopExecute end object actSend: TAction - Caption = '‘—M(&S)' - Hint = '‘—M|Bottle‚Ì‘—M' + Caption = #36865#20449'(&S)' + Hint = #36865#20449'|Bottle'#12398#36865#20449 ImageIndex = 10 ShortCut = 120 OnExecute = actSendExecute end object actConfirm: TAction - Caption = 'Šm”F(&L)' - Hint = 'Šm”F|ƒ[ƒJƒ‹‚ÉSSTP‚𔭍s‚µ‚Ä•¶‚ÌŠm”F' + Caption = #30906#35469'(&L)' + Hint = #30906#35469'|'#12525#12540#12459#12523#12395'SSTP'#12434#30330#34892#12375#12390#25991#12398#30906#35469 ImageIndex = 13 ShortCut = 16460 OnExecute = actConfirmExecute end object actClear: TAction - Caption = 'ƒNƒŠƒA(&C)' - Hint = 'ƒNƒŠƒA|V‚µ‚¢ƒƒbƒZ[ƒW‚ðì¬' + Caption = #12463#12522#12450'(&C)' + Hint = #12463#12522#12450'|'#26032#12375#12356#12513#12483#12475#12540#12472#12434#20316#25104 ImageIndex = 0 OnExecute = actClearExecute end object actEditConst: TAction - Caption = '’èŒ^‹åƒpƒŒƒbƒg•\Ž¦(&E)' - Hint = '’èŒ^‹åƒpƒŒƒbƒg•\Ž¦|’èŒ^‹åƒpƒŒƒbƒg‚ð•\Ž¦' + Caption = #23450#22411#21477#12497#12524#12483#12488#34920#31034'(&E)' + Hint = #23450#22411#21477#12497#12524#12483#12488#34920#31034'|'#23450#22411#21477#12497#12524#12483#12488#12434#34920#31034 ImageIndex = 11 OnExecute = actEditConstExecute end object actCopyAll: TAction - Caption = '‚·‚ׂĂðƒRƒs[(&B)' - Hint = '•ÒW’†‚Ì‘S‚ẴXƒNƒŠƒvƒg‚ðƒNƒŠƒbƒvƒ{[ƒh‚ɃRƒs[' + Caption = #12377#12409#12390#12434#12467#12500#12540'(&B)' + Hint = #32232#38598#20013#12398#20840#12390#12398#12473#12463#12522#12503#12488#12434#12463#12522#12483#12503#12508#12540#12489#12395#12467#12500#12540 OnExecute = actCopyAllExecute end object actCopyAllNoReturn: TAction - Caption = '‚·‚ׂĂð‰üs‚ðœ‚¢‚ăRƒs[(&R)' - Hint = '‰üs‚ðŽæ‚菜‚¢‚Ä1s‚ŃNƒŠƒbƒvƒ{[ƒh‚ɃRƒs[' + Caption = #12377#12409#12390#12434#25913#34892#12434#38500#12356#12390#12467#12500#12540'(&R)' + Hint = #25913#34892#12434#21462#12426#38500#12356#12390'1'#34892#12391#12463#12522#12483#12503#12508#12540#12489#12395#12467#12500#12540 OnExecute = actCopyAllNoReturnExecute end object actSetting: TAction - Caption = 'Ý’è(&S)...' - Hint = 'Ý’è|ŠeŽíÝ’èƒ_ƒCƒAƒƒO‚ð•\Ž¦' + Caption = #35373#23450'(&S)...' + Hint = #35373#23450'|'#21508#31278#35373#23450#12480#12452#12450#12525#12464#12434#34920#31034 ImageIndex = 5 OnExecute = actSettingExecute end object actExitClient: TAction - Caption = 'ClientI—¹(&X)' - Hint = 'SSTP Bottle Client‚̏I—¹' + Caption = 'Client'#32066#20102'(&X)' + Hint = 'SSTP Bottle Client'#12398#32066#20102 ImageIndex = 14 OnExecute = actExitClientExecute end object actClearBottles: TAction - Caption = '–¢”z‘—Bottleíœ(&D)' - Hint = '‚Ü‚¾”z‘—‚³‚ê‚Ä‚¢‚È‚¢Bottle‚ª‚ ‚ê‚΁A‚»‚ê‚ð‘S•”Á‹Ž‚µ‚Ü‚·B' + Caption = #26410#37197#36865'Bottle'#21066#38500'(&D)' + Hint = #12414#12384#37197#36865#12373#12428#12390#12356#12394#12356'Bottle'#12364#12354#12428#12400#12289#12381#12428#12434#20840#37096#28040#21435#12375#12414#12377#12290 ImageIndex = 21 OnExecute = actClearBottlesExecute end object actPrevChannel: TAction - Caption = '‘O‚̃`ƒƒƒ“ƒlƒ‹(&P)' - Hint = '‘O‚̃`ƒƒƒ“ƒlƒ‹‚Ɉړ®' + Caption = #21069#12398#12481#12515#12531#12493#12523'(&P)' + Hint = #21069#12398#12481#12515#12531#12493#12523#12395#31227#21205 ImageIndex = 34 ShortCut = 16421 OnExecute = actPrevChannelExecute end object actNextChannel: TAction - Caption = 'ŽŸ‚̃`ƒƒƒ“ƒlƒ‹(&N)' - Hint = 'ŽŸ‚̃`ƒƒƒ“ƒlƒ‹‚Ɉړ®' + Caption = #27425#12398#12481#12515#12531#12493#12523'(&N)' + Hint = #27425#12398#12481#12515#12531#12493#12523#12395#31227#21205 ImageIndex = 35 ShortCut = 16423 OnExecute = actNextChannelExecute end object actShowLog: TAction - Caption = 'ƒƒO‰æ–Ê•\Ž¦(&L)' - Hint = 'ƒƒO•\Ž¦|BottleƒƒOƒEƒBƒ“ƒhƒE‚ð•\Ž¦‚µ‚Ü‚·' + Caption = #12525#12464#30011#38754#34920#31034'(&L)' + Hint = #12525#12464#34920#31034'|Bottle'#12525#12464#12454#12451#12531#12489#12454#12434#34920#31034#12375#12414#12377 ImageIndex = 25 OnExecute = actShowLogExecute end object actSleep: TAction - Caption = '”z‘—ƒXƒŠ[ƒv(&L)' - Hint = '”z‘—ƒXƒŠ[ƒv|ŽóM‚µ‚½ƒ{ƒgƒ‹‚Ì”z‘—‚ðƒXƒŠ[ƒv‚µ‚Ü‚·' + Caption = #37197#36865#12473#12522#12540#12503'(&L)' + Hint = #37197#36865#12473#12522#12540#12503'|'#21463#20449#12375#12383#12508#12488#12523#12398#37197#36865#12434#12473#12522#12540#12503#12375#12414#12377 ImageIndex = 19 ShortCut = 16465 OnExecute = actSleepExecute end object actVoteMessage: TAction - Caption = '‚±‚ÌBottle‚É“Š•[' + Caption = #12371#12398'Bottle'#12395#25237#31080 Enabled = False - Hint = '‚±‚ÌBottle‚É“Š•[‚·‚é' + Hint = #12371#12398'Bottle'#12395#25237#31080#12377#12427 ImageIndex = 28 OnExecute = actVoteMessageExecute end object actAgreeMessage: TAction - Caption = '‚±‚ÌBottle‚É“¯ˆÓ' + Caption = #12371#12398'Bottle'#12395#21516#24847 Enabled = False - Hint = '‚±‚ÌBottle‚É“¯ˆÓ‚·‚é' + Hint = #12371#12398'Bottle'#12395#21516#24847#12377#12427 ImageIndex = 32 OnExecute = actAgreeMessageExecute end object actPrevGhost: TAction - Caption = '‘O‚̃S[ƒXƒg(&B)' - Hint = '‘O‚Ì‘—MæƒS[ƒXƒg‚ð‘I‘ð' + Caption = #21069#12398#12468#12540#12473#12488'(&B)' + Hint = #21069#12398#36865#20449#20808#12468#12540#12473#12488#12434#36984#25246 ImageIndex = 23 ShortCut = 16422 OnExecute = actPrevGhostExecute end object actNextGhost: TAction - Caption = 'ŽŸ‚̃S[ƒXƒg(&F)' - Hint = 'ŽŸ‚Ì‘—MæƒS[ƒXƒg‚ð‘I‘ð' + Caption = #27425#12398#12468#12540#12473#12488'(&F)' + Hint = #27425#12398#36865#20449#20808#12468#12540#12473#12488#12434#36984#25246 ImageIndex = 24 ShortCut = 16424 OnExecute = actNextGhostExecute end object actResetGhost: TAction - Caption = '‘—MæƒS[ƒXƒgƒŠƒZƒbƒg' + Caption = #36865#20449#20808#12468#12540#12473#12488#12522#12475#12483#12488 ShortCut = 16462 OnExecute = actResetGhostExecute end @@ -616,8 +615,8 @@ object frmSender: TfrmSender Top = 72 object mnPopConst: TMenuItem Tag = -1 - Caption = '’èŒ^‹å‘}“ü' - Hint = '’èŒ^‹å‘}“ü' + Caption = #23450#22411#21477#25407#20837 + Hint = #23450#22411#21477#25407#20837 ImageIndex = 7 end object N6: TMenuItem @@ -681,15 +680,15 @@ object frmSender: TfrmSender Action = actStop end object mnTaskNewMessage: TMenuItem - Caption = 'V‹KƒƒbƒZ[ƒW‚ð‘‚­(&N)' - Hint = 'Œ³‚̃TƒCƒY‚É–ß‚µ‚½‚ ‚ƃNƒŠƒA' + Caption = #26032#35215#12513#12483#12475#12540#12472#12434#26360#12367'(&N)' + Hint = #20803#12398#12469#12452#12474#12395#25147#12375#12383#12354#12392#12463#12522#12450 ShortCut = 16462 OnClick = mnTaskNewMessageClick end object mnTaskRestore: TMenuItem - Caption = 'Œ³‚̃TƒCƒY‚É–ß‚·(&R)' + Caption = #20803#12398#12469#12452#12474#12395#25147#12377'(&R)' Default = True - Hint = 'ƒƒCƒ“ƒEƒBƒ“ƒhƒE‚ð•\Ž¦' + Hint = #12513#12452#12531#12454#12451#12531#12489#12454#12434#34920#31034 OnClick = mnTaskRestoreClick end end @@ -2049,15 +2048,15 @@ object frmSender: TfrmSender Left = 8 Top = 110 object mnLeaveThisChannel: TMenuItem - Caption = '‚±‚̃`ƒƒƒ“ƒlƒ‹‚©‚甲‚¯‚é' + Caption = #12371#12398#12481#12515#12531#12493#12523#12363#12425#25244#12369#12427 OnClick = mnLeaveThisChannelClick end object mnCanAutoAdd: TMenuItem - Caption = '‚±‚̃`ƒƒƒ“ƒlƒ‹‚ÍŽ©“®‰Á“ü‚̑ΏÛ' + Caption = #12371#12398#12481#12515#12531#12493#12523#12399#33258#21205#21152#20837#12398#23550#35937 OnClick = mnCanAutoAddClick end object mnWarnPost: TMenuItem - Caption = '‚±‚̃`ƒƒƒ“ƒlƒ‹‚É“Še‚·‚é‚Æ‚«Šm”F‚·‚é' + Caption = #12371#12398#12481#12515#12531#12493#12523#12395#25237#31295#12377#12427#12392#12365#30906#35469#12377#12427 OnClick = mnWarnPostClick end end @@ -2096,4 +2095,8 @@ object frmSender: TfrmSender Left = 328 Top = 70 end + object XPManifest: TXPManifest + Left = 80 + Top = 112 + end end diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas index 69bfde5..55a080c 100755 --- a/bottleclient/MainForm.pas +++ b/bottleclient/MainForm.pas @@ -4,13 +4,13 @@ interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - Menus, StdCtrls, ComCtrls, Psock, BRegExp, BottleDef, + Menus, StdCtrls, ComCtrls, BRegExp, BottleDef, IniFiles, ExtCtrls, ShellAPI, StdActns, ActnList, ConstList, ConstEditor, AppEvnts, TaskTray, ImgList, ToolWin, Buttons, MenuBar, RichEdit, Clipbrd, ColorCBX, SsParser, MPlayer, SakuraSeeker, HeadValue, SakuraAPI, Logs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdSLPP20, - IdException, HttpThread, IdHTTP, IdURI, DirectSstp; + IdException, HttpThread, IdHTTP, IdURI, DirectSstp, XPMan; type TfrmSender = class(TForm) @@ -141,6 +141,7 @@ type mnResetGhost: TMenuItem; timDisconnectCheckTimer: TTimer; DirectSstp: TDirectSstp; + XPManifest: TXPManifest; procedure actConfirmExecute(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); diff --git a/bottleclient/SettingForm.dfm b/bottleclient/SettingForm.dfm index 7f44193..c4c018a 100755 --- a/bottleclient/SettingForm.dfm +++ b/bottleclient/SettingForm.dfm @@ -3,20 +3,23 @@ object frmSetting: TfrmSetting Top = 192 Anchors = [akLeft, akTop, akRight, akBottom] BorderStyle = bsDialog - Caption = 'Ý’è' + Caption = #35373#23450 ClientHeight = 348 ClientWidth = 371 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = '‚l‚r ‚oƒSƒVƒbƒN' + Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] OldCreateOrder = False Position = poMainFormCenter Scaled = False ShowHint = True OnClose = FormClose + DesignSize = ( + 371 + 348) PixelsPerInch = 96 TextHeight = 12 object PageControl: TPageControl @@ -24,35 +27,35 @@ object frmSetting: TfrmSetting Top = 8 Width = 356 Height = 306 - ActivePage = tstReceive + ActivePage = tstGeneral Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 object tstGeneral: TTabSheet - Caption = 'ˆê”Ê' + Caption = #19968#33324 object lblDefaultScript: TLabel Left = 8 Top = 16 Width = 265 Height = 12 - Caption = 'ƒNƒŠƒAŽž‚̏‰ŠúƒXƒNƒŠƒvƒg(c–_"|"‚̈ʒu‚ɃJ[ƒ\ƒ‹)' + Caption = #12463#12522#12450#26178#12398#21021#26399#12473#12463#12522#12503#12488'('#32294#26834'"|"'#12398#20301#32622#12395#12459#12540#12477#12523')' end object lblGhostDropDownCount: TLabel Left = 16 Top = 200 Width = 143 Height = 12 - Caption = 'IfGhostÅ‘åƒhƒƒbƒvƒ_ƒEƒ“”' + Caption = 'IfGhost'#26368#22823#12489#12525#12483#12503#12480#12454#12531#25968 end object memDefaultScript: TMemo Left = 8 Top = 32 Width = 329 Height = 41 - Hint = 'ƒNƒŠƒAƒ{ƒ^ƒ“‚ð‰Ÿ‚µ‚½‚Æ‚«‚̏‰ŠúƒXƒNƒŠƒvƒg‚ðÝ’è' + Hint = #12463#12522#12450#12508#12479#12531#12434#25276#12375#12383#12392#12365#12398#21021#26399#12473#12463#12522#12503#12488#12434#35373#23450 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = '‚l‚r ƒSƒVƒbƒN' + Font.Name = #65325#65331' '#12468#12471#12483#12463 Font.Style = [] ParentFont = False ScrollBars = ssVertical @@ -63,15 +66,15 @@ object frmSetting: TfrmSetting Top = 80 Width = 329 Height = 49 - Caption = 'ƒ[ƒJƒ‹Šm”F' + Caption = #12525#12540#12459#12523#30906#35469 TabOrder = 1 object cbxIgnoreTimeCritical: TCheckBox Left = 16 Top = 20 Width = 161 Height = 17 - Hint = 'ƒ[ƒJƒ‹Šm”FŽž‚É\t‚𑗐M‚µ‚È‚¢‚±‚Æ‚Å‘¼‚ÌSSTP‚ª•\Ž¦‚³‚ê‚â‚·‚­‚·‚é' - Caption = 'ƒ[ƒJƒ‹Šm”FŽž‚É\t‚𖳎‹' + Hint = #12525#12540#12459#12523#30906#35469#26178#12395'\t'#12434#36865#20449#12375#12394#12356#12371#12392#12391#20182#12398'SSTP'#12364#34920#31034#12373#12428#12420#12377#12367#12377#12427 + Caption = #12525#12540#12459#12523#30906#35469#26178#12395'\t'#12434#28961#35222 Checked = True State = cbChecked TabOrder = 0 @@ -82,8 +85,8 @@ object frmSetting: TfrmSetting Top = 224 Width = 313 Height = 17 - Hint = 'Bottle Client‹N“®Žž‚ɁAŽ©“®“I‚ÉŽw’è‚̃`ƒƒƒ“ƒlƒ‹‚ÉŽQ‰Á‚µ‚Ü‚·' - Caption = '‹N“®Žž‚ÉŽ©“®“I‚ɁAŽ©“®ŽQ‰Á‘Ώۃ`ƒƒƒ“ƒlƒ‹‚ɉÁ“ü' + Hint = 'Bottle Client'#36215#21205#26178#12395#12289#33258#21205#30340#12395#25351#23450#12398#12481#12515#12531#12493#12523#12395#21442#21152#12375#12414#12377 + Caption = #36215#21205#26178#12395#33258#21205#30340#12395#12289#33258#21205#21442#21152#23550#35937#12481#12515#12531#12493#12523#12395#21152#20837 TabOrder = 2 end object rgpTabPosition: TRadioGroup @@ -91,12 +94,12 @@ object frmSetting: TfrmSetting Top = 136 Width = 329 Height = 49 - Hint = 'ƒ`ƒƒƒ“ƒlƒ‹ƒ^ƒu‚̈ʒu‚ð•ÏX' - Caption = 'ƒ`ƒƒƒ“ƒlƒ‹ƒ^ƒu‚̈ʒu' + Hint = #12481#12515#12531#12493#12523#12479#12502#12398#20301#32622#12434#22793#26356 + Caption = #12481#12515#12531#12493#12523#12479#12502#12398#20301#32622 Columns = 2 Items.Strings = ( - 'ã' - '‰º') + #19978 + #19979) TabOrder = 3 end object cbxNoSendGhostList: TCheckBox @@ -104,8 +107,8 @@ object frmSetting: TfrmSetting Top = 240 Width = 281 Height = 17 - Hint = 'SSTP Bottle‘¨’²¸‚Ì‚½‚߂̃S[ƒXƒgƒŠƒXƒg‚𑗐M‚µ‚Ü‚¹‚ñ' - Caption = '‘¨’²¸‚É‹¦—Í‚µ‚È‚¢' + Hint = 'SSTP Bottle'#22269#21218#35519#26619#12398#12383#12417#12398#12468#12540#12473#12488#12522#12473#12488#12434#36865#20449#12375#12414#12379#12435 + Caption = #22269#21218#35519#26619#12395#21332#21147#12375#12394#12356 TabOrder = 4 end object cbxConfirmOnExit: TCheckBox @@ -113,8 +116,8 @@ object frmSetting: TfrmSetting Top = 256 Width = 281 Height = 17 - Hint = 'Client‚̏I—¹Žž‚ÉŠm”FƒƒbƒZ[ƒW‚ðo‚µ‚Ü‚·' - Caption = 'ƒAƒvƒŠƒP[ƒVƒ‡ƒ“‚̏I—¹Žž‚ÉŠm”F‚·‚é' + Hint = 'Client'#12398#32066#20102#26178#12395#30906#35469#12513#12483#12475#12540#12472#12434#20986#12375#12414#12377 + Caption = #12450#12503#12522#12465#12540#12471#12519#12531#12398#32066#20102#26178#12395#30906#35469#12377#12427 TabOrder = 5 end object spnGhostDropDownCount: TSpinEdit @@ -129,29 +132,29 @@ object frmSetting: TfrmSetting end end object tstColor: TTabSheet - Caption = 'F•ª‚¯' + Caption = #33394#20998#12369 ImageIndex = 1 object lblColorTimeLag: TLabel Left = 8 Top = 184 Width = 225 Height = 12 - Caption = 'F•ª‚¯’x‰„(‰E‚É‚¢‚­‚Ù‚Ç’x‚ê‚ĐF•ª‚¯ŠJŽn)' + Caption = #33394#20998#12369#36933#24310'('#21491#12395#12356#12367#12411#12393#36933#12428#12390#33394#20998#12369#38283#22987')' end object lblColorSpeed: TLabel Left = 8 Top = 226 Width = 285 Height = 12 - Caption = 'F•ª‚¯ƒXƒs[ƒh(‘¬‚·‚¬‚é‚ƃL[ƒ{[ƒh‚Ì”½‰ž‚ª“Ý‚è‚Ü‚·)' + Caption = #33394#20998#12369#12473#12500#12540#12489'('#36895#12377#12366#12427#12392#12461#12540#12508#12540#12489#12398#21453#24540#12364#37389#12426#12414#12377')' end object cbxColorScript: TCheckBox Left = 8 Top = 16 Width = 201 Height = 17 - Hint = 'ƒ`ƒFƒbƒN‚ð‰ðœ‚·‚é‚Æ‘¬“x‚Í‘¬“x‚Í‘¬‚­‚Ȃ邪Œ©‚Â炢' - Caption = 'ƒXƒNƒŠƒvƒgF•ª‚¯‚ðs‚¤' + Hint = #12481#12455#12483#12463#12434#35299#38500#12377#12427#12392#36895#24230#12399#36895#24230#12399#36895#12367#12394#12427#12364#35211#12389#12425#12356 + Caption = #12473#12463#12522#12503#12488#33394#20998#12369#12434#34892#12358 TabOrder = 0 end object trkColorTimeLag: TTrackBar @@ -159,85 +162,74 @@ object frmSetting: TfrmSetting Top = 200 Width = 200 Height = 25 - Hint = '‚¿‚ç‚‚©‚È‚¢”͈͂łł«‚邾‚¯¬‚³‚¢’l‚ð‘I‚Ô' + Hint = #12385#12425#12388#12363#12394#12356#31684#22258#12391#12391#12365#12427#12384#12369#23567#12373#12356#20516#12434#36984#12406 Max = 1000 - Orientation = trHorizontal PageSize = 100 Frequency = 100 Position = 500 - SelEnd = 0 - SelStart = 0 TabOrder = 1 ThumbLength = 15 - TickMarks = tmBottomRight - TickStyle = tsAuto end object trkColorSpeed: TTrackBar Left = 16 Top = 240 Width = 200 Height = 25 - Hint = 'ƒpƒtƒH[ƒ}ƒ“ƒX‚ɉe‹¿‚ª‚È‚¢”͈͂łł«‚邾‚¯‘å‚«‚­‚·‚é' + Hint = #12497#12501#12457#12540#12510#12531#12473#12395#24433#38911#12364#12394#12356#31684#22258#12391#12391#12365#12427#12384#12369#22823#12365#12367#12377#12427 Max = 25 Min = 5 - Orientation = trHorizontal - Frequency = 1 Position = 10 - SelEnd = 0 - SelStart = 0 TabOrder = 2 ThumbLength = 15 - TickMarks = tmBottomRight - TickStyle = tsAuto end object grpColor: TGroupBox Left = 8 Top = 40 Width = 337 Height = 137 - Caption = 'F' + Caption = #33394 TabOrder = 3 object Label4: TLabel Left = 176 Top = 56 Width = 66 Height = 12 - Caption = 'ƒƒ^•¶Žš—ñF' + Caption = #12513#12479#25991#23383#21015#33394 end object Label2: TLabel Left = 176 Top = 16 Width = 79 Height = 12 - Caption = '‚¤‚ɂイƒZƒŠƒtF' + Caption = #12358#12395#12421#12358#12475#12522#12501#33394 end object Label1: TLabel Left = 16 Top = 16 Width = 66 Height = 12 - Caption = '–{‘̃ZƒŠƒtF' + Caption = #26412#20307#12475#12522#12501#33394 end object Label3: TLabel Left = 16 Top = 56 Width = 32 Height = 12 - Caption = 'ƒ^ƒOF' + Caption = #12479#12464#33394 end object Label5: TLabel Left = 16 Top = 96 Width = 109 Height = 12 - Caption = 'ƒ}[ƒNƒAƒbƒvƒGƒ‰[F' + Caption = #12510#12540#12463#12450#12483#12503#12456#12521#12540#33394 end object Label8: TLabel Left = 176 Top = 96 Width = 36 Height = 12 - Caption = '”wŒiF' + Caption = #32972#26223#33394 end object colTalkColorU: TColorCBox Left = 175 @@ -326,21 +318,21 @@ object frmSetting: TfrmSetting end end object tstKeys: TTabSheet - Caption = 'ƒL[' + Caption = #12461#12540 ImageIndex = 3 object rgpWhenReturn: TRadioGroup Left = 8 Top = 16 Width = 329 Height = 65 - Caption = 'EnterƒL[‚Å‚Ì“®ì' + Caption = 'Enter'#12461#12540#12391#12398#21205#20316 Columns = 2 ItemIndex = 2 Items.Strings = ( - '\n‘}“ü' - '‰üs‚Ì‚Ý' - '\n‘}“ü+‰üs' - '’èŒ^‹å‘}“ü') + '\n'#25407#20837 + #25913#34892#12398#12415 + '\n'#25407#20837'+'#25913#34892 + #23450#22411#21477#25407#20837) TabOrder = 0 end object rgpWhenShiftReturn: TRadioGroup @@ -348,14 +340,14 @@ object frmSetting: TfrmSetting Top = 88 Width = 329 Height = 65 - Caption = 'Shift+EnterƒL[‚Å‚Ì“®ì' + Caption = 'Shift+Enter'#12461#12540#12391#12398#21205#20316 Columns = 2 ItemIndex = 3 Items.Strings = ( - '\n‘}“ü' - '‰üs‚Ì‚Ý' - '\n‘}“ü+‰üs' - '’èŒ^‹å‘}“ü') + '\n'#25407#20837 + #25913#34892#12398#12415 + '\n'#25407#20837'+'#25913#34892 + #23450#22411#21477#25407#20837) TabOrder = 1 end object rgpWhenCtrlReturn: TRadioGroup @@ -363,33 +355,33 @@ object frmSetting: TfrmSetting Top = 160 Width = 329 Height = 65 - Caption = 'Ctrl+EnterƒL[‚Å‚Ì“®ì' + Caption = 'Ctrl+Enter'#12461#12540#12391#12398#21205#20316 Columns = 2 ItemIndex = 1 Items.Strings = ( - '\n‘}“ü' - '‰üs‚Ì‚Ý' - '\n‘}“ü+‰üs' - '’èŒ^‹å‘}“ü') + '\n'#25407#20837 + #25913#34892#12398#12415 + '\n'#25407#20837'+'#25913#34892 + #23450#22411#21477#25407#20837) TabOrder = 2 end end object tstReceive: TTabSheet - Caption = 'ŽóM/‘—M' + Caption = #21463#20449'/'#36865#20449 ImageIndex = 4 object lblWaitScriptEnd: TLabel Left = 16 Top = 208 Width = 158 Height = 12 - Caption = 'ƒXƒNƒŠƒvƒg‚̍Ōã‚ɃEƒFƒCƒg‘}“ü' + Caption = #12473#12463#12522#12503#12488#12398#26368#24460#12395#12454#12455#12452#12488#25407#20837 end object spnWaitScriptEnd: TSpinEdit Left = 184 Top = 202 Width = 65 Height = 21 - Hint = '’PˆÊ‚Í50msB9‚Å\w9‚ð‘}“ü‚·‚é' + Hint = #21336#20301#12399'50ms'#12290'9'#12391'\w9'#12434#25407#20837#12377#12427 MaxValue = 100 MinValue = 0 TabOrder = 0 @@ -436,7 +428,7 @@ object frmSetting: TfrmSetting end end object tstChannel: TTabSheet - Caption = 'ƒ`ƒƒƒ“ƒlƒ‹' + Caption = #12481#12515#12531#12493#12523 ImageIndex = 4 object tvwChannels: TTreeView Left = 8 @@ -457,12 +449,12 @@ object frmSetting: TfrmSetting Top = 64 Width = 177 Height = 65 - Hint = '‚±‚̃`ƒƒƒ“ƒlƒ‹‚Ō•ʐݒè‚ðs‚¤' - Caption = 'ƒ`ƒƒƒ“ƒlƒ‹ŒÂ•ÊÝ’è' + Hint = #12371#12398#12481#12515#12531#12493#12523#12391#20491#21029#35373#23450#12434#34892#12358 + Caption = #12481#12515#12531#12493#12523#20491#21029#35373#23450 ItemIndex = 1 Items.Strings = ( - 'Žg—p‚·‚é' - 'Žg—p‚µ‚È‚¢') + #20351#29992#12377#12427 + #20351#29992#12375#12394#12356) TabOrder = 1 OnClick = rgpUseChannelPrefsClick end @@ -478,7 +470,7 @@ object frmSetting: TfrmSetting Top = 104 Width = 161 Height = 20 - Hint = '‰¹ºƒtƒ@ƒCƒ‹–¼' + Hint = #38899#22768#12501#12449#12452#12523#21517 Color = clWhite DeactiveColor = clWindow EditStyle = esAlwaysEllipses @@ -491,11 +483,9 @@ object frmSetting: TfrmSetting Top = 88 Width = 177 Height = 17 - Hint = - 'Bottle“ž’…Žž‚É‚¨’m‚点‰¹‚ð–‚炷BŠDF•\Ž¦‚́uƒfƒtƒHƒ‹ƒgÝ’è‚ɏ]' + - '‚¤v' + Hint = 'Bottle'#21040#30528#26178#12395#12362#30693#12425#12379#38899#12434#40180#12425#12377#12290#28784#33394#34920#31034#12399#12300#12487#12501#12457#12523#12488#35373#23450#12395#24467#12358#12301 AllowGrayed = True - Caption = 'ŽóMŽž‚ɉ¹‚ð–‚炷' + Caption = #21463#20449#26178#12395#38899#12434#40180#12425#12377 TabOrder = 1 OnClick = cbxSoundArrivedClick end @@ -504,17 +494,15 @@ object frmSetting: TfrmSetting Top = 8 Width = 177 Height = 65 - Caption = '‘—MæƒS[ƒXƒg' + Caption = #36865#20449#20808#12468#12540#12473#12488 TabOrder = 2 object cbxIgnoreIfGhost: TCheckBox Left = 8 Top = 40 Width = 145 Height = 17 - Hint = - 'IfGhost‚‚«‚Å‘—‚ç‚ê‚Ä‚«‚½ƒS[ƒXƒg‚àAã‹L‚Ì‘—MæƒS[ƒXƒg‚É‹­§' + - '“I‚É‘—M' - Caption = 'IfGhost‚ÌŽw’è‚𖳎‹' + Hint = 'IfGhost'#12388#12365#12391#36865#12425#12428#12390#12365#12383#12468#12540#12473#12488#12418#12289#19978#35352#12398#36865#20449#20808#12468#12540#12473#12488#12395#24375#21046#30340#12395#36865#20449 + Caption = 'IfGhost'#12398#25351#23450#12434#28961#35222 TabOrder = 0 OnClick = cbxIgnoreIfGhostClick end @@ -523,7 +511,7 @@ object frmSetting: TfrmSetting Top = 16 Width = 161 Height = 20 - Hint = '‘—Mæ‚̃S[ƒXƒg‚ðŽw’è' + Hint = #36865#20449#20808#12398#12468#12540#12473#12488#12434#25351#23450 ItemHeight = 12 TabOrder = 1 OnChange = cbxTargetGhostChange @@ -535,8 +523,8 @@ object frmSetting: TfrmSetting Top = 8 Width = 177 Height = 17 - Hint = '‹N“®Žž‚É‚±‚̃`ƒƒƒ“ƒlƒ‹‚ÉŽ©“®ŽQ‰Á‚·‚é' - Caption = 'Ž©“®ŽQ‰Á‚̑ΏÛ' + Hint = #36215#21205#26178#12395#12371#12398#12481#12515#12531#12493#12523#12395#33258#21205#21442#21152#12377#12427 + Caption = #33258#21205#21442#21152#12398#23550#35937 TabOrder = 3 OnClick = cbxCanAutoAddClick end @@ -545,7 +533,7 @@ object frmSetting: TfrmSetting Top = 32 Width = 177 Height = 17 - Caption = '“Še‘O‚ÉŠm”F‚·‚é' + Caption = #25237#31295#21069#12395#30906#35469#12377#12427 TabOrder = 4 OnClick = cbxWarnPostClick end @@ -558,11 +546,11 @@ object frmSetting: TfrmSetting Top = 24 Width = 197 Height = 12 - Caption = '¦•ÏX‚ÍŽŸ‰ñÄÚ‘±Žž‚©‚ç—LŒø‚Å‚·B' + Caption = #8251#22793#26356#12399#27425#22238#20877#25509#32154#26178#12363#12425#26377#21177#12391#12377#12290 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = '‚l‚r ‚oƒSƒVƒbƒN' + Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] ParentFont = False end @@ -571,28 +559,28 @@ object frmSetting: TfrmSetting Top = 80 Width = 321 Height = 97 - Caption = 'HTTP ProxyÝ’è' + Caption = 'HTTP Proxy'#35373#23450 TabOrder = 0 object lblProxyAddress: TLabel Left = 16 Top = 28 Width = 40 Height = 12 - Caption = 'ƒAƒhƒŒƒX' + Caption = #12450#12489#12524#12473 end object lblProxyPort: TLabel Left = 16 Top = 60 Width = 31 Height = 12 - Caption = 'ƒ|[ƒg' + Caption = #12509#12540#12488 end object edtProxyAddress: TEdit Left = 64 Top = 24 Width = 225 Height = 20 - Hint = 'ProxyƒT[ƒo‚̃AƒhƒŒƒX' + Hint = 'Proxy'#12469#12540#12496#12398#12450#12489#12524#12473 TabOrder = 0 end object edtProxyPort: TEdit @@ -600,7 +588,7 @@ object frmSetting: TfrmSetting Top = 56 Width = 81 Height = 20 - Hint = 'ProxyƒT[ƒo‚̃|[ƒg”ԍ†' + Hint = 'Proxy'#12469#12540#12496#12398#12509#12540#12488#30058#21495 TabOrder = 1 OnKeyPress = edtProxyPortKeyPress end @@ -610,8 +598,8 @@ object frmSetting: TfrmSetting Top = 56 Width = 153 Height = 17 - Hint = 'HTTP Proxy‚ð’Ê‚¶‚ă{ƒgƒ‹ƒT[ƒo‚ɐڑ±‚µ‚Ü‚·' - Caption = 'HTTP Proxy‚ðŽg—p‚·‚é' + Hint = 'HTTP Proxy'#12434#36890#12376#12390#12508#12488#12523#12469#12540#12496#12395#25509#32154#12375#12414#12377 + Caption = 'HTTP Proxy'#12434#20351#29992#12377#12427 TabOrder = 1 end end @@ -622,13 +610,12 @@ object frmSetting: TfrmSetting Width = 75 Height = 25 Anchors = [akRight, akBottom] - Caption = '•Â‚¶‚é' + Caption = #38281#12376#12427 Default = True ModalResult = 1 TabOrder = 1 end object ColorDialog: TColorDialog - Ctl3D = True Left = 12 Top = 319 end