Subversion Repositories fastphp

Rev

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

Rev 25 Rev 26
Line 78... Line 78...
78 
    ActionFindPrev: TAction;
 78 
    ActionFindPrev: TAction;
79 
    Timer1: TTimer;
 79 
    Timer1: TTimer;
80 
    ActionSpaceToTab: TAction;
 80 
    ActionSpaceToTab: TAction;
81 
    Button11: TButton;
 81 
    Button11: TButton;
82 
    SynEditSearch1: TSynEditSearch;
 82 
    SynEditSearch1: TSynEditSearch;
- 
 
 83 
    ListBox1: TListBox;
- 
 
 84 
    Splitter2: TSplitter;
83 
    procedure Run(Sender: TObject);
 85 
    procedure Run(Sender: TObject);
84 
    procedure FormShow(Sender: TObject);
 86 
    procedure FormShow(Sender: TObject);
85 
    procedure FormCreate(Sender: TObject);
 87 
    procedure FormCreate(Sender: TObject);
86 
    procedure FormDestroy(Sender: TObject);
 88 
    procedure FormDestroy(Sender: TObject);
87 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 89 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
Line 109... Line 111...
109 
    procedure ActionFindPrevExecute(Sender: TObject);
 111 
    procedure ActionFindPrevExecute(Sender: TObject);
110 
    procedure SynEdit1MouseCursor(Sender: TObject;
 112 
    procedure SynEdit1MouseCursor(Sender: TObject;
111 
      const aLineCharPos: TBufferCoord; var aCursor: TCursor);
 113 
      const aLineCharPos: TBufferCoord; var aCursor: TCursor);
112 
    procedure Timer1Timer(Sender: TObject);
 114 
    procedure Timer1Timer(Sender: TObject);
113 
    procedure ActionSpaceToTabExecute(Sender: TObject);
 115 
    procedure ActionSpaceToTabExecute(Sender: TObject);
- 
 
 116 
    procedure SynEdit1StatusChange(Sender: TObject; Changes: TSynStatusChanges);
- 
 
 117 
    procedure ListBox1Click(Sender: TObject);
114 
  private
 118 
  private
115 
    CurSearchTerm: string;
 119 
    CurSearchTerm: string;
116 
    HlpPrevPageIndex: integer;
 120 
    HlpPrevPageIndex: integer;
117 
    SrcRep: TSynEditFindReplace;
 121 
    SrcRep: TSynEditFindReplace;
118 
    {$IFDEF OnlineHelp}
 122 
    {$IFDEF OnlineHelp}
Line 415... Line 419...
415 
    Handled := true;
 419 
    Handled := true;
416 
  end
 420 
  end
417 
  else Handled := false;
 421 
  else Handled := false;
418 
end;
 422 
end;
419 
 
 423 
 
- 
 
 424 
procedure TForm1.SynEdit1StatusChange(Sender: TObject; Changes: TSynStatusChanges);
- 
 
 425 
var
- 
 
 426 
  i, curLineIdx, linecount: integer;
- 
 
 427 
  line: string;
- 
 
 428 
begin
- 
 
 429 
  if scCaretY in Changes then // TODO: auch beim schreiben
- 
 
 430 
  begin
- 
 
 431 
    ListBox1.Items.Clear;
- 
 
 432 
    curLineIdx := SynEdit1.BlockBegin.Line;
- 
 
 433 
    linecount := synedit1.lines.count;
- 
 
 434 
    if curLineIdx >= synedit1.lines.count then curLineIdx := linecount-1;
- 
 
 435 
    for i := 0 to linecount - 1 do
- 
 
 436 
    begin
- 
 
 437 
      line := SynEdit1.Lines.Strings[i];
- 
 
 438 
      if Pos('todo', LowerCase(line)) >= 1 then ListBox1.Items.Add(Trim(line));
- 
 
 439 
      if i = curLineIdx then ListBox1.Items.Add('<-- THIS LINE -->');
- 
 
 440 
    end;
- 
 
 441 
  end;
- 
 
 442 
end;
- 
 
 443 
 
420 
procedure TForm1.SynEditFocusTimerTimer(Sender: TObject);
 444 
procedure TForm1.SynEditFocusTimerTimer(Sender: TObject);
421 
begin
 445 
begin
422 
  SynEditFocusTimer.Enabled := false;
 446 
  SynEditFocusTimer.Enabled := false;
423 
  Button1.SetFocus; // Workaround for weird bug... This (and the timer) is necessary to get the focus to SynEdit1
 447 
  Button1.SetFocus; // Workaround for weird bug... This (and the timer) is necessary to get the focus to SynEdit1
424 
  SynEdit1.SetFocus;
 448 
  SynEdit1.SetFocus;
Line 684... Line 708...
684 
  PageControl2.ActivePage := HelpTabsheet;
 708 
  PageControl2.ActivePage := HelpTabsheet;
685 
  WebBrowser2.Navigate(url);
 709 
  WebBrowser2.Navigate(url);
686 
  WebBrowser2.Wait;
 710 
  WebBrowser2.Wait;
687 
end;
 711 
end;
688 
 
 712 
 
- 
 
 713 
procedure TForm1.ListBox1Click(Sender: TObject);
- 
 
 714 
begin
- 
 
 715 
  // TODO: jump to line
- 
 
 716 
end;
- 
 
 717 
 
689 
procedure TForm1.GotoLineNo(LineNo:integer);
 718 
procedure TForm1.GotoLineNo(LineNo:integer);
690 
var
 719 
var
691 
  line: string;
 720 
  line: string;
692 
  i: integer;
 721 
  i: integer;
693 
begin
 722 
begin