188,6 → 188,8 |
procedure ActionSaveAsExecute(Sender: TObject); |
procedure ActionGoToPHPDirExecute(Sender: TObject); |
procedure ActionPHPInteractiveShellExecute(Sender: TObject); |
procedure SynEdit1KeyDown(Sender: TObject; var Key: Word; |
Shift: TShiftState); |
private |
hMutex: THandle; |
CurSearchTerm: string; |
626,6 → 628,21 |
*) |
end; |
|
procedure TForm1.SynEdit1KeyDown(Sender: TObject; var Key: Word; |
Shift: TShiftState); |
begin |
if (Shift = [ssCtrl, ssShift]) and (Key = ord('C')) then |
begin |
// Disable "Column Select Mode" (https://github.com/SynEdit/SynEdit/blob/master/Source/SynEditKeyCmds.pas#L879) |
// which can be enabled by pressing Ctrl+Shift+C |
// Reasons why we disable it: |
// 1. I think nobody needs this, and sometimes you accidentally press it |
// 2. Ctrl+Shift+L would the combination to disable column select mode, |
// but you cannot use it, because it is already in use for linting |
Key := 0; |
end; |
end; |
|
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor); |
{$IFDEF OnlineHelp} |
var |