| 717 |
BrowserNullTab: TBrowserRecord; |
BrowserNullTab: TBrowserRecord; |
| 718 |
FControlThread: TThreadControl; |
FControlThread: TThreadControl; |
| 719 |
FIconData : TNotifyIconData; |
FIconData : TNotifyIconData; |
| 720 |
procedure MoveToURL(const inURL: string); |
procedure MoveToURL(const inURL: string; KeyMask: Boolean = False); |
| 721 |
function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord; |
function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord; |
| 722 |
procedure ReloadBBS; |
procedure ReloadBBS; |
| 723 |
function GetHttpState: Boolean; |
function GetHttpState: Boolean; |
| 4701 |
end; |
end; |
| 4702 |
end; |
end; |
| 4703 |
|
|
| 4704 |
procedure TGikoForm.MoveToURL(const inURL: string); |
procedure TGikoForm.MoveToURL(const inURL: string; KeyMask: Boolean = False); |
| 4705 |
var |
var |
| 4706 |
protocol, host, path, document, port, bookmark : string; |
protocol, host, path, document, port, bookmark : string; |
| 4707 |
URL, protocol2, host2, path2, document2, port2, bookmark2 : string; |
URL, protocol2, host2, path2, document2, port2, bookmark2 : string; |
| 4718 |
|
|
| 4719 |
GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark ); |
GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark ); |
| 4720 |
GikoSys.Parse2chURL( inURL, path, document, BBSID, BBSKey ); |
GikoSys.Parse2chURL( inURL, path, document, BBSID, BBSKey ); |
| 4721 |
|
// アクションから呼ばれるとshift/ctrlはおしっぱの場合がほとんどなのでマスクする |
| 4722 |
|
if not KeyMask then begin |
| 4723 |
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
| 4724 |
ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001); |
ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001); |
| 4725 |
if shiftDown then begin |
if shiftDown then begin |
| 4726 |
GikoSys.OpenBrowser(inURL, gbtUserApp); |
GikoSys.OpenBrowser(inURL, gbtUserApp); |
| 4727 |
Exit; |
Exit; |
| 4728 |
end else if ctrlDown then begin |
end else if ctrlDown then begin |
| 4729 |
GikoSys.OpenBrowser(inURL, gbtIE); |
GikoSys.OpenBrowser(inURL, gbtIE); |
| 4730 |
Exit; |
Exit; |
| 4731 |
end; |
end; |
| 4732 |
|
end; |
| 4733 |
|
|
| 4734 |
//===== プラグイン |
//===== プラグイン |
| 4735 |
try |
try |