Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 86 → Rev 87

/trunk/EditorMain.dfm
831,7 → 831,15
object Runinconsole1: TMenuItem
Action = ActionRunConsole
end
object GotoPHPdir1: TMenuItem
Caption = 'Go to PHP dir'
OnClick = GotoPHPdir1Click
end
object PHPShell1: TMenuItem
Caption = 'PHP Interactive Shell'
OnClick = PHPShell1Click
end
end
object SavePopup: TPopupMenu
Left = 196
Top = 28
/trunk/EditorMain.pas
113,6 → 113,8
BtnLight: TImage;
StartUpTimer: TTimer;
FileModTimer: TTimer;
GotoPHPdir1: TMenuItem;
PHPShell1: TMenuItem;
procedure Run(Sender: TObject);
procedure RunConsole(Sender: TObject);
procedure FormShow(Sender: TObject);
172,6 → 174,8
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;
1497,6 → 1501,15
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
1508,6 → 1521,15
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;