| 2874 |
end else begin |
end else begin |
| 2875 |
threadItem := GetActiveContent; |
threadItem := GetActiveContent; |
| 2876 |
if Pos('about:blank..', Text) = 1 then begin |
if Pos('about:blank..', Text) = 1 then begin |
| 2877 |
if(AnsiPos('http://jbbs.livedoor.jp/', threadItem.URL) <> 0) or |
wkInt := LastDelimiter( '/', threadItem.URL ); |
| 2878 |
(AnsiPos('http://jbbs.livedoor.com/', threadItem.URL) <> 0) or |
if Pos( '?', Copy( threadItem.URL, wkInt, MaxInt ) ) = 0 then |
| 2879 |
(AnsiPos('http://jbbs.shitaraba.com/', threadItem.URL) <> 0) then begin |
URL := Copy( threadItem.URL, 1, LastDelimiter( '/', threadItem.URL ) ) + |
| 2880 |
URL := Copy(threadItem.URL, 1, LastDelimiter('/',threadItem.URL)); |
Copy( Text, LastDelimiter( '/', Text ) + 1, MaxInt ) |
| 2881 |
Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo); |
else |
| 2882 |
if ( PathRec.FSt <> 0 ) and ( PathRec.FTo <> 0 ) then |
URL := Copy( threadItem.URL, 1, LastDelimiter( '?', threadItem.URL ) ) + |
| 2883 |
buf := IntToStr(PathRec.FSt) + '-' + IntToStr(PathRec.FTo) |
Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt ) |
|
else if( PathRec.FSt <> 0 ) then |
|
|
buf := IntToStr(PathRec.FSt); |
|
|
end else if AnsiPos('machi.to/bbs/', threadItem.URL) <> 0 then begin |
|
|
URL := threaditem.URL; |
|
|
buf := Copy(Text,AnsiPos('&st=',Text),Length(Text)-AnsiPos('&st=',Text) + 1); |
|
|
end else begin |
|
|
if (AnsiPos('&', threadItem.URL) <> 0) and (AnsiPos('&', Text) = 0)then begin |
|
|
URL := threadItem.URL; |
|
|
buf := Copy(Text,LastDelimiter('/',Text)+1,Length(Text)-LastDelimiter('/',Text)); |
|
|
if AnsiPos('-', buf) <> 0 then begin |
|
|
buf2 := Copy(buf, AnsiPos('-', buf) + 1, Length(buf)); |
|
|
Delete(buf, AnsiPos('-', buf), Length(buf)); |
|
|
if (IsNumeric(buf)) and (IsNumeric(buf2)) then |
|
|
buf := Format('&st=%s&to=%s', [buf, buf2]) |
|
|
else if (IsNumeric(buf)) then |
|
|
buf := Format('&st=%s&to=%s', [buf, buf]) |
|
|
else if (IsNumeric(buf)) then |
|
|
buf := Format('&st=%s&to=%s', [buf2, buf2]) |
|
|
else |
|
|
buf := ''; |
|
|
end else begin |
|
|
if IsNumeric(buf) then |
|
|
buf := Format('&st=%s&to=%s', [buf, buf]) |
|
|
else |
|
|
buf := ''; |
|
|
end; |
|
|
end else begin |
|
|
URL := Copy(threadItem.URL, 1, LastDelimiter('/',threadItem.URL)); |
|
|
buf := Copy(Text,LastDelimiter('/',Text)+1,Length(Text)-LastDelimiter('/',Text)); |
|
|
end; |
|
|
end; |
|
|
URL := URL + buf; |
|
| 2884 |
end else begin |
end else begin |
| 2885 |
URL := Text; |
URL := Text; |
| 2886 |
end; |
end; |
| 7442 |
end; |
end; |
| 7443 |
|
|
| 7444 |
procedure TGikoForm.MoveToURL(URL: string); |
procedure TGikoForm.MoveToURL(URL: string); |
|
|
|
| 7445 |
var |
var |
| 7446 |
protocol, host, path, document, port, bookmark : string; |
protocol, host, path, document, port, bookmark : string; |
| 7447 |
URL2, protocol2, host2, path2, document2, port2, bookmark2 : string; |
URL2, protocol2, host2, path2, document2, port2, bookmark2 : string; |
| 10062 |
begin |
begin |
| 10063 |
if FDragWFirst <> true then begin |
if FDragWFirst <> true then begin |
| 10064 |
FDragWFirst := false; |
FDragWFirst := false; |
| 10065 |
{ end else if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) |
{ |
| 10066 |
and (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin} |
end else if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) |
| 10067 |
|
and (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin |
| 10068 |
|
(*} |
| 10069 |
end else begin |
end else begin |
| 10070 |
|
//*) |
| 10071 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 10072 |
if GikoSys.Setting.ListWidthState = glsMin then begin |
if GikoSys.Setting.ListWidthState = glsMin then begin |
| 10073 |
BrowserMaxAndFocusAction.Execute; |
BrowserMaxAndFocusAction.Execute; |