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.76 by h677, Sun May 17 02:37:39 2009 UTC revision 1.77 by h677, Sun May 17 04:28:00 2009 UTC
# Line 476  type Line 476  type
476          procedure ClearSelectComboBox;          procedure ClearSelectComboBox;
477      procedure ClearMailAllEditor();      procedure ClearMailAllEditor();
478      procedure ClearNameTextAllEditor();      procedure ClearNameTextAllEditor();
479      procedure MoveURLWithHistory(URL : String);      procedure MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
480      procedure BackToHistory(item: TMoveHistoryItem);      procedure BackToHistory(item: TMoveHistoryItem);
481      function GetActiveThreadLinks : IHTMLElementCollection;      function GetActiveThreadLinks : IHTMLElementCollection;
482      procedure GetLinkURLs(links : IHTMLElementCollection;      procedure GetLinkURLs(links : IHTMLElementCollection;
# Line 4143  begin Line 4143  begin
4143              end;              end;
4144          end else begin          end else begin
4145              //URLに移動              //URLに移動
4146              MoveURLWithHistory(item.ThreadItem.URL);              MoveURLWithHistory(item.ThreadItem.URL, True);
4147          end;          end;
4148      end;      end;
4149  end;  end;
4150  //! 履歴処理つきURL移動  //! 履歴処理つきURL移動
4151  procedure TGikoDM.MoveURLWithHistory(URL : String);  procedure TGikoDM.MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
4152  var  var
4153      idx : Integer;      idx : Integer;
4154  begin  begin
4155      //URLに移動      //URLに移動
4156      GikoForm.MoveToURL(URL);      GikoForm.MoveToURL(URL, KeyMask);
4157      //以下、履歴の処理      //以下、履歴の処理
4158      idx := GikoForm.AddressComboBox.Items.IndexOf(URL);      idx := GikoForm.AddressComboBox.Items.IndexOf(URL);
4159      if idx = -1 then begin      if idx = -1 then begin

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

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