Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
| 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 |
|
|
|