Subversion Repositories fastphp

Rev

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

Rev 16 Rev 17
Line 92... Line 92...
92 
      MousePos: TPoint; var Handled: Boolean);
 92 
      MousePos: TPoint; var Handled: Boolean);
93 
    procedure SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
 93 
    procedure SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
94 
      MousePos: TPoint; var Handled: Boolean);
 94 
      MousePos: TPoint; var Handled: Boolean);
95 
    procedure ActionOpenExecute(Sender: TObject);
 95 
    procedure ActionOpenExecute(Sender: TObject);
96 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 96 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- 
 
 97 
    procedure Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
97 
  private
 98 
  private
98 
    CurSearchTerm: string;
 99 
    CurSearchTerm: string;
99 
    HlpPrevPageIndex: integer;
 100 
    HlpPrevPageIndex: integer;
100 
    SrcRep: TFindReplace;
 101 
    SrcRep: TFindReplace;
101 
    procedure Help;
 102 
    procedure Help;
Line 555... Line 556...
555 
    if not TryStrToInt(line, lineno) then exit;
 556 
    if not TryStrToInt(line, lineno) then exit;
556 
    GotoLineNo(lineno);
 557 
    GotoLineNo(lineno);
557 
  end;
 558 
  end;
558 
end;
 559 
end;
559 
 
 560 
 
- 
 
 561 
procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;
- 
 
 562 
  Shift: TShiftState);
- 
 
 563 
begin
- 
 
 564 
  if ((ssCtrl in Shift) and (Key = 65)) then TMemo(Sender).SelectAll;
- 
 
 565 
end;
- 
 
 566 
 
560 
function TForm1.MarkUpLineReference(cont: string): string;
 567 
function TForm1.MarkUpLineReference(cont: string): string;
561 
var
 568 
var
562 
  p, a, b: integer;
 569 
  p, a, b: integer;
563 
  num: integer;
 570 
  num: integer;
564 
  insert_a, insert_b: string;
 571 
  insert_a, insert_b: string;