| 113,8 → 113,6 |
|---|
| BtnLight: TImage; |
| StartUpTimer: TTimer; |
| FileModTimer: TTimer; |
| GotoPHPdir1: TMenuItem; |
| PHPShell1: TMenuItem; |
| procedure Run(Sender: TObject); |
| procedure RunConsole(Sender: TObject); |
| procedure FormShow(Sender: TObject); |
| 174,8 → 172,6 |
|---|
| procedure BtnLightClick(Sender: TObject); |
| procedure StartUpTimerTimer(Sender: TObject); |
| procedure FileModTimerTimer(Sender: TObject); |
| procedure GotoPHPdir1Click(Sender: TObject); |
| procedure PHPShell1Click(Sender: TObject); |
| private |
| hMutex: THandle; |
| CurSearchTerm: string; |
| 1501,15 → 1497,6 |
|---|
| if SynEdit1.CanFocus then SynEdit1.SetFocus; |
| end; |
| |
| procedure TForm1.GotoPHPdir1Click(Sender: TObject); |
| var |
| phpExe: string; |
| begin |
| phpExe := GetPHPExe; |
| if phpExe <> '' then |
| ShellExecute(Handle, 'open', 'explorer.exe', PChar(ExtractFilePath(phpExe)), '', SW_NORMAL); |
| end; |
| |
| procedure TForm1.PageControl2Changing(Sender: TObject; |
| var AllowChange: Boolean); |
| begin |
| 1521,15 → 1508,6 |
|---|
| AllowChange := true; |
| end; |
| |
| procedure TForm1.PHPShell1Click(Sender: TObject); |
| var |
| phpExe: string; |
| begin |
| phpExe := GetPHPExe; |
| if phpExe <> '' then |
| ShellExecute(Handle, 'open', PChar(phpExe), '-a', PChar(ExtractFilePath(phpExe)), SW_NORMAL); |
| end; |
| |
| procedure TForm1.Memo2DblClick(Sender: TObject); |
| var |
| line: string; |