Subversion Repositories fastphp

Rev

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

Rev 29 Rev 30
Line 114... Line 114...
114 
    procedure SynEdit1MouseCursor(Sender: TObject;
 114 
    procedure SynEdit1MouseCursor(Sender: TObject;
115 
      const aLineCharPos: TBufferCoord; var aCursor: TCursor);
 115 
      const aLineCharPos: TBufferCoord; var aCursor: TCursor);
116 
    procedure Timer1Timer(Sender: TObject);
 116 
    procedure Timer1Timer(Sender: TObject);
117 
    procedure ActionSpaceToTabExecute(Sender: TObject);
 117 
    procedure ActionSpaceToTabExecute(Sender: TObject);
118 
    procedure TreeView1DblClick(Sender: TObject);
 118 
    procedure TreeView1DblClick(Sender: TObject);
- 
 
 119 
    procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y,
- 
 
 120 
      Line: Integer; Mark: TSynEditMark);
119 
  private
 121 
  private
120 
    CurSearchTerm: string;
 122 
    CurSearchTerm: string;
121 
    HlpPrevPageIndex: integer;
 123 
    HlpPrevPageIndex: integer;
122 
    SrcRep: TSynEditFindReplace;
 124 
    SrcRep: TSynEditFindReplace;
123 
    {$IFDEF OnlineHelp}
 125 
    {$IFDEF OnlineHelp}
Line 141... Line 143...
141 
 
 143 
 
142 
implementation
 144 
implementation
143 
 
 145 
 
144 
{$R *.dfm}
 146 
{$R *.dfm}
145 
 
 147 
 
- 
 
 148 
{$R Cursors.res}
- 
 
 149 
 
146 
uses
 150 
uses
147 
  Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit,
 151 
  Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit,
148 
  FastPHPTreeView;
 152 
  FastPHPTreeView;
149 
 
 153 
 
- 
 
 154 
const
- 
 
 155 
  crMouseGutter = 1;
- 
 
 156 
 
150 
// TODO: FindPrev ?
 157 
// TODO: FindPrev ?
151 
procedure TForm1.ActionFindNextExecute(Sender: TObject);
 158 
procedure TForm1.ActionFindNextExecute(Sender: TObject);
152 
begin
 159 
begin
153 
  SrcRep.FindNext;
 160 
  SrcRep.FindNext;
154 
end;
 161 
end;
Line 351... Line 358...
351 
  finally
 358 
  finally
352 
    Screen.Cursor := crDefault;
 359 
    Screen.Cursor := crDefault;
353 
  end;
 360 
  end;
354 
end;
 361 
end;
355 
 
 362 
 
- 
 
 363 
procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,
- 
 
 364 
  Y, Line: Integer; Mark: TSynEditMark);
- 
 
 365 
begin
- 
 
 366 
  (*
- 
 
 367 
  TSynEdit(Sender).CaretX := 1;
- 
 
 368 
  TSynEdit(Sender).CaretY := Line;
- 
 
 369 
  TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);
- 
 
 370 
  *)
- 
 
 371 
end;
- 
 
 372 
 
356 
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
 373 
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
357 
{$IFDEF OnlineHelp}
 374 
{$IFDEF OnlineHelp}
358 
var
 375 
var
359 
  Line: Integer;
 376 
  Line: Integer;
360 
  Column: Integer;
 377 
  Column: Integer;
Line 504... Line 521...
504 
  CurSearchTerm := '';
 521 
  CurSearchTerm := '';
505 
  Caption := Caption + ' - ' + GetScrapFile;
 522 
  Caption := Caption + ' - ' + GetScrapFile;
506 
  SrcRep := TSynEditFindReplace.Create(self);
 523 
  SrcRep := TSynEditFindReplace.Create(self);
507 
  SrcRep.Editor := SynEdit1;
 524 
  SrcRep.Editor := SynEdit1;
508 
  SynEdit1.Gutter.Gradient := HighColorWindows;
 525 
  SynEdit1.Gutter.Gradient := HighColorWindows;
- 
 
 526 
 
- 
 
 527 
  Screen.Cursors[crMouseGutter] := LoadCursor(hInstance, 'MOUSEGUTTER');
- 
 
 528 
  SynEdit1.Gutter.Cursor := crMouseGutter;
509 
end;
 529 
end;
510 
 
 530 
 
511 
procedure TForm1.FormDestroy(Sender: TObject);
 531 
procedure TForm1.FormDestroy(Sender: TObject);
512 
begin
 532 
begin
513 
  if Assigned(ChmIndex) then
 533 
  if Assigned(ChmIndex) then