スレリストの背景色が起動時に設定されないバグを修正。 (#4222)

diff --git a/Giko.pas b/Giko.pas
index 63685ea..3555c92 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1413,8 +1413,8 @@ begin
                ListView.Font.Name := GikoSys.Setting.ListFontName;
                ListView.Font.Size := GikoSys.Setting.ListFontSize;
                ListView.Font.Color := GikoSys.Setting.ListFontColor;
-               //ListView.Color := GikoSys.Setting.ListBackColor;
-               ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
+               ListViewBackGroundColor := clWhite;                                                                                             // \83f\83t\83H\83\8b\83g\82É\90Ý\92è\82µ\82½\82Ì\82¿
+               ListViewBackGroundColor := GikoSys.Setting.ListBackColor;       // \83\86\81[\83U\92è\8b`\82É\95Ï\8dX
                FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
                FOddColor := GikoSys.Setting.OddColor;
 
@@ -3203,10 +3203,10 @@ begin
        if TObject(Item.Data) is TThreadItem then begin
                ThreadItem := TThreadItem(Item.Data);
                if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin
-                                               ListView.Canvas.Brush.Color := FOddColor;
-                               end else begin
-                                       ListView.Canvas.Brush.Color := FListViewBackGroundColor;
-                               end;
+                       ListView.Canvas.Brush.Color := FOddColor;
+               end else begin
+                       ListView.Canvas.Brush.Color := FListViewBackGroundColor;
+               end;
 //             if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then
                if ThreadItem.UnRead then
                        TListView(Sender).Canvas.Font.Style := [fsBold];
@@ -10090,9 +10090,9 @@ end;
 procedure TGikoForm.SetListViewBackGroundColor(value: TColor);
 begin
        if FListViewBackGroundColor <> value then begin
-                       FListViewBackGroundColor := value;
-                               ListView.Color := FListViewBackGroundColor;
-               end;
+               FListViewBackGroundColor := value;
+               ListView.Color := FListViewBackGroundColor;
+       end;
 end;
 procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject);
 begin