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.442 by yoffy, Wed Sep 29 00:32:14 2004 UTC revision 1.443 by yoffy, Wed Sep 29 03:52:15 2004 UTC
# Line 2874  begin Line 2874  begin
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;
# Line 7474  begin Line 7442  begin
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;
# Line 10095  procedure TGikoForm.BrowserTabMouseUp(Se Line 10062  procedure TGikoForm.BrowserTabMouseUp(Se
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;

Legend:
Removed from v.1.442  
changed lines
  Added in v.1.443

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