Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

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

revision 1.34 by h677, Sat Feb 18 18:09:47 2006 UTC revision 1.35 by h677, Wed Feb 22 17:21:21 2006 UTC
# Line 215  type Line 215  type
215      ThreadSizeCalcForFileAction: TAction;      ThreadSizeCalcForFileAction: TAction;
216      SetInputAssistAction: TAction;      SetInputAssistAction: TAction;
217      OpenFindDialogAction: TAction;      OpenFindDialogAction: TAction;
218        ArchiveItemAction: TAction;
219        LiveItemAction: TAction;
220          procedure EditNGActionExecute(Sender: TObject);          procedure EditNGActionExecute(Sender: TObject);
221          procedure ReloadActionExecute(Sender: TObject);          procedure ReloadActionExecute(Sender: TObject);
222          procedure GoFowardActionExecute(Sender: TObject);          procedure GoFowardActionExecute(Sender: TObject);
# Line 399  type Line 401  type
401      procedure ThreadSizeCalcForFileActionExecute(Sender: TObject);      procedure ThreadSizeCalcForFileActionExecute(Sender: TObject);
402      procedure SetInputAssistActionExecute(Sender: TObject);      procedure SetInputAssistActionExecute(Sender: TObject);
403      procedure OpenFindDialogActionExecute(Sender: TObject);      procedure OpenFindDialogActionExecute(Sender: TObject);
404        procedure ArchiveItemActionExecute(Sender: TObject);
405        procedure LiveItemActionExecute(Sender: TObject);
406    private    private
407          { Private 宣言 }          { Private 宣言 }
408          procedure ClearResFilter;          procedure ClearResFilter;
# Line 411  type Line 415  type
415          procedure SelectThreadSaveToFile(dat: Boolean);          procedure SelectThreadSaveToFile(dat: Boolean);
416          function GetSortProperties(List: TObject;var vSortOrder: Boolean): Boolean;          function GetSortProperties(List: TObject;var vSortOrder: Boolean): Boolean;
417          procedure RecalcThreadSize(limit : Integer);          procedure RecalcThreadSize(limit : Integer);
418            procedure ClearSelectComboBox;
419    public    public
420          { Public 宣言 }          { Public 宣言 }
421          procedure RepaintStatusBar;          procedure RepaintStatusBar;
# Line 2488  begin Line 2493  begin
2493          end;          end;
2494  end;  end;
2495  // *************************************************************************  // *************************************************************************
2496    //! SelectComboBoxの値をクリアする
2497    // *************************************************************************
2498    procedure TGikoDM.ClearSelectComboBox;
2499    begin
2500            if GikoForm.SelectComboBoxPanel.Visible then begin
2501                    GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;
2502                    GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
2503                    GikoForm.ListView.SetFocus;
2504            end;
2505    end;
2506    // *************************************************************************
2507  //! スレッドをすべて表示する  //! スレッドをすべて表示する
2508  // *************************************************************************  // *************************************************************************
2509  procedure TGikoDM.AllItemActionExecute(Sender: TObject);  procedure TGikoDM.AllItemActionExecute(Sender: TObject);
# Line 2500  begin Line 2516  begin
2516                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
2517                  GikoForm.ModifySelectList;                  GikoForm.ModifySelectList;
2518                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
2519                  if GikoForm.SelectComboBoxPanel.Visible then begin                  ClearSelectComboBox;
                         GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;  
                         GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;  
                         GikoForm.ListView.SetFocus;  
                 end;  
2520          except          except
2521          end;          end;
2522  end;  end;
# Line 2521  begin Line 2533  begin
2533                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
2534                  GikoForm.ModifySelectList;                  GikoForm.ModifySelectList;
2535                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
2536                  if GikoForm.SelectComboBoxPanel.Visible  then begin                  ClearSelectComboBox;
                         GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;  
                         GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;  
                         GikoForm.ListView.SetFocus;  
                 end;  
2537          except          except
2538          end;          end;
2539  end;  end;
# Line 2543  begin Line 2551  begin
2551                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
2552                  GikoForm.ModifySelectList;                  GikoForm.ModifySelectList;
2553                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
2554                  if GikoForm.SelectComboBoxPanel.Visible then begin                  ClearSelectComboBox;
2555                          GikoForm.SelectComboBox.Text := SELECTCOMBOBOX_NAME;          except
2556                          GikoForm.SelectComboBox.Color := SELECTCOMBOBOX_COLOR;          end;
2557                          GikoForm.ListView.SetFocus;  end;
2558                  end;  // *************************************************************************
2559    //! DAT落ちスレッドのみ表示する
2560    // *************************************************************************
2561    procedure TGikoDM.ArchiveItemActionExecute(Sender: TObject);
2562    begin
2563            try
2564                    if GikoForm.ViewType <> gvtArch then
2565                            GikoForm.SetListViewType(gvtArch);
2566                    GikoSys.Setting.ThreadRange     := gtrArch;
2567                    ArchiveItemAction.Checked := True;
2568                    // SelectComboBox の履歴を更新しておく
2569                    GikoForm.ModifySelectList;
2570                    // SelectComboBox の値をクリア
2571                    ClearSelectComboBox;
2572            except
2573            end;
2574    end;
2575    // *************************************************************************
2576    //! 生存スレッドのみ表示する
2577    // *************************************************************************
2578    procedure TGikoDM.LiveItemActionExecute(Sender: TObject);
2579    begin
2580            try
2581                    if GikoForm.ViewType <> gvtLive then
2582                            GikoForm.SetListViewType(gvtLive);
2583                    GikoSys.Setting.ThreadRange     := gtrLive;
2584                    LiveItemAction.Checked := True;
2585                    // SelectComboBox の履歴を更新しておく
2586                    GikoForm.ModifySelectList;
2587                    // SelectComboBox の値をクリア
2588                    ClearSelectComboBox;
2589          except          except
2590          end;          end;
2591  end;  end;
2592    
2593  // *************************************************************************  // *************************************************************************
2594  //! スレッドの表示範囲を設定  //! スレッドの表示範囲を設定
2595  // *************************************************************************  // *************************************************************************
# Line 2560  begin Line 2599  begin
2599          gtrAll: AllItemAction.Execute;          gtrAll: AllItemAction.Execute;
2600          gtrLog: LogItemAction.Execute;          gtrLog: LogItemAction.Execute;
2601          gtrNew: NewItemAction.Execute;          gtrNew: NewItemAction.Execute;
2602            gtrArch: ArchiveItemAction.Execute;
2603            gtrLive: LiveItemAction.Execute;
2604          end;          end;
2605  end;  end;
2606  // *************************************************************************  // *************************************************************************
# Line 3818  begin Line 3859  begin
3859          end;          end;
3860  end;  end;
3861    
3862    
3863  end.  end.
3864    

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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