カラム幅が正しく保存されないバグを修正。

diff --git a/Giko.pas b/Giko.pas
index ba42435..e3e5d99 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -11354,7 +11354,7 @@ begin
                                id := Ord( GikoSys.Setting.BBSColumnOrder[ idx ] );
                                BBSOrder.Add( TGikoBBSColumnID( id ) );
                                // \95\9d\82Ì\95Û\91¶
-                               GikoSys.Setting.BBSColumnWidth[ id ] := ListView.Column[ id ].Width;
+                               GikoSys.Setting.BBSColumnWidth[ id ] := ListView.Column[ i ].Width;
                        end;
                        for i := 0 to ListView.Columns.Count - 1 do
                                // \8f\87\8f\98\82Ì\95Û\91¶
@@ -11372,7 +11372,7 @@ begin
                                id := Ord( GikoSys.Setting.CategoryColumnOrder[ idx ] );
                                CategoryOrder.Add( TGikoCategoryColumnID( id ) );
                                // \95\9d\82Ì\95Û\91¶
-                               GikoSys.Setting.CategoryColumnWidth[ id ] := ListView.Column[ id ].Width;
+                               GikoSys.Setting.CategoryColumnWidth[ id ] := ListView.Column[ i ].Width;
                        end;
                        for i := 0 to ListView.Columns.Count - 1 do
                                // \8f\87\8f\98\82Ì\95Û\91¶
@@ -11390,7 +11390,7 @@ begin
                                id := Ord( GikoSys.Setting.BoardColumnOrder[ idx ] );
                                BoardOrder.Add( TGikoBoardColumnID( id ) );
                                // \95\9d\82Ì\95Û\91¶
-                               GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;
+                               GikoSys.Setting.BoardColumnWidth[ id ] := ListView.Column[ i ].Width;
                        end;
                        for i := 0 to ListView.Columns.Count - 1 do
                                // \8f\87\8f\98\82Ì\95Û\91¶