Subversion Repositories fastphp

Rev

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

Rev 97 Rev 98
Line 186... Line 186...
186 
    procedure SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
 186 
    procedure SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
187 
      AFiles: TStrings);
 187 
      AFiles: TStrings);
188 
    procedure ActionSaveAsExecute(Sender: TObject);
 188 
    procedure ActionSaveAsExecute(Sender: TObject);
189 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
 189 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
190 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
 190 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
- 
 
 191 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
- 
 
 192 
      Shift: TShiftState);
191 
  private
 193 
  private
192 
    hMutex: THandle;
 194 
    hMutex: THandle;
193 
    CurSearchTerm: string;
 195 
    CurSearchTerm: string;
194 
    HlpPrevPageIndex: integer;
 196 
    HlpPrevPageIndex: integer;
195 
    SrcRep: TSynEditFindReplace;
 197 
    SrcRep: TSynEditFindReplace;
Line 624... Line 626...
624 
  TSynEdit(Sender).CaretY := Line;
 626 
  TSynEdit(Sender).CaretY := Line;
625 
  TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);
 627 
  TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);
626 
  *)
 628 
  *)
627 
end;
 629 
end;
628 
 
 630 
 
- 
 
 631 
procedure TForm1.SynEdit1KeyDown(Sender: TObject; var Key: Word;
- 
 
 632 
  Shift: TShiftState);
- 
 
 633 
begin
- 
 
 634 
  if (Shift = [ssCtrl, ssShift]) and (Key = ord('C')) then
- 
 
 635 
  begin
- 
 
 636 
    // Disable "Column Select Mode" (https://github.com/SynEdit/SynEdit/blob/master/Source/SynEditKeyCmds.pas#L879)
- 
 
 637 
    // which can be enabled by pressing Ctrl+Shift+C
- 
 
 638 
    // Reasons why we disable it:
- 
 
 639 
    // 1. I think nobody needs this, and sometimes you accidentally press it
- 
 
 640 
    // 2. Ctrl+Shift+L would the combination to disable column select mode,
- 
 
 641 
    //    but you cannot use it, because it is already in use for linting
- 
 
 642 
    Key := 0;
- 
 
 643 
  end;
- 
 
 644 
end;
- 
 
 645 
 
629 
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
 646 
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
630 
{$IFDEF OnlineHelp}
 647 
{$IFDEF OnlineHelp}
631 
var
 648 
var
632 
  Line: Integer;
 649 
  Line: Integer;
633 
  Column: Integer;
 650 
  Column: Integer;