Subversion Repositories fastphp

Rev

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

Rev 86 Rev 87
Line 111... Line 111...
111 
    BtnLightOn: TImage;
 111 
    BtnLightOn: TImage;
112 
    BtnLightOff: TImage;
 112 
    BtnLightOff: TImage;
113 
    BtnLight: TImage;
 113 
    BtnLight: TImage;
114 
    StartUpTimer: TTimer;
 114 
    StartUpTimer: TTimer;
115 
    FileModTimer: TTimer;
 115 
    FileModTimer: TTimer;
- 
 
 116 
    GotoPHPdir1: TMenuItem;
- 
 
 117 
    PHPShell1: TMenuItem;
116 
    procedure Run(Sender: TObject);
 118 
    procedure Run(Sender: TObject);
117 
    procedure RunConsole(Sender: TObject);
 119 
    procedure RunConsole(Sender: TObject);
118 
    procedure FormShow(Sender: TObject);
 120 
    procedure FormShow(Sender: TObject);
119 
    procedure FormCreate(Sender: TObject);
 121 
    procedure FormCreate(Sender: TObject);
120 
    procedure FormDestroy(Sender: TObject);
 122 
    procedure FormDestroy(Sender: TObject);
Line 170... Line 172...
170 
    procedure WebBrowser1WindowClosing(ASender: TObject;
 172 
    procedure WebBrowser1WindowClosing(ASender: TObject;
171 
      IsChildWindow: WordBool; var Cancel: WordBool);
 173 
      IsChildWindow: WordBool; var Cancel: WordBool);
172 
    procedure BtnLightClick(Sender: TObject);
 174 
    procedure BtnLightClick(Sender: TObject);
173 
    procedure StartUpTimerTimer(Sender: TObject);
 175 
    procedure StartUpTimerTimer(Sender: TObject);
174 
    procedure FileModTimerTimer(Sender: TObject);
 176 
    procedure FileModTimerTimer(Sender: TObject);
- 
 
 177 
    procedure GotoPHPdir1Click(Sender: TObject);
- 
 
 178 
    procedure PHPShell1Click(Sender: TObject);
175 
  private
 179 
  private
176 
    hMutex: THandle;
 180 
    hMutex: THandle;
177 
    CurSearchTerm: string;
 181 
    CurSearchTerm: string;
178 
    HlpPrevPageIndex: integer;
 182 
    HlpPrevPageIndex: integer;
179 
    SrcRep: TSynEditFindReplace;
 183 
    SrcRep: TSynEditFindReplace;
Line 1495... Line 1499...
1495 
 
 1499 
 
1496 
  PageControl2.ActivePage := CodeTabsheet;
 1500 
  PageControl2.ActivePage := CodeTabsheet;
1497 
  if SynEdit1.CanFocus then SynEdit1.SetFocus;
 1501 
  if SynEdit1.CanFocus then SynEdit1.SetFocus;
1498 
end;
 1502 
end;
1499 
 
 1503 
 
- 
 
 1504 
procedure TForm1.GotoPHPdir1Click(Sender: TObject);
- 
 
 1505 
var
- 
 
 1506 
  phpExe: string;
- 
 
 1507 
begin
- 
 
 1508 
  phpExe := GetPHPExe;
- 
 
 1509 
  if phpExe <> '' then
- 
 
 1510 
    ShellExecute(Handle, 'open', 'explorer.exe', PChar(ExtractFilePath(phpExe)), '', SW_NORMAL);
- 
 
 1511 
end;
- 
 
 1512 
 
1500 
procedure TForm1.PageControl2Changing(Sender: TObject;
 1513 
procedure TForm1.PageControl2Changing(Sender: TObject;
1501 
  var AllowChange: Boolean);
 1514 
  var AllowChange: Boolean);
1502 
begin
 1515 
begin
1503 
  if PageControl2.ActivePage = HelpTabsheet then
 1516 
  if PageControl2.ActivePage = HelpTabsheet then
1504 
    HlpPrevPageIndex := -1
 1517 
    HlpPrevPageIndex := -1
Line 1506... Line 1519...
1506 
    HlpPrevPageIndex := PageControl2.ActivePageIndex;
 1519 
    HlpPrevPageIndex := PageControl2.ActivePageIndex;
1507 
 
 1520 
 
1508 
  AllowChange := true;
 1521 
  AllowChange := true;
1509 
end;
 1522 
end;
1510 
 
 1523 
 
- 
 
 1524 
procedure TForm1.PHPShell1Click(Sender: TObject);
- 
 
 1525 
var
- 
 
 1526 
  phpExe: string;
- 
 
 1527 
begin
- 
 
 1528 
  phpExe := GetPHPExe;
- 
 
 1529 
  if phpExe <> '' then
- 
 
 1530 
    ShellExecute(Handle, 'open', PChar(phpExe), '-a', PChar(ExtractFilePath(phpExe)), SW_NORMAL);
- 
 
 1531 
end;
- 
 
 1532 
 
1511 
procedure TForm1.Memo2DblClick(Sender: TObject);
 1533 
procedure TForm1.Memo2DblClick(Sender: TObject);
1512 
var
 1534 
var
1513 
  line: string;
 1535 
  line: string;
1514 
 
 1536 
 
1515 
  procedure _process(toFind: string);
 1537 
  procedure _process(toFind: string);