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.374 by yoffy, Mon Aug 2 12:48:18 2004 UTC revision 1.375 by yoffy, Mon Aug 2 15:11:56 2004 UTC
# Line 500  type Line 500  type
500                  FavoriteTreeViewNameCopyAction: TAction;                  FavoriteTreeViewNameCopyAction: TAction;
501                  FavoriteTreeViewNameURLCopyAction: TAction;                  FavoriteTreeViewNameURLCopyAction: TAction;
502                  FavoriteTreeViewLogDeleteAction: TAction;                  FavoriteTreeViewLogDeleteAction: TAction;
503                  OnlyAHundredRes: TAction;      ResRangeAction: TAction;
504                  ToolButton20: TToolButton;                  ToolButton20: TToolButton;
505                  AHundredResButton: TToolButton;      ResRangeButton: TToolButton;
506                  N60: TMenuItem;                  N60: TMenuItem;
507                  ExportFavoriteFileAction1: TMenuItem;                  ExportFavoriteFileAction1: TMenuItem;
508                  ExportFavoriteFile: TFileSaveAs;                  ExportFavoriteFile: TFileSaveAs;
# Line 555  type Line 555  type
555      TabOpen: TMenuItem;      TabOpen: TMenuItem;
556      TabsSaveAction: TAction;      TabsSaveAction: TAction;
557      TabsOpenAction: TAction;      TabsOpenAction: TAction;
558        ResRangePopupMenu: TPopupMenu;
559        N1001: TMenuItem;
560        N501: TMenuItem;
561        N22: TMenuItem;
562        OnlyAHundredRes: TAction;
563        OnlyNewResAction: TAction;
564        OnlyKokoResAction: TAction;
565                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
566                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
567                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 833  type Line 840  type
840                          Shift: TShiftState; X, Y: Integer);                          Shift: TShiftState; X, Y: Integer);
841                  procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;                  procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
842                          State: TDragState; var Accept: Boolean);                          State: TDragState; var Accept: Boolean);
843                  procedure OnlyAHundredResExecute(Sender: TObject);                  procedure ResRangeActionExecute(Sender: TObject);
844                  procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,                  procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
845                          Y: Integer);                          Y: Integer);
846                  procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;                  procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
# Line 871  type Line 878  type
878      procedure TreeSelectNameCopyExecute(Sender: TObject);      procedure TreeSelectNameCopyExecute(Sender: TObject);
879      procedure FavoriteTreeViewMouseUp(Sender: TObject;      procedure FavoriteTreeViewMouseUp(Sender: TObject;
880        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
881      procedure OnlyAHundredResUpdate(Sender: TObject);      procedure ResRangeActionUpdate(Sender: TObject);
882                  procedure SetFocusForBrowserActionExecute(Sender: TObject);                  procedure SetFocusForBrowserActionExecute(Sender: TObject);
883                  procedure SetFocusForBrowserActionUpdate(Sender: TObject);                  procedure SetFocusForBrowserActionUpdate(Sender: TObject);
884      procedure SetFocusForThreadListActionExecute(Sender: TObject);      procedure SetFocusForThreadListActionExecute(Sender: TObject);
# Line 896  type Line 903  type
903      procedure TabsOpenActionExecute(Sender: TObject);      procedure TabsOpenActionExecute(Sender: TObject);
904      procedure TabsSaveToFileActionExecute(Sender: TObject);      procedure TabsSaveToFileActionExecute(Sender: TObject);
905      procedure TabsOpenFromFileActionExecute(Sender: TObject);      procedure TabsOpenFromFileActionExecute(Sender: TObject);
906        procedure OnlyAHundredResExecute(Sender: TObject);
907        procedure OnlyKokoResActionExecute(Sender: TObject);
908        procedure OnlyNewResActionExecute(Sender: TObject);
909          private          private
910                  { Private 宣言 }                  { Private 宣言 }
911          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 958  type Line 968  type
968                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー
969                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標
970                  FBrowsers: TList;                  FBrowsers: TList;
971                    FResRangeMenuSelect     : Longint;              ///< AHundredResButton で選択されている項目 (フォーマットは ResRange 互換)
972                  procedure SetBoardTreeNode( inBBS : TBBS );                  procedure SetBoardTreeNode( inBBS : TBBS );
973                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;
974                  function SetBoardListItem(Category: TCategory): Integer;                  function SetBoardListItem(Category: TCategory): Integer;
# Line 1145  type Line 1156  type
1156                  FThread         : TThreadItem;                  FThread         : TThreadItem;
1157                  FLastSize       : Integer;                  FLastSize       : Integer;
1158                  FRepaint        : Boolean;                  FRepaint        : Boolean;
1159                  FOnlyHundred: Boolean;   //             FOnlyHundred: Boolean;
1160          public          public
1161                  destructor      Destroy; override;                  destructor      Destroy; override;
1162                  property        Browser : TWebBrowser   read FBrowser   write FBrowser;                  property        Browser : TWebBrowser   read FBrowser   write FBrowser;
1163                  property        Thread  : TThreadItem   read FThread    write FThread;                  property        Thread  : TThreadItem   read FThread    write FThread;
1164                  property        LastSize        : Integer               read FLastSize  write FLastSize;                  property        LastSize        : Integer               read FLastSize  write FLastSize;
1165                  property        Repaint         : Boolean               read FRepaint   write FRepaint;                  property        Repaint         : Boolean               read FRepaint   write FRepaint;
1166                  property        OnlyHundred : Boolean           read FOnlyHundred write FOnlyHundred;  //              property        OnlyHundred : Boolean           read FOnlyHundred write FOnlyHundred;
1167          end;          end;
1168    
1169  var  var
# Line 1556  begin Line 1567  begin
1567          end;          end;
1568          ReadToolBarSetting(ActionList, BrowserToolBar);          ReadToolBarSetting(ActionList, BrowserToolBar);
1569          SetToolBarPopup;          SetToolBarPopup;
1570          OnlyAHundredRes.Checked := GikoSys.Setting.OnlyAHundredRes;  
1571            // レス表示範囲
1572            FResRangeMenuSelect := 100;
1573            case GikoSys.ResRange of
1574            Ord( grrAll ):
1575                    begin
1576                            AllResAction.Execute;
1577                    end;
1578            Ord( grrSelect ):
1579                    begin
1580                            SelectComboBox.Text := SelectComboBox.Items[ 0 ];
1581                            SelectResAction.Checked := True;
1582                    end;
1583            else
1584                    FResRangeMenuSelect := GikoSys.ResRange;
1585    //              ResRangeAction.Execute;
1586                    case FResRangeMenuSelect of
1587                    Ord( grrKoko ): OnlyKokoResAction.Checked       := True;
1588                    Ord( grrNew ):  OnlyNewResAction.Checked        := True;
1589                    100:                                            OnlyAHundredRes.Checked         := True;
1590                    end;
1591            end;
1592    
1593          //アドレスバー          //アドレスバー
1594          AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;          AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
1595    
# Line 3363  begin Line 3396  begin
3396                          //newBrowser.Browser.Navigate(BLANK_HTML);                          //newBrowser.Browser.Navigate(BLANK_HTML);
3397                          newBrowser.thread := ThreadItem;                          newBrowser.thread := ThreadItem;
3398                          newBrowser.Repaint := true;                          newBrowser.Repaint := true;
3399                          newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;  //                      newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
3400    
3401                          BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);                          BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
3402                          if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin                          if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin
# Line 3391  begin Line 3424  begin
3424                          FBrowsers.Move(BROWSER_COUNT - 1, 0);                          FBrowsers.Move(BROWSER_COUNT - 1, 0);
3425                          //newBrowser.Browser.Navigate(BLANK_HTML);                          //newBrowser.Browser.Navigate(BLANK_HTML);
3426                          newBrowser.thread := ThreadItem;                          newBrowser.thread := ThreadItem;
3427                          newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;  //                      newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
3428                          newBrowser.Repaint := true;                          newBrowser.Repaint := true;
3429    
3430                          i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);                          i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
# Line 3559  begin Line 3592  begin
3592                                          //追記 200406/19                                          //追記 200406/19
3593                                          //VisibleのときしかDocumentCompleteは呼ばれないらしい                                          //VisibleのときしかDocumentCompleteは呼ばれないらしい
3594                                          Thread.FBrowser.OnDocumentComplete(Thread.FBrowser, Thread.FBrowser.Parent, url);                                          Thread.FBrowser.OnDocumentComplete(Thread.FBrowser, Thread.FBrowser.Parent, url);
3595                                          Thread.OnlyHundred := GikoSys.OnlyAHundredRes;  //                                      Thread.OnlyHundred := GikoSys.OnlyAHundredRes;
3596                                          Application.ProcessMessages;                                          Application.ProcessMessages;
3597                                          //ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。                                          //ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。
3598                                          //相しないと一画面分しか描画できてないのでそれ以上のスクロール量を指定しても無効になる                                          //相しないと一画面分しか描画できてないのでそれ以上のスクロール量を指定しても無効になる
# Line 8445  var Line 8478  var
8478          i                                                                       : Integer;          i                                                                       : Integer;
8479          aIEButton                                       : TToolButton;          aIEButton                                       : TToolButton;
8480          aCabinetBBSButton       : TToolButton;          aCabinetBBSButton       : TToolButton;
8481            aResRangeButton         : TToolButton;
8482  begin  begin
8483          for i := 0 to StdToolBar.ButtonCount - 1 do begin          for i := 0 to StdToolBar.ButtonCount - 1 do begin
8484          end;          end;
# Line 8460  begin Line 8494  begin
8494          aCabinetBBSButton       := FindToolBarButton( StdToolBar, CabinetBBSAction );          aCabinetBBSButton       := FindToolBarButton( StdToolBar, CabinetBBSAction );
8495          if aCabinetBBSButton <> nil then          if aCabinetBBSButton <> nil then
8496                  aCabinetBBSButton.DropdownMenu  := BBSSelectPopupMenu;                  aCabinetBBSButton.DropdownMenu  := BBSSelectPopupMenu;
8497            aResRangeButton         := FindToolBarButton( BrowserToolBar, ResRangeAction );
8498            if aResRangeButton <> nil then
8499                    aResRangeButton.DropdownMenu            := ResRangePopupMenu;
8500  end;  end;
8501    
8502  procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;  procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
# Line 8594  var Line 8631  var
8631          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
8632          FilterList : TStringList;          FilterList : TStringList;
8633          i, idx : Integer;          i, idx : Integer;
         lastStatus      : Integer;  
8634  begin  begin
         if Length( SelectComboBox.Text ) > 0 then lastStatus := 1  
         else if GikoSys.OnlyAHundredRes then lastStatus := 2  
         else lastStatus := 0;  
8635          Dlg := TListSelectDialog.Create(Self);          Dlg := TListSelectDialog.Create(Self);
8636          try          try
8637                  Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);                  Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);
# Line 8607  begin Line 8640  begin
8640                  if Dlg.ModalResult = mrOK then begin                  if Dlg.ModalResult = mrOK then begin
8641                          if Length( Dlg.SelectComboBox.Text ) = 0 then begin                          if Length( Dlg.SelectComboBox.Text ) = 0 then begin
8642                                  // 空入力で OK はキャンセルと同意義                                  // 空入力で OK はキャンセルと同意義
8643                                  case lastStatus of                                  case GikoSys.ResRange of
8644                                  0:      AllResAction.Execute;                                  Ord( grrAll ):          AllResAction.Execute;
8645                                  1:      AllResAction.Execute;                                  Ord( grrSelect ):       AllResAction.Execute;
8646                                  2:      OnlyAHundredRes.Execute;                                  else                                                    ResRangeAction.Execute;
8647                                  end;                                  end;
8648                          end else begin                          end else begin
8649                                  // ボタンの更新                                  // ボタンの更新
8650                                  AllResAction.Checked := False;                                  AllResAction.Checked := False;
8651                                  SelectResAction.Checked := True;                                  SelectResAction.Checked := True;
8652                                  OnlyAHundredRes.Checked := False;                                  ResRangeAction.Checked := False;
8653                                    GikoSys.ResRange := Ord( grrSelect );
8654    
8655                                  // 最後に設定したものを覚えておく                                  // 最後に設定したものを覚えておく
8656                                  FSelectResWord := Dlg.SelectComboBox.Text;                                  FSelectResWord := Dlg.SelectComboBox.Text;
# Line 8658  begin Line 8692  begin
8692                          end;                          end;
8693                  end else begin                  end else begin
8694                          // キャンセル                          // キャンセル
8695                          case lastStatus of                          case GikoSys.ResRange of
8696                          0:      AllResAction.Execute;                          Ord( grrAll ):          AllResAction.Execute;
8697                          2:      OnlyAHundredRes.Execute;                          Ord( grrSelect ):       {* nothing *};
8698                          end;                          else                                                    ResRangeAction.Execute;
8699                          // ボタンの更新                          end;
 //                      AllResAction.Checked := False;  
 //                      SelectResAction.Checked := True;  
 //                      OnlyAHundredRes.Checked := False;  
 //                      GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked;  
8700                  end;                  end;
8701          finally          finally
8702                  Dlg.Release;                  Dlg.Release;
# Line 8697  begin Line 8727  begin
8727          // ボタンの更新          // ボタンの更新
8728          AllResAction.Checked := True;          AllResAction.Checked := True;
8729          SelectResAction.Checked := False;          SelectResAction.Checked := False;
8730          OnlyAHundredRes.Checked := False;          ResRangeAction.Checked := False;
8731    
8732          if (Length( FSelectResWord ) > 0) or GikoSys.OnlyAHundredRes then begin          if GikoSys.ResRange <> Ord( grrAll ) then begin
8733                  GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked;                  GikoSys.ResRange := Ord( grrAll );
8734    
8735                  // フィルタ文字列を空にする                  // フィルタ文字列を空にする
8736                  FilterList := TStringList.Create;                  FilterList := TStringList.Create;
# Line 9693  begin Line 9723  begin
9723    
9724  end;  end;
9725    
9726  procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject);  procedure TGikoForm.ResRangeActionExecute(Sender: TObject);
9727  var  var
9728          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
9729          FilterList : TStringList;          FilterList : TStringList;
# Line 9703  begin Line 9733  begin
9733                  and (FActiveContent.FBrowser.Busy) then Exit;                  and (FActiveContent.FBrowser.Busy) then Exit;
9734    
9735          // 表示の更新          // 表示の更新
9736          AllResAction.Checked := False;          AllResAction.Checked            := False;
9737          SelectResAction.Checked := False;          SelectResAction.Checked := False;
9738          OnlyAHundredRes.Checked := True;          ResRangeButton.Down                     := True;
9739            GikoSys.ResRange                                := FResRangeMenuSelect;
9740            case FResRangeMenuSelect of
9741            Ord( grrKoko ): OnlyKokoResAction.Checked       := True;
9742            Ord( grrNew ):  OnlyNewResAction.Checked        := True;
9743            100:                                            OnlyAHundredRes.Checked         := True;
9744            end;
9745    
9746          if (Length( FSelectResWord ) > 0) or (not GikoSys.OnlyAHundredRes) then begin          // フィルタ文字列を空にする
9747                  // フィルタ文字列を空にする          FilterList := TStringList.Create;
9748                  FilterList := TStringList.Create;          try
9749                  try                  GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
9750                          GikoSys.FSelectResFilter.LoadFromStringList( FilterList );                  GikoSys.FSelectResFilter.Reverse := False;
9751                          GikoSys.FSelectResFilter.Reverse := False;          finally
9752                  finally                  FilterList.Destroy;
9753                          FilterList.Destroy;          end;
                 end;  
9754    
9755                  FSelectResWord := '';          FSelectResWord := '';
                 GikoSys.OnlyAHundredRes := OnlyAHundredRes.Checked;  
9756    
9757                  // スレッドを再描画          // スレッドを再描画
9758                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin          for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
9759                          TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
                 end;  
                 ThreadItem := GetActiveContent;  
                 if ThreadItem <> nil then  
                         InsertBrowserTab( ThreadItem, True );  
9760          end;          end;
9761            ThreadItem := GetActiveContent;
9762            if ThreadItem <> nil then
9763                    InsertBrowserTab( ThreadItem, True );
9764  end;  end;
9765    
9766  procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X,  procedure TGikoForm.FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
# Line 10397  begin Line 10430  begin
10430    
10431  end;  end;
10432    
10433  procedure TGikoForm.OnlyAHundredResUpdate(Sender: TObject);  procedure TGikoForm.ResRangeActionUpdate(Sender: TObject);
10434  begin  begin
10435          OnlyAHundredRes.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);          ResRangeAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
10436  end;  end;
10437    
10438  function TGikoForm.WebBrowserClick(Sender: TObject): WordBool;  function TGikoForm.WebBrowserClick(Sender: TObject): WordBool;
# Line 10877  begin Line 10910  begin
10910          end;          end;
10911  end;  end;
10912    
10913    procedure TGikoForm.OnlyAHundredResExecute(Sender: TObject);
10914    var
10915            ThreadItem : TThreadItem;
10916            FilterList : TStringList;
10917            i: Integer;
10918    begin
10919            if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
10920                    and (FActiveContent.FBrowser.Busy) then Exit;
10921    
10922            // 表示の更新
10923            AllResAction.Checked                    := False;
10924            SelectResAction.Checked         := False;
10925            ResRangeButton.Down                             := True;
10926            OnlyAHundredRes.Checked         := True;
10927            OnlyKokoResAction.Checked       := False;
10928            OnlyNewResAction.Checked        := False;
10929            GikoSys.ResRange                                        := 100;
10930            FResRangeMenuSelect                             := 100;
10931    
10932            // フィルタ文字列を空にする
10933            FilterList := TStringList.Create;
10934            try
10935                    GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
10936                    GikoSys.FSelectResFilter.Reverse := False;
10937            finally
10938                    FilterList.Destroy;
10939            end;
10940    
10941            FSelectResWord := '';
10942    
10943            // スレッドを再描画
10944            for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
10945                    TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
10946            end;
10947            ThreadItem := GetActiveContent;
10948            if ThreadItem <> nil then
10949                    InsertBrowserTab( ThreadItem, True );
10950    end;
10951    
10952    procedure TGikoForm.OnlyKokoResActionExecute(Sender: TObject);
10953    var
10954            ThreadItem : TThreadItem;
10955            FilterList : TStringList;
10956            i: Integer;
10957    begin
10958            if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
10959                    and (FActiveContent.FBrowser.Busy) then Exit;
10960    
10961            // 表示の更新
10962            AllResAction.Checked                    := False;
10963            SelectResAction.Checked         := False;
10964            ResRangeButton.Down                             := True;
10965            OnlyAHundredRes.Checked         := False;
10966            OnlyKokoResAction.Checked       := True;
10967            OnlyNewResAction.Checked        := False;
10968            GikoSys.ResRange                                        := Ord( grrKoko );
10969            FResRangeMenuSelect                             := Ord( grrKoko );
10970    
10971            // フィルタ文字列を空にする
10972            FilterList := TStringList.Create;
10973            try
10974                    GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
10975                    GikoSys.FSelectResFilter.Reverse := False;
10976            finally
10977                    FilterList.Destroy;
10978            end;
10979    
10980            FSelectResWord := '';
10981    
10982            // スレッドを再描画
10983            for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
10984                    TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
10985            end;
10986            ThreadItem := GetActiveContent;
10987            if ThreadItem <> nil then
10988                    InsertBrowserTab( ThreadItem, True );
10989    end;
10990    
10991    procedure TGikoForm.OnlyNewResActionExecute(Sender: TObject);
10992    var
10993            ThreadItem : TThreadItem;
10994            FilterList : TStringList;
10995            i: Integer;
10996    begin
10997            if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil)
10998                    and (FActiveContent.FBrowser.Busy) then Exit;
10999    
11000            // 表示の更新
11001            AllResAction.Checked                    := False;
11002            SelectResAction.Checked         := False;
11003            ResRangeButton.Down                             := True;
11004            OnlyAHundredRes.Checked         := False;
11005            OnlyKokoResAction.Checked       := False;
11006            OnlyNewResAction.Checked        := True;
11007            GikoSys.ResRange                                        := Ord( grrNew );
11008            FResRangeMenuSelect                             := Ord( grrNew );
11009    
11010            // フィルタ文字列を空にする
11011            FilterList := TStringList.Create;
11012            try
11013                    GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
11014                    GikoSys.FSelectResFilter.Reverse := False;
11015            finally
11016                    FilterList.Destroy;
11017            end;
11018    
11019            FSelectResWord := '';
11020    
11021            // スレッドを再描画
11022            for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
11023                    TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
11024            end;
11025            ThreadItem := GetActiveContent;
11026            if ThreadItem <> nil then
11027                    InsertBrowserTab( ThreadItem, True );
11028    end;
11029    
11030  initialization  initialization
11031                                  OleInitialize(nil);                                  OleInitialize(nil);
11032  finalization  finalization

Legend:
Removed from v.1.374  
changed lines
  Added in v.1.375

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