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;
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];
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