取得レス数とスレッドのレス数が異なったときにListViewの背景色を変える

機能を追加。

diff --git a/Giko.dfm b/Giko.dfm
index 7cf5d4f..1b8695a 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 517
-  Top = 184
+  Left = 521
+  Top = 288
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index d8f0abc..00e6d73 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -858,6 +858,9 @@ type
                FDragButton : TToolButton;      //\83\8a\83\93\83N\82ÌD&D\97p\82ÉDrag\82µ\82Ä\82éButton\95Û\91¶
                FDragWFirst : Boolean;  //WebTab\82ÌD&D\97p
 
+        FListViewBackGroundColor : TColor; //ListView\82ÌBackGroundColor
+        FUseOddResOddColor : Boolean; //\8eæ\93¾\83\8c\83X\90\94\82Æ\83X\83\8c\83b\83h\82Ì\83\8c\83X\90\94\82ª\88á\82Á\82½\82Æ\82«\82É\91¼\82Ì\90F\82Å\95\\8e¦
+        FOddColor : TColor;           //\82»\82Ì\90F
                procedure SetBoardTreeNode;
                function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;
                function SetBoardListItem(Category: TCategory): Integer;
@@ -915,6 +918,7 @@ type
                procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
                                //
                                procedure BrowserTabClick(Sender: TObject);
+        procedure SetListViewBackGroundColor(value: TColor);
        protected
                procedure CreateParams(var Params: TCreateParams); override;
                procedure WndProc(var Message: TMessage); override;
@@ -967,6 +971,10 @@ type
 //             property Favorite: TFavorite read FFavorite write FFavorite;
                procedure SetToolBarPopup;
                procedure ShowFavoriteAddDialog( Item : TObject );
+        property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
+        property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
+        property OddColor : TColor read FOddColor write FOddColor;
+
        published
                property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
        end;
@@ -1142,7 +1150,11 @@ begin
                ListView.Font.Name := GikoSys.Setting.ListFontName;
                ListView.Font.Size := GikoSys.Setting.ListFontSize;
                ListView.Font.Color := GikoSys.Setting.ListFontColor;
-               ListView.Color := GikoSys.Setting.ListBackColor;
+               //ListView.Color := GikoSys.Setting.ListBackColor;
+        ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
+        FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
+        FOddColor := GikoSys.Setting.OddColor;
+
        finally
                TreeView.Items.EndUpdate;
                FavoriteTreeView.Items.EndUpdate;
@@ -2549,10 +2561,15 @@ procedure TGikoForm.ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
 var
        ThreadItem: TThreadItem;
 begin
-       DefaultDraw := True;
+       //
 //     TListView(Sender).Canvas.Font.Style := [];
        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;
 //             if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then
                if ThreadItem.UnRead then
                        TListView(Sender).Canvas.Font.Style := [fsBold];
@@ -8344,7 +8361,13 @@ begin
                ShowMessage('\83t\83@\83C\83\8b\82Ì\8fo\97Í\82É\8e¸\94s\82µ\82Ü\82µ\82½');
        end;
 end;
-
+procedure TGikoForm.SetListViewBackGroundColor(value: TColor);
+begin
+       if FListViewBackGroundColor <> value then begin
+       FListViewBackGroundColor := value;
+        ListView.Color := FListViewBackGroundColor;
+    end;
+end;
 procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject);
 begin
        ExportFavoriteFile.Dialog.FileName := FavoriteDM.GetFavoriteFilePath;

diff --git a/Option.dfm b/Option.dfm
index 2572d98..40ea99f 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -44,9 +44,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = TabSheet2
+    ActivePage = Font1Sheet
     MultiLine = True
-    TabIndex = 8
+    TabIndex = 1
     TabOrder = 0
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -277,7 +277,7 @@ object OptionDialog: TOptionDialog
       end
       object Bevel2: TBevel
         Left = 8
-        Top = 200
+        Top = 229
         Width = 485
         Height = 2
       end
@@ -292,7 +292,7 @@ object OptionDialog: TOptionDialog
         Left = 252
         Top = 4
         Width = 2
-        Height = 298
+        Height = 321
       end
       object Label20: TLabel
         Left = 16
@@ -303,7 +303,7 @@ object OptionDialog: TOptionDialog
       end
       object Label21: TLabel
         Left = 16
-        Top = 208
+        Top = 237
         Width = 106
         Height = 12
         Caption = #12502#12521#12454#12470#12509#12483#12503#12450#12483#12503
@@ -324,7 +324,7 @@ object OptionDialog: TOptionDialog
       end
       object lblSFont: TLabel
         Left = 268
-        Top = 208
+        Top = 237
         Width = 221
         Height = 93
         AutoSize = False
@@ -413,7 +413,7 @@ object OptionDialog: TOptionDialog
       end
       object HintFontButton: TButton
         Left = 156
-        Top = 224
+        Top = 253
         Width = 85
         Height = 21
         Caption = #12501#12457#12531#12488'(&H)...'
@@ -422,7 +422,7 @@ object OptionDialog: TOptionDialog
       end
       object HintBackButton: TButton
         Left = 156
-        Top = 248
+        Top = 277
         Width = 85
         Height = 21
         Caption = #32972#26223#33394'(&I)...'
@@ -431,7 +431,7 @@ object OptionDialog: TOptionDialog
       end
       object HintDefaultButton: TButton
         Left = 156
-        Top = 272
+        Top = 301
         Width = 85
         Height = 21
         Caption = #12487#12501#12457#12523#12488'(&J)'
@@ -440,7 +440,7 @@ object OptionDialog: TOptionDialog
       end
       object HintMemo: TMemo
         Left = 12
-        Top = 224
+        Top = 253
         Width = 137
         Height = 69
         TabStop = False
@@ -522,6 +522,24 @@ object OptionDialog: TOptionDialog
         TabOrder = 11
         OnClick = BrowserTabDefaultButtonClick
       end
+      object OddResNumCheckBox: TCheckBox
+        Left = 15
+        Top = 201
+        Width = 130
+        Height = 17
+        Caption = #12524#12473#25968#22679#28187#12473#12524#24375#35519
+        TabOrder = 19
+        OnClick = OddResNumCheckBoxClick
+      end
+      object OddResNumColorBox: TColorBox
+        Left = 144
+        Top = 198
+        Width = 97
+        Height = 22
+        Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor]
+        ItemHeight = 16
+        TabOrder = 20
+      end
     end
     object CSSTabSheet: TTabSheet
       Caption = 'CSS '#12392#12473#12461#12531
@@ -642,7 +660,7 @@ object OptionDialog: TOptionDialog
           Top = 43
           Width = 417
           Height = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 0
           Text = 'BoardURLComboBox'
         end

diff --git a/Option.pas b/Option.pas
index 3c35448..3bbac02 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -175,6 +175,8 @@ type
                RemoveURLButton: TButton;
                GroupBox15: TGroupBox;
                ShowDialogForEndCheckBox: TCheckBox;
+    OddResNumCheckBox: TCheckBox;
+    OddResNumColorBox: TColorBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -224,6 +226,7 @@ type
                        Change: TItemChange);
                procedure AddURLButtonClick(Sender: TObject);
                procedure RemoveURLButtonClick(Sender: TObject);
+    procedure OddResNumCheckBoxClick(Sender: TObject);
        private
                { Private \90é\8c¾ }
                FClose: Boolean;
@@ -284,7 +287,9 @@ begin
        lblSFont.Caption := '\81\9a\8fd\97v\81\9a'#13#10#13#10
                                                                                + '\83X\83\8c\83b\83h\95\\8e¦\83G\83\8a\83A\82Ì\83t\83H\83\93\83g\95Ï\8dX\82Í\81A'#13#10
                                                                                + '\81uCSS \82Æ\83X\83L\83\93\81v\83^\83u\82Å\90Ý\92è\8fo\97\88\82Ü\82·';
-       CSSCheckBoxClick(Sender);
+
+
+    CSSCheckBoxClick(Sender);
        PostTimeCheckBoxClick(Sender);
 
        if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin
@@ -543,6 +548,11 @@ begin
        ListMemo.Font.Size := GikoSys.Setting.ListFontSize;
        ListMemo.Font.Color := GikoSys.Setting.ListFontColor;
        ListMemo.Color := GikoSys.Setting.ListBackColor;
+    //\83\8c\83X\90\94\91\9d\8c¸\83X\83\8c\8b­\92²\95\\8e¦\83`\83F\83b\83N\83{\83b\83N\83X\81\95\83J\83\89\81[\83_\83C\83A\83\8d\83O
+    OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum;
+    OddResNumColorBox.Selected := GikoSys.Setting.OddColor;
+    OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
+    
        //\83u\83\89\83E\83U\83|\83b\83v\83A\83b\83v\83t\83H\83\93\83g
        HintMemo.Font.Name := GikoSys.Setting.HintFontName;
        HintMemo.Font.Size := GikoSys.Setting.HintFontSize;
@@ -770,6 +780,8 @@ begin
        GikoSys.Setting.ListFontSize := ListMemo.Font.Size;
        GikoSys.Setting.ListFontColor := ListMemo.Font.Color;
        GikoSys.Setting.ListBackColor := ListMemo.Color;
+    GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked;
+    GikoSys.Setting.OddColor := OddResNumColorBox.Selected;
 
        GikoSys.Setting.HintFontName := HintMemo.Font.Name;
        GikoSys.Setting.HintFontSize := HintMemo.Font.Size;
@@ -947,7 +959,10 @@ begin
                GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName;
                GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize;
                GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor;
-               GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
+               //GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
+        GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
+        GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
+        GikoForm.OddColor := GikoSys.Setting.OddColor;
 
                GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
                GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
@@ -1391,5 +1406,10 @@ begin
        BoardURLComboBox.DeleteSelected;
 end;
 
+procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject);
+begin
+       OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
+end;
+
 end.