• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revision7e88af8d4ce277ba43a0d9f9464e1aa682aa38ef (tree)
Time2009-02-15 12:42:10
Authorh677 <h677>
Commiterh677

Log Message

最新100レス表示の表示数を拡張できるようにオプションを追加

Change Summary

Incremental Difference

--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -475,6 +475,34 @@ object KuroutOption: TKuroutOption
475475 TabOrder = 1
476476 Wrap = False
477477 end
478+ object ResRangeLabeledEdit: TLabeledEdit
479+ Left = 317
480+ Top = 18
481+ Width = 121
482+ Height = 20
483+ EditLabel.Width = 113
484+ EditLabel.Height = 12
485+ EditLabel.Caption = #34920#31034#12524#12473#25968'(100-9999)'
486+ ImeMode = imDisable
487+ LabelPosition = lpLeft
488+ LabelSpacing = 3
489+ TabOrder = 2
490+ Text = '100'
491+ OnExit = ResRangeLabeledEditExit
492+ end
493+ object ResRangeCountUpDown: TUpDown
494+ Left = 438
495+ Top = 18
496+ Width = 17
497+ Height = 20
498+ Associate = ResRangeLabeledEdit
499+ Min = 100
500+ Max = 9999
501+ Position = 100
502+ TabOrder = 3
503+ Thousands = False
504+ Wrap = False
505+ end
478506 end
479507 object ThreadGroupBox: TGroupBox
480508 Left = 16
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -94,6 +94,8 @@ type
9494 RespopupWaitUpDown: TUpDown;
9595 Label19: TLabel;
9696 RespopupMailToCheckBox: TCheckBox;
97+ ResRangeLabeledEdit: TLabeledEdit;
98+ ResRangeCountUpDown: TUpDown;
9799 procedure OkBottonClick(Sender: TObject);
98100 procedure FormCreate(Sender: TObject);
99101 procedure CDeleteButtonClick(Sender: TObject);
@@ -110,6 +112,7 @@ type
110112 procedure DeltaXLabeledEditExit(Sender: TObject);
111113 procedure DeltaYLabeledEditExit(Sender: TObject);
112114 procedure RespopupWaitLabeledEditExit(Sender: TObject);
115+ procedure ResRangeLabeledEditExit(Sender: TObject);
113116 private
114117 { Private éŒ¾ }
115118 procedure SetValue;
@@ -166,6 +169,8 @@ begin
166169 MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
167170 //@æ“ª•\Ž¦ƒŒƒX”
168171 AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
172+ // •\Ž¦ƒŒƒX”
173+ ResRangeCountUpDown.Position := GikoSys.Setting.ResRangeExCount;
169174 // ŠÖ˜AƒL[ƒ[ƒh’ljÁƒtƒ‰ƒO
170175 AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
171176 // Œë”½‰ž‘΍ô
@@ -212,7 +217,8 @@ begin
212217 //@æ“ª•\Ž¦ƒŒƒX”
213218 GikoSys.Setting.HeadResCount :=
214219 StrToIntDef( AHandredLabeledEdit.Text , 1);
215-
220+ GikoSys.Setting.ResRangeExCount :=
221+ StrToIntDef( ResRangeLabeledEdit.Text , 100 );
216222 GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
217223 // ŠÖ˜AƒL[ƒ[ƒh’ljÁƒtƒ‰ƒO
218224 GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
@@ -515,4 +521,14 @@ begin
515521 RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);
516522 end;
517523
524+procedure TKuroutOption.ResRangeLabeledEditExit(Sender: TObject);
525+begin
526+ if not GikoSys.IsNumeric(ResRangeLabeledEdit.Text) then
527+ ResRangeLabeledEdit.Text := '100';
528+ if StrToInt(ResRangeLabeledEdit.Text) < 100 then
529+ ResRangeLabeledEdit.Text := '100';
530+ if StrToInt(ResRangeLabeledEdit.Text) > 9999 then
531+ ResRangeLabeledEdit.Text := '9999';
532+end;
533+
518534 end.
--- a/Option.dfm
+++ b/Option.dfm
@@ -253,7 +253,7 @@ object OptionDialog: TOptionDialog
253253 Top = 43
254254 Width = 417
255255 Height = 20
256- ItemHeight = 12
256+ ItemHeight = 0
257257 TabOrder = 0
258258 Text = 'BoardURLComboBox'
259259 end
--- a/Option.pas
+++ b/Option.pas
@@ -723,7 +723,7 @@ begin
723723 Ord( grrAll ): ResRangeHoldComboBox.ItemIndex := 0;
724724 Ord( grrKoko ): ResRangeHoldComboBox.ItemIndex := 2;
725725 Ord( grrNew ): ResRangeHoldComboBox.ItemIndex := 3;
726- 100: ResRangeHoldComboBox.ItemIndex := 1;
726+ 10..65535: ResRangeHoldComboBox.ItemIndex := 1;
727727 end;
728728 ResRangeHoldComboBox.Enabled := GikoSys.Setting.ResRangeHold;
729729 //ƒ^ƒu’ljÁˆÊ’u
@@ -1013,7 +1013,7 @@ begin
10131013 GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;
10141014 case ResRangeHoldComboBox.ItemIndex of
10151015 0: GikoSys.Setting.ResRange := Ord( grrAll );
1016- 1: GikoSys.Setting.ResRange := 100;
1016+ 1: GikoSys.Setting.ResRange := GikoSys.Setting.ResRangeExCount;
10171017 2: GikoSys.Setting.ResRange := Ord( grrKoko );
10181018 3: GikoSys.Setting.ResRange := Ord( grrNew );
10191019 end;
--- a/Setting.pas
+++ b/Setting.pas
@@ -440,6 +440,8 @@ type
440440 FLoopBrowserTabs : Boolean;
441441 //! 100ƒŒƒX•\Ž¦‚̐擪•\Ž¦ƒŒƒX”
442442 FHeadResCount : Integer;
443+ //! 100ƒŒƒX•\Ž¦”iŠg’£—pj
444+ FResRangeExCount: Integer;
443445 //! ŠÖ˜AƒL[ƒ[ƒh’ljÁƒtƒ‰ƒO
444446 FAddKeywordLink: Boolean;
445447 //! dat’uŠ·‚ð—LŒø‚É‚·‚é
@@ -810,6 +812,8 @@ type
810812 property LoopBrowserTabs : Boolean read FLoopBrowserTabs write FLoopBrowserTabs;
811813 //! 100ƒŒƒX•\Ž¦‚̐擪•\Ž¦ƒŒƒX”
812814 property HeadResCount : Integer read FHeadResCount write FHeadResCount;
815+ //! 100ƒŒƒX•\Ž¦”iŠg’£—pj
816+ property ResRangeExCount: Integer read FResRangeExCount write FResRangeExCount;
813817 //! ŠÖ˜AƒL[ƒ[ƒh’ljÁƒtƒ‰ƒO
814818 property AddKeywordLink: Boolean read FAddKeywordLink write FAddKeywordLink;
815819 //! dat‚Ì’uŠ·‚ð—LŒø‚É‚·‚é‚©
@@ -1127,6 +1131,7 @@ begin
11271131 FResRange := ini.ReadInteger( 'Thread', 'ResRange', Ord( grrAll ) );
11281132 FResRangeHold := ini.ReadBool( 'Thread', 'ResRangeHold', False );
11291133 FHeadResCount := ini.ReadInteger('Thread', 'HeadResCount', 1);
1134+ FResRangeExCount:= ini.ReadInteger('Thread','ResRangeExCount', 100);
11301135 // ƒXƒŒƒbƒhˆê——•\Ž¦”͈Í
11311136 FThreadRange := TGikoThreadRange( ini.ReadInteger('ThreadList', 'ThreadRange', Ord( gtrAll )) );
11321137 //”ñƒAƒNƒeƒBƒuŽžƒŒƒXƒ|ƒbƒvƒAƒbƒv•\Ž¦
@@ -1531,6 +1536,7 @@ begin
15311536 ini.WriteInteger('Thread', 'ResRange', FResRange);
15321537 ini.WriteBool('Thread', 'ResRangeHold', FResRangeHold);
15331538 ini.WriteInteger('Thread', 'HeadResCount', FHeadResCount);
1539+ ini.WriteInteger('Thread','ResRangeExCount', FResRangeExCount);
15341540 // ƒXƒŒƒbƒhˆê——•\Ž¦”͈Í
15351541 ini.WriteInteger('ThreadList', 'ThreadRange', Ord( FThreadRange ));
15361542 //ƒƒOíœŠm”F