Commit: 8d72038e7fcec350119f8f788f01b3d81738cd1d - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: 8d72038e7fcec350119f8f788f01b3d81738cd1d (tree)
• Time: 2007-05-21 01:28:27
• Author: h677 <h677>
• Commiter: h677

Log Message

100レス表示の先頭からのレス数の指定が毎回1になる不具合の修正

Change Summary

• modified: KuroutSetting.dfm
• modified: KuroutSetting.pas

Incremental Difference

--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -453,7 +453,7 @@ object KuroutOption: TKuroutOption
           Left = 96
           Top = 19
           Width = 73
-          Height = 19
+          Height = 20
           EditLabel.Width = 81
           EditLabel.Height = 12
           EditLabel.Caption = #20808#38957#34920#31034#12524#12473#25968
@@ -463,11 +463,11 @@ object KuroutOption: TKuroutOption
           Text = '1'
           OnExit = AHandredLabeledEditExit
         end
-        object UpDown1: TUpDown
+        object AHandredUpDown: TUpDown
           Left = 169
           Top = 19
           Width = 15
-          Height = 19
+          Height = 20
           Associate = AHandredLabeledEdit
           Min = 1
           Position = 1
@@ -501,7 +501,7 @@ object KuroutOption: TKuroutOption
           Left = 96
           Top = 43
           Width = 361
-          Height = 19
+          Height = 20
           EditLabel.Width = 82
           EditLabel.Height = 12
           EditLabel.Caption = 'URL'#21462#24471#25313#24373#23376

--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -64,7 +64,7 @@ type
     Label11: TLabel;
     AHandredGroupBox: TGroupBox;
     AHandredLabeledEdit: TLabeledEdit;
-    UpDown1: TUpDown;
+    AHandredUpDown: TUpDown;
     ThreadGroupBox: TGroupBox;
     AddKeywordCheckBox: TCheckBox;
     TabSheet2: TTabSheet;
@@ -149,7 +149,7 @@ begin
     // ƒŠƒ“ƒNˆÚ“®—š—ð
     MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
     //@æ“ª•\Ž¦ƒŒƒX”
-    AHandredLabeledEdit.Text := IntToStr( GikoSys.Setting.HeadResCount );
+    AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
     // ŠÖ˜AƒL[ƒ[ƒh’ljÁƒtƒ‰ƒO
     AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
     // Œë”½‰ž‘΍ô