Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

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

revision 1.21.2.2 by yoffy, Thu Sep 9 16:20:33 2004 UTC revision 1.21.2.3 by yoffy, Fri Oct 8 05:44:53 2004 UTC
# Line 90  type Line 90  type
90      TabSheet3: TTabSheet;      TabSheet3: TTabSheet;
91      GroupBox9: TGroupBox;      GroupBox9: TGroupBox;
92      ThreadListIconCheckBox: TCheckBox;      ThreadListIconCheckBox: TCheckBox;
     NonAcquiredCountCheckBox: TCheckBox;  
93      GroupBox16: TGroupBox;      GroupBox16: TGroupBox;
94      CreationTimeLogsCheckBox: TCheckBox;      CreationTimeLogsCheckBox: TCheckBox;
95      FutureThreadCheckBox: TCheckBox;      FutureThreadCheckBox: TCheckBox;
# Line 766  begin Line 765  begin
765    
766          //スレッド一覧更新アイコン          //スレッド一覧更新アイコン
767          ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;          ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;
         NonAcquiredCountCheckBox.Checked := GikoSys.Setting.NonAcquiredCount;  
768          CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;          CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;
769          FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;          FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;
770          SelectIntervalEdit.Text := IntToStr(GikoSys.Setting.SelectInterval);          SelectIntervalEdit.Text := IntToStr(GikoSys.Setting.SelectInterval);
771    
772          //dat落ちスレソート順          //dat落ちスレソート順
773          case GikoSys.Setting.DatOchiSortIndex of          case TGikoBoardColumnID( GikoSys.Setting.DatOchiSortIndex ) of
774                  0:                  gbcTitle:
775                          if GikoSys.Setting.DatOchiSortOrder then                          if GikoSys.Setting.DatOchiSortOrder then
776                                  DatOchiSortCombo.ItemIndex := 1                                  DatOchiSortCombo.ItemIndex := 1
777                          else                          else
778                                  DatOchiSortCombo.ItemIndex := 2;                                  DatOchiSortCombo.ItemIndex := 2;
779                  6:                  gbcRoundDate://gbcLastModified:
780                          if GikoSys.Setting.DatOchiSortOrder then                          if GikoSys.Setting.DatOchiSortOrder then
781                                  DatOchiSortCombo.ItemIndex := 3                                  DatOchiSortCombo.ItemIndex := 3
782                          else                          else
783                                  DatOchiSortCombo.ItemIndex := 4;                                  DatOchiSortCombo.ItemIndex := 4;
784                  7:                  gbcCreated:
785                          if GikoSys.Setting.DatOchiSortOrder then                          if GikoSys.Setting.DatOchiSortOrder then
786                                  DatOchiSortCombo.ItemIndex := 5                                  DatOchiSortCombo.ItemIndex := 5
787                          else                          else
788                                  DatOchiSortCombo.ItemIndex := 6;                                  DatOchiSortCombo.ItemIndex := 6;
789                    gbcLastModified:
790                            if GikoSys.Setting.DatOchiSortOrder then
791                                    DatOchiSortCombo.ItemIndex := 7
792                            else
793                                    DatOchiSortCombo.ItemIndex := 8;
794          else          else
795                  DatOchiSortCombo.ItemIndex := 0;                  DatOchiSortCombo.ItemIndex := 0;
796          end;          end;
# Line 802  begin Line 805  begin
805    
806          //TabAutoLoad          //TabAutoLoad
807          TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;          TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;
   
808  end;  end;
809    
810  procedure TOptionDialog.SaveSetting;  procedure TOptionDialog.SaveSetting;
# Line 995  begin Line 997  begin
997          //スレッド一覧更新アイコン          //スレッド一覧更新アイコン
998          GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;          GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;
999    
         //取得数、未取得数  
         if (GikoSys.Setting.NonAcquiredCount <> NonAcquiredCountCheckBox.Checked) and (GikoForm.ActiveList Is TBoard) then  
                 FRepaintList := true;  
         GikoSys.Setting.NonAcquiredCount := NonAcquiredCountCheckBox.Checked;  
   
1000          GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;          GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;
1001          GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked;          GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked;
1002          if StrToIntDef(SelectIntervalEdit.Text, 110) > 55 then          if StrToIntDef(SelectIntervalEdit.Text, 110) > 55 then
# Line 1012  begin Line 1009  begin
1009                  0: GikoSys.Setting.DatOchiSortIndex := -1;      //並び替えしない                  0: GikoSys.Setting.DatOchiSortIndex := -1;      //並び替えしない
1010                  1: begin        //スレ番号(昇順)                  1: begin        //スレ番号(昇順)
1011                          GikoSys.Setting.DatOchiSortOrder := true;                          GikoSys.Setting.DatOchiSortOrder := true;
1012                          GikoSys.Setting.DatOchiSortIndex := 0;                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcTitle );
1013                     end;                     end;
1014                  2: begin        //スレ番号(降順)                  2: begin        //スレ番号(降順)
1015                          GikoSys.Setting.DatOchiSortOrder := false;                          GikoSys.Setting.DatOchiSortOrder := false;
1016                          GikoSys.Setting.DatOchiSortIndex := 0;                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcTitle );
1017                     end;                     end;
1018                  3: begin        //取得日時(昇順)                  3: begin        //取得日時(昇順)
1019                          GikoSys.Setting.DatOchiSortOrder := true;                          GikoSys.Setting.DatOchiSortOrder := true;
1020                          GikoSys.Setting.DatOchiSortIndex := 6;                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcRoundDate );{gbcLastModified}
1021                     end;                     end;
1022                  4: begin        //取得日時(降順)                  4: begin        //取得日時(降順)
1023                          GikoSys.Setting.DatOchiSortOrder := false;                          GikoSys.Setting.DatOchiSortOrder := false;
1024                          GikoSys.Setting.DatOchiSortIndex := 6;                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcRoundDate );{gbcLastModified}
1025                     end;                     end;
1026                  5: begin        //スレ作成日時(昇順)                  5: begin        //スレ作成日時(昇順)
1027                          GikoSys.Setting.DatOchiSortOrder := true;                          GikoSys.Setting.DatOchiSortOrder := true;
1028                          GikoSys.Setting.DatOchiSortIndex := 7;                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcCreated );
1029                     end;                     end;
1030                  6: begin        //スレ作成日時(降順)                  6: begin        //スレ作成日時(降順)
1031                          GikoSys.Setting.DatOchiSortOrder := false;                          GikoSys.Setting.DatOchiSortOrder := false;
1032                          GikoSys.Setting.DatOchiSortIndex := 7;                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcCreated );
1033                     end;                     end;
1034                    7:      begin  //スレ最終更新日時(昇順)
1035                            GikoSys.Setting.DatOchiSortOrder := true;
1036                            GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}
1037                            end;
1038                    8:      begin  //スレ最終更新日時(降順)
1039                            GikoSys.Setting.DatOchiSortOrder := false;
1040                            GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}
1041                            end;
1042          end;          end;
1043    
1044          GikoSys.Setting.WriteSystemSettingFile;          GikoSys.Setting.WriteSystemSettingFile;

Legend:
Removed from v.1.21.2.2  
changed lines
  Added in v.1.21.2.3

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