・スレッド絞込み時のチラつき対策。

diff --git a/Giko.pas b/Giko.pas
index ef9c3f3..de5fd46 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1764,13 +1764,18 @@ begin
        try
                Screen.Cursor := crHourGlass;
 
-               ListView.Columns.Clear;
-               for i := 0 to Length(COLUMN) - 1 do begin
-                       ListColumn := ListView.Columns.Add;
-                       ListColumn.Caption := COLUMN[i];
-                       ListColumn.Width := GikoSys.Setting.BoardColumnWidth[i];
-                       ListColumn.Alignment := COLUMN_ALIGNMENT[i];
-               end;
+                // \83`\83\89\82Â\82«\96h\8e~\82Ì\82½\82ß\81A\95Ï\8dX\82³\82ê\82Ä\82¢\82é\8fê\8d\87\82Ì\82Ý
+                // \81¦\96¼\8fÌ\82Í\88á\82¤\82ª\83J\83\89\83\80\90\94\82ª\93¯\82¶\81A\82Æ\82¢\82Á\82½\8fê\8d\87\82É\91Î\8f\88\82Å\82«\82È\82¢\82Ì\82Å\92\8d\88Ó
+                if ListView.Columns.Count <> (High( COLUMN ) - Low( COLUMN ) + 1) then
+                begin
+                       ListView.Columns.Clear;
+                        for i := 0 to Length(COLUMN) - 1 do begin
+                                ListColumn := ListView.Columns.Add;
+                                ListColumn.Caption := COLUMN[i];
+                                ListColumn.Width := GikoSys.Setting.BoardColumnWidth[i];
+                                ListColumn.Alignment := COLUMN_ALIGNMENT[i];
+                        end;
+                end;
 
                ListView.Items.Count := 0;
                ListView.Items.Clear;