From 50d60dd71a1e103aec5399988b6da3ff16b18e57 Mon Sep 17 00:00:00 2001 From: naru Date: Fri, 12 Mar 2004 06:33:13 +0000 Subject: [PATCH] =?utf8?q?=E3=83=81=E3=83=A3=E3=83=B3=E3=83=8D=E3=83=AB?= =?utf8?q?=E3=82=BF=E3=83=96=E3=81=AE=E5=B9=85=E3=82=92=E6=89=8B=E5=8B=95?= =?utf8?q?=E3=81=A7=E6=B1=BA=E3=82=81=E3=82=89=E3=82=8C=E3=82=8B=E8=A8=AD?= =?utf8?q?=E5=AE=9A=E9=A0=85=E7=9B=AE=E8=BF=BD=E5=8A=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bottleclient/BottleDef.pas | 10 ++ bottleclient/MainForm.dfm | 15 ++- bottleclient/MainForm.pas | 1 + bottleclient/SettingForm.dfm | 302 +++++++++++++++++++++++-------------------- bottleclient/SettingForm.pas | 37 ++++++ 5 files changed, 221 insertions(+), 144 deletions(-) diff --git a/bottleclient/BottleDef.pas b/bottleclient/BottleDef.pas index b0082e3..f6e05e1 100755 --- a/bottleclient/BottleDef.pas +++ b/bottleclient/BottleDef.pas @@ -93,6 +93,7 @@ type FPlayTimeParams: TSsPlayTimeParams; FBottleServerPort: integer; FBottleServer: String; + FTabWidth: integer; procedure SetDblClkInsert(const Value: boolean); procedure SetDefaultScript(const Value: String); procedure SetIgnoreTimeCritical(const Value: boolean); @@ -157,6 +158,7 @@ type procedure SetPartialConfirmFormat(const Value: String); procedure SetAutoPartialConfirm(const Value: boolean); procedure SetPlayTimeParams(const Value: TSsPlayTimeParams); + procedure SetTabWidth(const Value: integer); protected function InScreen(ARect: TRect): boolean; public @@ -169,6 +171,7 @@ type property AutoClip: boolean read FAutoClip write SetAutoClip; property AutoStart: boolean read FAutoStart write SetAutoStart; property TabPosition: TTabPosition read FTabPosition write SetTabPosition; + property TabWidth: integer read FTabWidth write SetTabWidth; property GhostDropDownCount: integer read FGhostDropDownCount write SetGhostDropDownCount; property NoTranslate: boolean read FNoTranslate write SetNoTranslate; property NoDescript: boolean read FNoDescript write SetNoDescript; @@ -517,6 +520,7 @@ begin AutoClip := FIni.ReadBool('System', 'AutoClip', false); AutoStart := FIni.ReadBool('System', 'AutoStart', false); TabPosition := TTabPosition(FIni.ReadInteger('System', 'TabPosition', 0)); + TabWidth := FIni.ReadInteger('System', 'TabWidth', 0); GhostDropDownCount := FIni.ReadInteger('System', 'GhostDropDownCount', 30); NoTranslate := FIni.ReadBool('System', 'NoTranslate', true); @@ -909,6 +913,7 @@ begin FIni.WriteBool('System', 'AutoClip', AutoClip); FIni.WriteBool('System', 'AutoStart', AutoStart); FIni.WriteInteger('System', 'TabPosition', Ord(TabPosition)); + FIni.WriteInteger('System', 'TabWidth', TabWidth); FIni.WriteInteger('System', 'GhostDropDownCount', GhostDropDownCount); FIni.WriteBool('System', 'NoTranslate', NoTranslate); @@ -1109,6 +1114,11 @@ begin FPlayTimeParams.Assign(Value); end; +procedure TBottlePrefs.SetTabWidth(const Value: integer); +begin + FTabWidth := Value; +end; + { TChannelListItem } procedure TChannelListItem.SetGhost(const Value: String); diff --git a/bottleclient/MainForm.dfm b/bottleclient/MainForm.dfm index 4be4ed2..6e54092 100755 --- a/bottleclient/MainForm.dfm +++ b/bottleclient/MainForm.dfm @@ -27,7 +27,7 @@ object frmSender: TfrmSender TextHeight = 12 object StatusBar: TStatusBar Left = 0 - Top = 236 + Top = 233 Width = 526 Height = 19 Panels = < @@ -170,14 +170,14 @@ object frmSender: TfrmSender Left = 0 Top = 46 Width = 526 - Height = 165 + Height = 162 Align = alClient BevelOuter = bvNone BorderWidth = 2 TabOrder = 4 object tabChannel: TTabControl Left = 2 - Top = 137 + Top = 134 Width = 522 Height = 26 Align = alBottom @@ -201,7 +201,7 @@ object frmSender: TfrmSender Left = 2 Top = 2 Width = 522 - Height = 135 + Height = 132 Cursor = crIBeam Align = alClient Caret.AutoCursor = True @@ -338,7 +338,7 @@ object frmSender: TfrmSender end object pnlPanel: TPanel Left = 0 - Top = 211 + Top = 208 Width = 526 Height = 25 Align = alBottom @@ -970,7 +970,7 @@ object frmSender: TfrmSender Left = 8 Top = 72 Bitmap = { - 494C01012F003100040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 + 494C01012F003100040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 000000000000360000002800000040000000D0000000010020000000000000D0 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 @@ -2690,7 +2690,8 @@ object frmSender: TfrmSender C001FFFFFC018000C001F7FFFC010000C001F7FFFC010000C001F3CF00010000 C001F18F00010001C001F89F00010003C001F83F00010003C001F87F00030003 C001F03F00070003C001F11F000F0FC3C001FF8F00FF0003C003FFC701FF8007 - C007FFFF03FFF87FC00FFFFFFFFFFFFF} + C007FFFF03FFF87FC00FFFFFFFFFFFFF00000000000000000000000000000000 + 000000000000} end object mnPopupConst: TPopupMenu Images = imgIcon diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas index 3892242..a90fe6c 100755 --- a/bottleclient/MainForm.pas +++ b/bottleclient/MainForm.pas @@ -1230,6 +1230,7 @@ begin tpTop: Align := alTop; tpBottom: Align := alBottom; end; + TabWidth := Pref.TabWidth; end; end; diff --git a/bottleclient/SettingForm.dfm b/bottleclient/SettingForm.dfm index 28d2b49..589b991 100755 --- a/bottleclient/SettingForm.dfm +++ b/bottleclient/SettingForm.dfm @@ -3,14 +3,14 @@ object frmSetting: TfrmSetting Top = 326 Anchors = [akLeft, akTop, akRight, akBottom] BorderStyle = bsDialog - Caption = 'Ý’è' + Caption = #35373#23450 ClientHeight = 357 ClientWidth = 575 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 @@ -28,7 +28,7 @@ object frmSetting: TfrmSetting Top = 8 Width = 66 Height = 12 - Caption = 'Ý’荀–Ú(&G):' + Caption = #35373#23450#38917#30446'(&G):' FocusControl = tvwCategory end object PageControl: TPageControl @@ -41,14 +41,14 @@ object frmSetting: TfrmSetting MultiLine = True TabOrder = 0 object tstGeneral: TTabSheet - Caption = 'ˆê”Ê: SSTP Bottle Client‘S”ʂ̐ݒè' + Caption = #19968#33324': SSTP Bottle Client'#20840#33324#12398#35373#23450 TabVisible = False object lblDefaultScript: TLabel Left = 8 Top = 8 Width = 278 Height = 12 - Caption = 'ƒNƒŠƒAŽž‚̏‰ŠúƒXƒNƒŠƒvƒg(c–_"|"‚̈ʒu‚ɃJ[ƒ\ƒ‹)(&I):' + Caption = #12463#12522#12450#26178#12398#21021#26399#12473#12463#12522#12503#12488'('#32294#26834'"|"'#12398#20301#32622#12395#12459#12540#12477#12523')(&I):' FocusControl = memDefaultScript end object lblPartialConfirmFormat: TLabel @@ -56,18 +56,18 @@ object frmSetting: TfrmSetting Top = 120 Width = 328 Height = 12 - Caption = 'ƒXƒNƒŠƒvƒg•”•ªŠm”FƒtƒH[ƒ}ƒbƒg(c–_"|"‚̈ʒu‚É‘I‘𕶎š—ñ)(&F):' + Caption = #12473#12463#12522#12503#12488#37096#20998#30906#35469#12501#12457#12540#12510#12483#12488'('#32294#26834'"|"'#12398#20301#32622#12395#36984#25246#25991#23383#21015')(&F):' end object memDefaultScript: TMemo Left = 8 Top = 24 Width = 409 Height = 57 - 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 @@ -78,8 +78,8 @@ object frmSetting: TfrmSetting Top = 224 Width = 281 Height = 17 - Hint = 'Client‚̏I—¹Žž‚ÉŠm”FƒƒbƒZ[ƒW‚ðo‚µ‚Ü‚·' - Caption = 'ƒAƒvƒŠƒP[ƒVƒ‡ƒ“‚̏I—¹Žž‚ÉŠm”F‚·‚é(&O)' + 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'(&O)' TabOrder = 1 end object cbxIgnoreTimeCritical: TCheckBox @@ -87,8 +87,8 @@ object frmSetting: TfrmSetting Top = 193 Width = 297 Height = 17 - Hint = 'ƒ[ƒJƒ‹Šm”FŽž‚É\t‚𑗐M‚µ‚È‚¢‚±‚Æ‚Å‘¼‚ÌSSTP‚ª•\Ž¦‚³‚ê‚â‚·‚­‚·‚é' - Caption = 'ƒ[ƒJƒ‹Šm”FŽž‚É\t‚𖳎‹(&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'(&T)' Checked = True State = cbChecked TabOrder = 2 @@ -98,8 +98,8 @@ object frmSetting: TfrmSetting Top = 88 Width = 273 Height = 17 - Hint = 'ƒXƒNƒŠƒvƒgƒNƒŠƒAŽž‚ɁA‚·‚ׂẴXƒNƒŠƒvƒg‚ðŽ©“®‚ŃNƒŠƒbƒv‚µ‚Ü‚·' - Caption = 'ƒNƒŠƒAŽž‚ÉŽ©“®‚ŃNƒŠƒbƒv(&L)' + Hint = #12473#12463#12522#12503#12488#12463#12522#12450#26178#12395#12289#12377#12409#12390#12398#12473#12463#12522#12503#12488#12434#33258#21205#12391#12463#12522#12483#12503#12375#12414#12377 + Caption = #12463#12522#12450#26178#12395#33258#21205#12391#12463#12522#12483#12503'(&L)' TabOrder = 3 end object cbxConfirmOnTabClose: TCheckBox @@ -107,8 +107,8 @@ object frmSetting: TfrmSetting Top = 240 Width = 257 Height = 17 - Hint = 'ƒƒOƒEƒBƒ“ƒhƒE‚Ń^ƒu‚ð•Â‚¶‚鎞‚ÉŠm”Fƒ_ƒCƒAƒƒO‚ð•\Ž¦‚µ‚Ü‚·' - Caption = 'ƒƒOƒEƒBƒ“ƒhƒE‚̃^ƒu‚ð•Â‚¶‚鎞‚ÉŠm”F‚·‚é(&C)' + Hint = #12525#12464#12454#12451#12531#12489#12454#12391#12479#12502#12434#38281#12376#12427#26178#12395#30906#35469#12480#12452#12450#12525#12464#12434#34920#31034#12375#12414#12377 + Caption = #12525#12464#12454#12451#12531#12489#12454#12398#12479#12502#12434#38281#12376#12427#26178#12395#30906#35469#12377#12427'(&C)' TabOrder = 4 end object edtPartialConfirmFormat: TEdit @@ -116,11 +116,11 @@ object frmSetting: TfrmSetting Top = 136 Width = 409 Height = 20 - Hint = '•”•ªŠm”FŽž‚ɃXƒNƒŠƒvƒg‚Ì‘O‚ÆŒã‚ë‚É•t‚¯‚é’ñŒg•¶Žš—ñ‚ðŽw’è' + Hint = #37096#20998#30906#35469#26178#12395#12473#12463#12522#12503#12488#12398#21069#12392#24460#12429#12395#20184#12369#12427#25552#25658#25991#23383#21015#12434#25351#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 TabOrder = 5 @@ -130,21 +130,21 @@ object frmSetting: TfrmSetting Top = 160 Width = 145 Height = 17 - Hint = '•”•ªŠm”F‚̃IƒvƒVƒ‡ƒ“ƒ_ƒCƒAƒƒO‚ð•\Ž¦‚¹‚¸AƒXƒNƒŠƒvƒg‚ª‘I‘ð‚³‚ê‚Ä‚¢‚é‚Æ‚«‚Í•”•ªŠm”F‚µ‚Ü‚·' - Caption = 'Ž©“®‚Å•”•ªŠm”F‚·‚é(&A)' + Hint = #37096#20998#30906#35469#12398#12458#12503#12471#12519#12531#12480#12452#12450#12525#12464#12434#34920#31034#12379#12378#12289#12473#12463#12522#12503#12488#12364#36984#25246#12373#12428#12390#12356#12427#12392#12365#12399#37096#20998#30906#35469#12375#12414#12377 + Caption = #33258#21205#12391#37096#20998#30906#35469#12377#12427'(&A)' TabOrder = 6 end end object tstDisplay: TTabSheet - Caption = '•\Ž¦: ‰æ–Ê•\Ž¦ŠÖŒW‚̐ݒè' + Caption = #34920#31034': '#30011#38754#34920#31034#38306#20418#12398#35373#23450 ImageIndex = 1 TabVisible = False object lblGhostDropDownCount: TLabel Left = 8 - Top = 256 + Top = 264 Width = 159 Height = 12 - Caption = 'IfGhostÅ‘åƒhƒƒbƒvƒ_ƒEƒ“”(&N)' + Caption = 'IfGhost'#26368#22823#12489#12525#12483#12503#12480#12454#12531#25968'(&N)' FocusControl = spnGhostDropDownCount end object gbxColor: TGroupBox @@ -152,7 +152,7 @@ object frmSetting: TfrmSetting Top = 8 Width = 409 Height = 169 - Caption = 'F(&O)' + Caption = #33394'(&O)' TabOrder = 0 inline frmColorSetting: TfrmColorSetting Left = 8 @@ -163,61 +163,89 @@ object frmSetting: TfrmSetting VertScrollBar.Visible = False TabOrder = 0 inherited lstElement: TListBox - Hint = 'F‚ðÝ’è‚·‚é—v‘f‚ð‘I‘ð' + Hint = #33394#12434#35373#23450#12377#12427#35201#32032#12434#36984#25246 Items.Strings = ( - '–{‘Ì‘¤ƒZƒŠƒt|H|clBlack' - '‚¤‚ɂイ‘¤ƒZƒŠƒt|U|clMaroon' - 'ƒVƒ“ƒNƒƒiƒCƒYƒhƒZƒbƒVƒ‡ƒ“|Synchro|clPurple' - 'ƒ^ƒO|Tag|clGreen' - 'ƒƒ^•¶Žš—ñ|Meta|clBlue' - 'ƒGƒ‰[|Error|clRed' - '‚»‚Ì‘¼ƒeƒLƒXƒg|Text|clBlack' - '”wŒi|Background|clWhite') + #26412#20307#20596#12475#12522#12501'|H|clBlack' + #12358#12395#12421#12358#20596#12475#12522#12501'|U|clMaroon' + #12471#12531#12463#12525#12490#12452#12474#12489#12475#12483#12471#12519#12531'|Synchro|clPurple' + #12479#12464'|Tag|clGreen' + #12513#12479#25991#23383#21015'|Meta|clBlue' + #12456#12521#12540'|Error|clRed' + #12381#12398#20182#12486#12461#12473#12488'|Text|clBlack' + #32972#26223'|Background|clWhite') end inherited btnSave: TButton - Hint = 'Œ»Ý‚̐F•ª‚¯‚Ì‘g‚ðƒvƒŠƒZƒbƒg‚Æ‚µ‚Ä•Û‘¶' + Hint = #29694#22312#12398#33394#20998#12369#12398#32068#12434#12503#12522#12475#12483#12488#12392#12375#12390#20445#23384 end inherited btnTheme: TButton - Hint = 'ƒJƒ‰[ƒe[ƒ}‚ðƒvƒŠƒZƒbƒg‚©‚çŒÄ‚яo‚µ' + Hint = #12459#12521#12540#12486#12540#12510#12434#12503#12522#12475#12483#12488#12363#12425#21628#12403#20986#12375 end end end object cbxShowRuler: TCheckBox Left = 8 - Top = 232 + Top = 240 Width = 297 Height = 17 - Hint = '•ÒWƒEƒBƒ“ƒhƒE‚ɐ…•½ƒ‹[ƒ‰‚ð•\Ž¦‚·‚é' - Caption = '•ÒWƒEƒBƒ“ƒhƒE‚̃‹[ƒ‰[‚ð•\Ž¦‚·‚é(&H)' - TabOrder = 1 + Hint = #32232#38598#12454#12451#12531#12489#12454#12395#27700#24179#12523#12540#12521#12434#34920#31034#12377#12427 + Caption = #32232#38598#12454#12451#12531#12489#12454#12398#12523#12540#12521#12540#12434#34920#31034#12377#12427'(&H)' + TabOrder = 3 end object rgpTabPosition: TRadioGroup Left = 8 Top = 184 - Width = 409 - Height = 41 - Hint = 'ƒ`ƒƒƒ“ƒlƒ‹ƒ^ƒu‚̈ʒu‚ð•ÏX' - Caption = 'ƒ`ƒƒƒ“ƒlƒ‹ƒ^ƒu‚̈ʒu' + Width = 193 + Height = 49 + 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 = ( - 'ã(&U)' - '‰º(&D)') - TabOrder = 2 + #19978'(&U)' + #19979'(&D)') + TabOrder = 1 end object spnGhostDropDownCount: TSpinEdit Left = 176 - Top = 251 + Top = 259 Width = 65 Height = 21 - Hint = '•ÒWƒEƒBƒ“ƒhƒE‚̃S[ƒXƒg‘I‘ðƒ{ƒbƒNƒX‚ª‘I‘ð‚µ‚Ã‚ç‚¢ê‡‚É’²®' + Hint = #32232#38598#12454#12451#12531#12489#12454#12398#12468#12540#12473#12488#36984#25246#12508#12483#12463#12473#12364#36984#25246#12375#12389#12425#12356#22580#21512#12395#35519#25972 MaxValue = 100 MinValue = 3 - TabOrder = 3 + TabOrder = 4 Value = 40 end + object gbxTabWidth: TGroupBox + Left = 208 + Top = 184 + Width = 209 + Height = 49 + Caption = #12481#12515#12531#12493#12523#12479#12502#12398#24133'(&W)' + TabOrder = 2 + object cbxAutoTabWidth: TCheckBox + Left = 112 + Top = 24 + Width = 89 + Height = 17 + Caption = #33258#21205'(&W)' + TabOrder = 1 + OnClick = cbxAutoTabWidthClick + end + object spnTabWidth: TSpinEdit + Left = 8 + Top = 22 + Width = 89 + Height = 21 + MaxValue = 200 + MinValue = 0 + TabOrder = 0 + Value = 0 + OnChange = spnTabWidthChange + end + end end object tstKeys: TTabSheet - Caption = 'ƒL[‘€ì: •ÒW‰æ–ʂł̃L[ƒ{[ƒh‘€ì‚̐ݒè' + Caption = #12461#12540#25805#20316': '#32232#38598#30011#38754#12391#12398#12461#12540#12508#12540#12489#25805#20316#12398#35373#23450 ImageIndex = 3 TabVisible = False object rgpWhenReturn: TRadioGroup @@ -225,14 +253,14 @@ object frmSetting: TfrmSetting Top = 8 Width = 409 Height = 65 - Caption = 'EnterƒL[‚Å‚Ì“®ì(&E)' + Caption = 'Enter'#12461#12540#12391#12398#21205#20316'(&E)' 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 @@ -240,14 +268,14 @@ object frmSetting: TfrmSetting Top = 80 Width = 409 Height = 65 - Caption = 'Shift+EnterƒL[‚Å‚Ì“®ì(&F)' + Caption = 'Shift+Enter'#12461#12540#12391#12398#21205#20316'(&F)' 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 @@ -255,19 +283,19 @@ object frmSetting: TfrmSetting Top = 152 Width = 409 Height = 65 - Caption = 'Ctrl+EnterƒL[‚Å‚Ì“®ì(&T)' + Caption = 'Ctrl+Enter'#12461#12540#12391#12398#21205#20316'(&T)' 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: ƒ{ƒgƒ‹‚ÌŽóME‘—MŽž‚Ì“®ì‚ÉŠÖ‚·‚éÝ’è' + Caption = #21463#20449'/'#36865#20449': '#12508#12488#12523#12398#21463#20449#12539#36865#20449#26178#12398#21205#20316#12395#38306#12377#12427#35373#23450 ImageIndex = 4 TabVisible = False object lblWaitScriptEnd: TLabel @@ -275,7 +303,7 @@ object frmSetting: TfrmSetting Top = 216 Width = 175 Height = 12 - Caption = 'ƒXƒNƒŠƒvƒg‚̍Ōã‚ɃEƒFƒCƒg‘}“ü(&W)' + Caption = #12473#12463#12522#12503#12488#12398#26368#24460#12395#12454#12455#12452#12488#25407#20837'(&W)' FocusControl = spnWaitScriptEnd end object spnWaitScriptEnd: TSpinEdit @@ -283,7 +311,7 @@ object frmSetting: TfrmSetting Top = 210 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 = 1 @@ -349,7 +377,7 @@ object frmSetting: TfrmSetting Top = 244 Width = 123 Height = 25 - Caption = 'ƒS[ƒXƒgŽw’è(&G)...' + Caption = #12468#12540#12473#12488#25351#23450'(&G)...' TabOrder = 2 OnClick = btnVisibleGhostsClick end @@ -358,13 +386,13 @@ object frmSetting: TfrmSetting Top = 248 Width = 273 Height = 17 - Hint = 'IfGhost‘I‘ðƒ{ƒbƒNƒX‚ÉŽw’肵‚½ƒS[ƒXƒgˆÈŠO‚ªŒ»‚ê‚È‚¢‚悤‚É‚µ‚Ü‚·B‘¼‚ÍŽóMê—pƒS[ƒXƒg‚É' - Caption = 'Žw’èƒS[ƒXƒgˆÈŠO‚ð‘I‘ðƒ{ƒbƒNƒX‚©‚ç‰B‚·(&H)' + Hint = 'IfGhost'#36984#25246#12508#12483#12463#12473#12395#25351#23450#12375#12383#12468#12540#12473#12488#20197#22806#12364#29694#12428#12394#12356#12424#12358#12395#12375#12414#12377#12290#20182#12399#21463#20449#23554#29992#12468#12540#12473#12488#12395 + Caption = #25351#23450#12468#12540#12473#12488#20197#22806#12434#36984#25246#12508#12483#12463#12473#12363#12425#38560#12377'(&H)' TabOrder = 3 end end object tstChannel: TTabSheet - Caption = 'Ž©“®ŽQ‰Á: ‹N“®Žž‚ÌŽ©“®ŽQ‰Áƒ`ƒƒƒ“ƒlƒ‹ŠÖŒW‚̐ݒè' + Caption = #33258#21205#21442#21152': '#36215#21205#26178#12398#33258#21205#21442#21152#12481#12515#12531#12493#12523#38306#20418#12398#35373#23450 ImageIndex = 6 TabVisible = False object lblAutoJoinChannels: TLabel @@ -372,7 +400,7 @@ object frmSetting: TfrmSetting Top = 40 Width = 284 Height = 12 - Caption = '‹N“®Žž‚ÉŽ©“®ŽQ‰Á‚·‚éƒ`ƒƒƒ“ƒlƒ‹(1s‚É1ƒ`ƒƒƒ“ƒlƒ‹)(&H)' + Caption = #36215#21205#26178#12395#33258#21205#21442#21152#12377#12427#12481#12515#12531#12493#12523'(1'#34892#12395'1'#12481#12515#12531#12493#12523')(&H)' FocusControl = memAutoJoinChannels end object memAutoJoinChannels: TMemo @@ -380,7 +408,7 @@ object frmSetting: TfrmSetting Top = 56 Width = 209 Height = 113 - Hint = 'Ž©“®ŽQ‰Á‚·‚éƒ`ƒƒƒ“ƒlƒ‹‚ð1s‚É1‚‚¸‚‹L“ü‚·‚é' + Hint = #33258#21205#21442#21152#12377#12427#12481#12515#12531#12493#12523#12434'1'#34892#12395'1'#12388#12378#12388#35352#20837#12377#12427 ScrollBars = ssVertical TabOrder = 0 end @@ -389,8 +417,8 @@ object frmSetting: TfrmSetting Top = 8 Width = 313 Height = 17 - Hint = 'Bottle Client‹N“®Žž‚ɁAŽ©“®“I‚ÉŽw’è‚̃`ƒƒƒ“ƒlƒ‹‚ÉŽQ‰Á‚µ‚Ü‚·' - Caption = '‹N“®Žž‚ÉŽ©“®“I‚ɁAŽ©“®ŽQ‰Á‘Ώۃ`ƒƒƒ“ƒlƒ‹‚ɉÁ“ü(&J)' + 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'(&J)' TabOrder = 1 end object btnUseCurrentJoinChannels: TButton @@ -398,14 +426,14 @@ object frmSetting: TfrmSetting Top = 144 Width = 193 Height = 25 - Hint = 'Œ»ÝŽQ‰Á‚µ‚Ä‚¢‚éƒ`ƒƒƒ“ƒlƒ‹‚ðŽ©“®ŽQ‰Áƒ`ƒƒƒ“ƒlƒ‹‚Æ‚µ‚ÄŽw’è' - Caption = 'Œ»ÝŽQ‰Á’†‚̃`ƒƒƒ“ƒlƒ‹‚ðŽg—p(&U)' + Hint = #29694#22312#21442#21152#12375#12390#12356#12427#12481#12515#12531#12493#12523#12434#33258#21205#21442#21152#12481#12515#12531#12493#12523#12392#12375#12390#25351#23450 + Caption = #29694#22312#21442#21152#20013#12398#12481#12515#12531#12493#12523#12434#20351#29992'(&U)' TabOrder = 2 OnClick = btnUseCurrentJoinChannelsClick end end object tstRule: TTabSheet - Caption = 'ƒAƒNƒVƒ‡ƒ“: ƒ{ƒgƒ‹ŽóMŽž‚É‹N“®‚³‚ê‚éƒAƒNƒVƒ‡ƒ“‚̐ݒè' + Caption = #12450#12463#12471#12519#12531': '#12508#12488#12523#21463#20449#26178#12395#36215#21205#12373#12428#12427#12450#12463#12471#12519#12531#12398#35373#23450 ImageIndex = 6 TabVisible = False OnShow = tstRuleShow @@ -423,25 +451,25 @@ object frmSetting: TfrmSetting end inherited btnDelete: TButton Left = 350 - Hint = 'ƒ‹[ƒ‹‚ðíœ' + Hint = #12523#12540#12523#12434#21066#38500 end inherited btnAdd: TButton Left = 350 - Hint = 'V‚µ‚¢ƒ‹[ƒ‹‚ð’ljÁ' - Caption = '’ljÁ(&I)' + Hint = #26032#12375#12356#12523#12540#12523#12434#36861#21152 + Caption = #36861#21152'(&I)' end inherited btnDown: TButton Left = 350 - Hint = '‰º‚Ɉړ®' - Caption = '‰º‚Ö(&O)' + Hint = #19979#12395#31227#21205 + Caption = #19979#12408'(&O)' end inherited btnUp: TButton Left = 350 - Hint = 'ã‚Ɉړ®' + Hint = #19978#12395#31227#21205 end inherited btnEdit: TButton Left = 350 - Hint = 'Œ»Ý‚̃‹[ƒ‹‚ð•ÒW' + Hint = #29694#22312#12398#12523#12540#12523#12434#32232#38598 end inherited btnDuplicate: TButton Left = 350 @@ -449,7 +477,7 @@ object frmSetting: TfrmSetting end end object tstPlayTime: TTabSheet - Caption = 'Ä¶ŽžŠÔ—\‘ª: ƒXƒNƒŠƒvƒg‚̍жŽžŠÔ‚ð—\‘ª‚·‚éƒpƒ‰ƒ[ƒ^Ý’è' + Caption = #20877#29983#26178#38291#20104#28204': '#12473#12463#12522#12503#12488#12398#20877#29983#26178#38291#12434#20104#28204#12377#12427#12497#12521#12513#12540#12479#35373#23450 ImageIndex = 9 TabVisible = False object lblPlayTimeProfile: TLabel @@ -457,21 +485,21 @@ object frmSetting: TfrmSetting Top = 16 Width = 160 Height = 12 - Caption = '—\‘ª‚ÉŽg—p‚·‚éƒvƒƒtƒ@ƒCƒ‹(&P):' + Caption = #20104#28204#12395#20351#29992#12377#12427#12503#12525#12501#12449#12452#12523'(&P):' end object grpPlayTimeParams: TGroupBox Left = 8 Top = 48 Width = 417 Height = 225 - Caption = 'Ú×(ƒ~ƒŠ•b)' + Caption = #35443#32048'('#12511#12522#31186')' TabOrder = 2 object lblCostWait: TLabel Left = 16 Top = 32 Width = 40 Height = 12 - Caption = '\w1ƒ^ƒO' + Caption = '\w1'#12479#12464 FocusControl = spnCostWait end object lblCostSurface: TLabel @@ -479,7 +507,7 @@ object frmSetting: TfrmSetting Top = 56 Width = 97 Height = 12 - Caption = 'ƒT[ƒtƒBƒXØ‚è‘Ö‚¦' + Caption = #12469#12540#12501#12451#12473#20999#12426#26367#12360 FocusControl = spnCostSurface end object lblCostChar: TLabel @@ -487,7 +515,7 @@ object frmSetting: TfrmSetting Top = 80 Width = 78 Height = 12 - Caption = '”¼Šp•¶Žš1•¶Žš' + Caption = #21322#35282#25991#23383'1'#25991#23383 FocusControl = spnCostChar end object lblCostDBChar: TLabel @@ -495,7 +523,7 @@ object frmSetting: TfrmSetting Top = 104 Width = 78 Height = 12 - Caption = '‘SŠp•¶Žš1•¶Žš' + Caption = #20840#35282#25991#23383'1'#25991#23383 FocusControl = spnCostDBChar end object lblCostQuickChar: TLabel @@ -503,7 +531,7 @@ object frmSetting: TfrmSetting Top = 128 Width = 119 Height = 12 - Caption = 'ƒNƒCƒbƒNƒZƒNƒVƒ‡ƒ“1•¶Žš' + Caption = #12463#12452#12483#12463#12475#12463#12471#12519#12531'1'#25991#23383 FocusControl = spnCostQuickChar end object lblCostSpecials: TLabel @@ -511,14 +539,14 @@ object frmSetting: TfrmSetting Top = 24 Width = 133 Height = 12 - Caption = '“ÁŽê‚ÈŽžŠÔ‚ðŽ‚Â•¶Žš(&P):' + Caption = #29305#27530#12394#26178#38291#12434#25345#12388#25991#23383'(&P):' end object spnCostDBChar: TSpinEdit Left = 144 Top = 98 Width = 81 Height = 21 - Hint = 'ƒXƒy[ƒX‚ðœ‚­‘SŠp•¶Žš1•¶Žš‚Ì•\Ž¦‚É‚©‚©‚鎞ŠÔ' + Hint = #12473#12506#12540#12473#12434#38500#12367#20840#35282#25991#23383'1'#25991#23383#12398#34920#31034#12395#12363#12363#12427#26178#38291 MaxValue = 1000 MinValue = 0 TabOrder = 3 @@ -530,7 +558,7 @@ object frmSetting: TfrmSetting Top = 26 Width = 81 Height = 21 - Hint = '\w1ƒ^ƒO1ŒÂ•ª‚Ì‘Ò‚¿ŽžŠÔB\w9‚Ȃ炱‚Ì9”{' + Hint = '\w1'#12479#12464'1'#20491#20998#12398#24453#12385#26178#38291#12290'\w9'#12394#12425#12371#12398'9'#20493 MaxValue = 1000 MinValue = 0 TabOrder = 0 @@ -542,7 +570,7 @@ object frmSetting: TfrmSetting Top = 50 Width = 81 Height = 21 - Hint = '1‰ñ‚̃T[ƒtƒBƒXØ‘Ö‚¦‚É‚©‚©‚鎞ŠÔ' + Hint = '1'#22238#12398#12469#12540#12501#12451#12473#20999#26367#12360#12395#12363#12363#12427#26178#38291 MaxValue = 1000 MinValue = 0 TabOrder = 1 @@ -554,7 +582,7 @@ object frmSetting: TfrmSetting Top = 74 Width = 81 Height = 21 - Hint = 'ƒXƒy[ƒX‚ðœ‚­”¼Šp•¶Žš1•¶Žš‚Ì•\Ž¦‚É‚©‚©‚鎞ŠÔ' + Hint = #12473#12506#12540#12473#12434#38500#12367#21322#35282#25991#23383'1'#25991#23383#12398#34920#31034#12395#12363#12363#12427#26178#38291 MaxValue = 1000 MinValue = 0 TabOrder = 2 @@ -566,7 +594,7 @@ object frmSetting: TfrmSetting Top = 122 Width = 81 Height = 21 - Hint = 'ƒNƒCƒbƒNƒZƒNƒVƒ‡ƒ“’†‚Ì1•¶Žš•\Ž¦‚É‚©‚©‚鎞ŠÔ' + Hint = #12463#12452#12483#12463#12475#12463#12471#12519#12531#20013#12398'1'#25991#23383#34920#31034#12395#12363#12363#12427#26178#38291 MaxValue = 1000 MinValue = 0 TabOrder = 4 @@ -580,12 +608,12 @@ object frmSetting: TfrmSetting Height = 145 Columns = < item - Caption = '•¶Žš' + Caption = #25991#23383 Width = 60 end item Alignment = taRightJustify - Caption = 'ŽžŠÔ' + Caption = #26178#38291 Width = 60 end> ReadOnly = True @@ -599,7 +627,7 @@ object frmSetting: TfrmSetting Top = 192 Width = 75 Height = 25 - Caption = '’ljÁ(&A)' + Caption = #36861#21152'(&A)' TabOrder = 6 OnClick = btnPlaySpecialAddClick end @@ -608,7 +636,7 @@ object frmSetting: TfrmSetting Top = 192 Width = 75 Height = 25 - Caption = 'íœ(&D)' + Caption = #21066#38500'(&D)' TabOrder = 7 OnClick = btnPlaySpecialDeleteClick end @@ -618,9 +646,9 @@ object frmSetting: TfrmSetting Top = 10 Width = 177 Height = 20 - Hint = '—\‘ªƒpƒ‰ƒ[ƒ^‚̃NƒCƒbƒNÝ’è' + Hint = #20104#28204#12497#12521#12513#12540#12479#12398#12463#12452#12483#12463#35373#23450 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 12 TabOrder = 0 OnChange = cbxPlayTimeProfileChange end @@ -629,14 +657,14 @@ object frmSetting: TfrmSetting Top = 8 Width = 67 Height = 25 - Hint = 'ƒvƒƒtƒ@ƒCƒ‹‚ð•Û‘¶' - Caption = '•Û‘¶(&S)...' + Hint = #12503#12525#12501#12449#12452#12523#12434#20445#23384 + Caption = #20445#23384'(&S)...' TabOrder = 1 OnClick = btnSavePlayTimeProfileClick end end object tstSurfacePreview: TTabSheet - Caption = 'ƒvƒŒƒrƒ…[: ƒT[ƒtƒBƒXƒvƒŒƒrƒ…[‹@”\Eƒvƒ‰ƒOƒCƒ“‚ɂ‚¢‚Ă̐ݒè' + Caption = #12503#12524#12499#12517#12540': '#12469#12540#12501#12451#12473#12503#12524#12499#12517#12540#27231#33021#12539#12503#12521#12464#12452#12531#12395#12388#12356#12390#12398#35373#23450 ImageIndex = 7 TabVisible = False object lblSurfacePreview: TLabel @@ -644,28 +672,28 @@ object frmSetting: TfrmSetting Top = 8 Width = 252 Height = 12 - Caption = '¦ƒT[ƒtƒBƒXƒvƒŒƒrƒ…[‚ɂ̓vƒ‰ƒOƒCƒ“‚ª•K—v‚Å‚·' + Caption = #8251#12469#12540#12501#12451#12473#12503#12524#12499#12517#12540#12395#12399#12503#12521#12464#12452#12531#12364#24517#35201#12391#12377 end object lblPluginList: TLabel Left = 8 Top = 184 Width = 285 Height = 12 - Caption = 'ƒCƒ“ƒXƒg[ƒ‹‚³‚ê‚Ä‚¢‚éƒvƒ‰ƒOƒCƒ“(ƒ_ƒuƒ‹ƒNƒŠƒbƒN‚Őݒè):' + Caption = #12452#12531#12473#12488#12540#12523#12373#12428#12390#12356#12427#12503#12521#12464#12452#12531'('#12480#12502#12523#12463#12522#12483#12463#12391#35373#23450'):' end object lvwPluginList: TListView Left = 8 Top = 200 Width = 417 Height = 73 - Hint = 'Œ»ÝƒCƒ“ƒXƒg[ƒ‹‚³‚ê‚Ä‚¢‚éƒvƒ‰ƒOƒCƒ“‚ªˆê——•\Ž¦‚³‚ê‚Ü‚·Bã‚©‚珇‚ɃT[ƒtƒBƒXƒf[ƒ^‚ðŒŸõ‚µ‚Ü‚·' + Hint = #29694#22312#12452#12531#12473#12488#12540#12523#12373#12428#12390#12356#12427#12503#12521#12464#12452#12531#12364#19968#35239#34920#31034#12373#12428#12414#12377#12290#19978#12363#12425#38918#12395#12469#12540#12501#12451#12473#12487#12540#12479#12434#26908#32034#12375#12414#12377 Columns = < item - Caption = 'ƒtƒ@ƒCƒ‹' + Caption = #12501#12449#12452#12523 Width = 100 end item - Caption = '–¼‘O' + Caption = #21517#21069 Width = 280 end> ReadOnly = True @@ -705,7 +733,7 @@ object frmSetting: TfrmSetting end end object tstConnection: TTabSheet - Caption = 'Ú‘±: ƒ{ƒgƒ‹ƒT[ƒo‚Ƃ̐ڑ±‚ÉŠÖ‚·‚éÝ’è' + Caption = #25509#32154': '#12508#12488#12523#12469#12540#12496#12392#12398#25509#32154#12395#38306#12377#12427#35373#23450 ImageIndex = 8 TabVisible = False object lblReconnectWait: TLabel @@ -713,21 +741,21 @@ object frmSetting: TfrmSetting Top = 144 Width = 156 Height = 12 - Caption = 'ÄÚ‘±‚ðŽŽ‚Ý‚é‚Ü‚Å‚Ì•ª”(&R):' + Caption = #20877#25509#32154#12434#35430#12415#12427#12414#12391#12398#20998#25968'(&R):' end object grpProxy: TGroupBox Left = 8 Top = 8 Width = 417 Height = 121 - Caption = 'HTTP ProxyÝ’è' + Caption = 'HTTP Proxy'#35373#23450 TabOrder = 0 object lblProxyAddress: TLabel Left = 16 Top = 68 Width = 56 Height = 12 - Caption = 'ƒAƒhƒŒƒX(&D)' + Caption = #12450#12489#12524#12473'(&D)' FocusControl = edtProxyAddress end object lblProxyPort: TLabel @@ -735,7 +763,7 @@ object frmSetting: TfrmSetting Top = 92 Width = 47 Height = 12 - Caption = 'ƒ|[ƒg(&O)' + Caption = #12509#12540#12488'(&O)' FocusControl = edtProxyPort end object Label6: TLabel @@ -743,11 +771,11 @@ object frmSetting: TfrmSetting Top = 21 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 @@ -756,7 +784,7 @@ object frmSetting: TfrmSetting Top = 64 Width = 257 Height = 20 - Hint = 'ProxyƒT[ƒo‚̃AƒhƒŒƒX' + Hint = 'Proxy'#12469#12540#12496#12398#12450#12489#12524#12473 TabOrder = 1 end object edtProxyPort: TEdit @@ -764,7 +792,7 @@ object frmSetting: TfrmSetting Top = 88 Width = 81 Height = 20 - Hint = 'ProxyƒT[ƒo‚̃|[ƒg”ԍ†' + Hint = 'Proxy'#12469#12540#12496#12398#12509#12540#12488#30058#21495 TabOrder = 2 OnKeyPress = edtProxyPortKeyPress end @@ -773,8 +801,8 @@ object frmSetting: TfrmSetting Top = 40 Width = 153 Height = 17 - Hint = 'HTTP Proxy‚ð’Ê‚¶‚ă{ƒgƒ‹ƒT[ƒo‚ɐڑ±‚µ‚Ü‚·' - Caption = 'HTTP Proxy‚ðŽg—p‚·‚é(&E)' + 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'(&E)' TabOrder = 0 end end @@ -783,7 +811,7 @@ object frmSetting: TfrmSetting Top = 140 Width = 57 Height = 21 - Hint = '–³’ʐMó‘ԂōĐڑ±‚ðŽŽ‚Ý‚é‚Ü‚Å‚Ì•ª”B’ʏí‚͕ύX‚·‚é•K—v‚Í‚È‚¢' + Hint = #28961#36890#20449#29366#24907#12391#20877#25509#32154#12434#35430#12415#12427#12414#12391#12398#20998#25968#12290#36890#24120#12399#22793#26356#12377#12427#24517#35201#12399#12394#12356 MaxValue = 100 MinValue = 6 TabOrder = 1 @@ -791,7 +819,7 @@ object frmSetting: TfrmSetting end end object tstDetailed: TTabSheet - Caption = 'Ú×: Ú×Ý’è(ã‹‰ŽÒŒü‚«)' + Caption = #35443#32048': '#35443#32048#35373#23450'('#19978#32026#32773#21521#12365')' ImageIndex = 6 TabVisible = False object lblFMOName: TLabel @@ -799,7 +827,7 @@ object frmSetting: TfrmSetting Top = 8 Width = 97 Height = 12 - Caption = '—˜—p‚·‚éFMO–¼(&F)' + Caption = #21033#29992#12377#12427'FMO'#21517'(&F)' FocusControl = memFMOName end object lblLUID: TLabel @@ -807,14 +835,14 @@ object frmSetting: TfrmSetting Top = 144 Width = 83 Height = 12 - Caption = '&LUID(ŽQÆ‚Ì‚Ý):' + Caption = '&LUID('#21442#29031#12398#12415'):' end object memFMOName: TMemo Left = 8 Top = 24 Width = 417 Height = 73 - Hint = 'FMO–¼‚ð1s‚É1‚‹L“üB‹L“ü“à—e‚ɂ‚¢‚Ä‚ÍSSTPƒT[ƒo‘¤‚̃hƒLƒ…ƒƒ“ƒg‚ðŽQÆ' + Hint = 'FMO'#21517#12434'1'#34892#12395'1'#12388#35352#20837#12290#35352#20837#20869#23481#12395#12388#12356#12390#12399'SSTP'#12469#12540#12496#20596#12398#12489#12461#12517#12513#12531#12488#12434#21442#29031 ScrollBars = ssVertical TabOrder = 0 WordWrap = False @@ -824,8 +852,8 @@ object frmSetting: TfrmSetting Top = 112 Width = 417 Height = 17 - Hint = 'SSTPƒT[ƒo‚ª“®ì‚µ‚È‚¢ê‡‚̌݊·—p' - Caption = '“]‘—Žž‚ÉSSTP’ljÁƒwƒbƒ_(X-Bottle-*)‚𑗏o‚µ‚È‚¢(&X)' + Hint = 'SSTP'#12469#12540#12496#12364#21205#20316#12375#12394#12356#22580#21512#12398#20114#25563#29992 + Caption = #36578#36865#26178#12395'SSTP'#36861#21152#12504#12483#12480'(X-Bottle-*)'#12434#36865#20986#12375#12394#12356'(&X)' TabOrder = 1 end object edtLUID: TEdit @@ -833,7 +861,7 @@ object frmSetting: TfrmSetting Top = 141 Width = 257 Height = 20 - Hint = '‚±‚̃Nƒ‰ƒCƒAƒ“ƒg‚ɐݒ肳‚ê‚Ä‚¢‚éLUID‚ð•\Ž¦' + Hint = #12371#12398#12463#12521#12452#12450#12531#12488#12395#35373#23450#12373#12428#12390#12356#12427'LUID'#12434#34920#31034 ReadOnly = True TabOrder = 2 OnEnter = edtLUIDEnter @@ -844,8 +872,8 @@ object frmSetting: TfrmSetting Top = 142 Width = 67 Height = 20 - Hint = 'ƒNƒŠƒbƒvƒ{[ƒh‚ÉLUID‚ðƒRƒs[' - Caption = 'ƒRƒs[(&C)' + Hint = #12463#12522#12483#12503#12508#12540#12489#12395'LUID'#12434#12467#12500#12540 + Caption = #12467#12500#12540'(&C)' TabOrder = 3 OnClick = btnCopyLUIDClick end @@ -857,7 +885,7 @@ object frmSetting: TfrmSetting Width = 75 Height = 25 Anchors = [akRight, akBottom] - Caption = '•Â‚¶‚é(&C)' + Caption = #38281#12376#12427'(&C)' Default = True ModalResult = 1 TabOrder = 1 @@ -888,7 +916,7 @@ object frmSetting: TfrmSetting 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 = [fsBold] ParentColor = True ParentFont = False diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas index 84164ee..1670076 100755 --- a/bottleclient/SettingForm.pas +++ b/bottleclient/SettingForm.pas @@ -98,6 +98,9 @@ type lblCostSpecials: TLabel; btnPlaySpecialAdd: TButton; btnPlaySpecialDelete: TButton; + gbxTabWidth: TGroupBox; + cbxAutoTabWidth: TCheckBox; + spnTabWidth: TSpinEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure edtProxyPortKeyPress(Sender: TObject; var Key: Char); procedure ctvBottleNodeChecked(Sender: TObject; @@ -121,6 +124,8 @@ type procedure btnPlaySpecialAddClick(Sender: TObject); procedure btnPlaySpecialDeleteClick(Sender: TObject); procedure lvwCostSpecialsDblClick(Sender: TObject); + procedure spnTabWidthChange(Sender: TObject); + procedure cbxAutoTabWidthClick(Sender: TObject); private { Private éŒ¾ } FOldLUID: String; @@ -184,6 +189,10 @@ begin // cbxAutoStart.Checked := Pref.AutoStart; rgpTabPosition.ItemIndex := Ord(Pref.TabPosition); + spnTabWidth.Value := Pref.TabWidth; + if Pref.TabWidth <= 0 then + spnTabWidth.Value := 0; + cbxAutoTabWidth.Checked := Pref.TabWidth <= 0; spnGhostDropDownCount.Value := Pref.GhostDropDownCount; try with ctvBottle do begin @@ -274,6 +283,9 @@ begin // Pref.AutoStart := cbxAutoStart.Checked; Pref.TabPosition := TTabPosition(rgpTabPosition.ItemIndex); + Pref.TabWidth := spnTabWidth.Value; + if cbxAutoTabWidth.Checked then + Pref.TabWidth := 0; Pref.GhostDropDownCount := spnGhostDropDownCount.Value; try with ctvBottle do begin @@ -699,4 +711,29 @@ begin end; end; +procedure TfrmSetting.spnTabWidthChange(Sender: TObject); +begin + with cbxAutoTabWidth do + begin + OnClick := nil; + cbxAutoTabWidth.Checked := false; + OnClick := cbxAutoTabWidthClick; + end; +end; + +procedure TfrmSetting.cbxAutoTabWidthClick(Sender: TObject); +begin + with spnTabWidth do + begin + OnChange := nil; + try + if not cbxAutoTabWidth.Checked then + if Value = 0 then + Value := 80; + finally + OnChange := spnTabWidthChange; + end; + end; +end; + end. -- 2.11.0