Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 3 → Rev 4

/trunk/Unit1.pas
1,5 → 1,14
unit Unit1;
 
(*
This program requires
- Microsoft Internet Controls (TWebBrowser)
If you are using Delphi 10.1 Starter Edition, please import the ActiveX TLB
"Microsoft Internet Controls"
- SynEdit
You can obtain SynEdit via Embarcadero GetIt
*)
 
// TODO: localize
 
// TODO: wieso geht copy paste im twebbrowser nicht???
8,11 → 17,11
// Future ideas
// - ToDo list
// - Open/Save real files
// - configurable scraps dir. multiple scraps?
// - multiple scraps?
// - verschiedene php versionen?
// - webbrowser1 nur laden, wenn man den tab anwählt?
// - doppelklick auf tab soll diesen schließen
// - Strg+A
// - Strg+S
// - tastenkombo für "springe zu zeile"
// - Onlinehelp aufrufen
 
20,7 → 29,8
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls, ExtCtrls, ToolWin, IniFiles;
Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles,
SynEditHighlighter, SynHighlighterPHP, SynEdit, SHDocVw_TLB;
 
type
TForm1 = class(TForm)
34,11 → 44,12
TabSheet3: TTabSheet;
HelpTabsheet: TTabSheet;
WebBrowser2: TWebBrowser;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
Panel1: TPanel;
OpenDialog2: TOpenDialog;
OpenDialog3: TOpenDialog;
SynEdit1: TSynEdit;
SynPHPSyn1: TSynPHPSyn;
procedure Run(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
113,7 → 124,7
end;
end;
 
memo1.Lines.SaveToFile(GetScrapFile);
SynEdit1.Lines.SaveToFile(GetScrapFile);
 
memo2.Lines.Text := GetDosOutput('"'+phpExe+'" "'+GetScrapFile+'"', ExtractFileDir(Application.ExeName));
 
127,7 → 138,7
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Memo1.Lines.SaveToFile(GetScrapFile);
SynEdit1.Lines.SaveToFile(GetScrapFile);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
160,7 → 171,7
Close;
exit;
end;
Memo1.Lines.LoadFromFile(ScrapFile);
SynEdit1.Lines.LoadFromFile(ScrapFile);
 
PageControl1.ActivePage := PlaintextTabSheet;
 
188,8 → 199,8
exit;
end;
 
Memo1.Lines.Clear;
Memo1.Lines.SaveToFile(result);
SynEdit1.Lines.Clear;
SynEdit1.Lines.SaveToFile(result);
 
FastPHPConfig.WriteString('Paths', 'ScrapFile', result);
end;
262,7 → 273,7
ChmIndex := TMemIniFile.Create(IndexFile);
end;
 
w := GetWordUnderCaret(Memo1);
w := GetWordUnderCaret(SynEdit1);
if w = '' then exit;
if w[1] in ['0'..'9'] then exit;
w := StringReplace(w, '_', '-', [rfReplaceAll]);