| 1413 |
ListView.Font.Name := GikoSys.Setting.ListFontName; |
ListView.Font.Name := GikoSys.Setting.ListFontName; |
| 1414 |
ListView.Font.Size := GikoSys.Setting.ListFontSize; |
ListView.Font.Size := GikoSys.Setting.ListFontSize; |
| 1415 |
ListView.Font.Color := GikoSys.Setting.ListFontColor; |
ListView.Font.Color := GikoSys.Setting.ListFontColor; |
| 1416 |
//ListView.Color := GikoSys.Setting.ListBackColor; |
ListViewBackGroundColor := clWhite; // デフォルトに設定したのち |
| 1417 |
ListViewBackGroundColor := GikoSys.Setting.ListBackColor; |
ListViewBackGroundColor := GikoSys.Setting.ListBackColor; // ユーザ定義に変更 |
| 1418 |
FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum; |
FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum; |
| 1419 |
FOddColor := GikoSys.Setting.OddColor; |
FOddColor := GikoSys.Setting.OddColor; |
| 1420 |
|
|
| 3203 |
if TObject(Item.Data) is TThreadItem then begin |
if TObject(Item.Data) is TThreadItem then begin |
| 3204 |
ThreadItem := TThreadItem(Item.Data); |
ThreadItem := TThreadItem(Item.Data); |
| 3205 |
if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin |
if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin |
| 3206 |
ListView.Canvas.Brush.Color := FOddColor; |
ListView.Canvas.Brush.Color := FOddColor; |
| 3207 |
end else begin |
end else begin |
| 3208 |
ListView.Canvas.Brush.Color := FListViewBackGroundColor; |
ListView.Canvas.Brush.Color := FListViewBackGroundColor; |
| 3209 |
end; |
end; |
| 3210 |
// if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then |
// if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then |
| 3211 |
if ThreadItem.UnRead then |
if ThreadItem.UnRead then |
| 3212 |
TListView(Sender).Canvas.Font.Style := [fsBold]; |
TListView(Sender).Canvas.Font.Style := [fsBold]; |
| 10090 |
procedure TGikoForm.SetListViewBackGroundColor(value: TColor); |
procedure TGikoForm.SetListViewBackGroundColor(value: TColor); |
| 10091 |
begin |
begin |
| 10092 |
if FListViewBackGroundColor <> value then begin |
if FListViewBackGroundColor <> value then begin |
| 10093 |
FListViewBackGroundColor := value; |
FListViewBackGroundColor := value; |
| 10094 |
ListView.Color := FListViewBackGroundColor; |
ListView.Color := FListViewBackGroundColor; |
| 10095 |
end; |
end; |
| 10096 |
end; |
end; |
| 10097 |
procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject); |
procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject); |
| 10098 |
begin |
begin |