Subversion Repositories fastphp

Rev

Rev 31 | Rev 33 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 31 Rev 32
Line 577... Line 577...
577 
end;
 577 
end;
578 
 
 578 
 
579 
procedure TForm1.TreeView1DblClick(Sender: TObject);
 579 
procedure TForm1.TreeView1DblClick(Sender: TObject);
580 
var
 580 
var
581 
  tn: TTreeNode;
 581 
  tn: TTreeNode;
- 
 
 582 
  lineNo: integer;
582 
begin
 583 
begin
583 
  tn := TTreeView(Sender).Selected;
 584 
  tn := TTreeView(Sender).Selected;
584 
  if tn = nil then exit;
 585 
  if tn = nil then exit;
585 
  GotoLineNo(Integer(tn.Data));
 586 
  lineNo := Integer(tn.Data);
- 
 
 587 
  if lineNo > 0 then GotoLineNo(lineNo);
586 
end;
 588 
end;
587 
 
 589 
 
588 
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
 590 
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
589 
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
 591 
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
590 
  Headers: OleVariant; var Cancel: WordBool);
 592 
  Headers: OleVariant; var Cancel: WordBool);