| 2,8 → 2,6 |
|---|
| |
| {$Include 'FastPHP.inc'} |
| |
| // TODO 70423 * <fastphp> bug beheben, bei dem php.exe im hintergrund geöffnet bleibt, wenn man den editor schließt !!!!!!!!! |
| |
| (* |
| This program requires |
| - Microsoft Internet Controls (TWebBrowser) |
| 13,6 → 11,7 |
|---|
| You can obtain SynEdit via Embarcadero GetIt |
| *) |
| |
| // TODO: if a scrapfile is already open, create a new scrap file (scrap2.php) |
| // TODO: localize |
| // TODO: wieso geht copy paste im twebbrowser nicht??? |
| // TODO: Wieso dauert webbrowser1 erste kompilierung so lange??? |
| 32,6 → 31,10 |
|---|
| // - Onlinehelp (www) aufrufen |
| // - Let all colors be adjustable |
| // - code in bildschirmmitte (horizontal)? |
| // - search in files of a directory |
| // - multi tab? |
| // - DDE (drag n drop) |
| // - check if file has been modified in another application |
| |
| interface |
| |
| 454,9 → 457,9 |
|---|
| // TODO 70422 * <fastphp> wenn ein script hängt, soll man es abwürgen dürfen!!!!!! |
| memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint, False); |
| |
| {$REGION 'Show in Web Browser'} |
| Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile); |
| |
| // Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile); |
| |
| // Alternatively: |
| (* |
| ss := TstringStream.Create; |
| 466,6 → 469,7 |
|---|
| Webbrowser1.Wait; |
| ss.Free; |
| *) |
| {$ENDREGION} |
| |
| if IsTextHTML(memo2.lines.text) then |
| PageControl1.ActivePage := HtmlTabSheet |
| 1260,6 → 1264,8 |
|---|
| w := LowerCase(w); |
| CurSearchTerm := w; |
| |
| internalHtmlFile := ChmIndex.ReadString('function', CurSearchTerm, ''); |
| if internalHtmlFile = '' then |
| internalHtmlFile := ChmIndex.ReadString('_HelpWords_', CurSearchTerm, ''); |
| if internalHtmlFile = '' then |
| begin |