Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.417 by yoffy, Thu Sep 9 04:23:43 2004 UTC revision 1.418 by yoffy, Thu Sep 9 16:53:34 2004 UTC
# Line 1413  begin Line 1413  begin
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    
# Line 3203  begin Line 3203  begin
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];
# Line 10090  end; Line 10090  end;
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

Legend:
Removed from v.1.417  
changed lines
  Added in v.1.418

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26