WebSVN – fastphp – Diff – /trunk/EditorMain.pas

   - SynEdit
     You can obtain SynEdit via Embarcadero GetIt
 *)
 // TODO: localize
 // TODO: wieso geht copy paste im twebbrowser nicht???
 // Wieso dauert webbrowser1 erste kompilierung so lange???
 // TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?
 // TODO: Browser titlebar (link preview)
-// TODO: strg+f / h
-// TODO: font bigger
-// TODO: code in bildschirmmitte?
-// TODO: regelmäßig scrap zwischenspeichern, oder bei strg+s
 // Future ideas
 // - ToDo list
-// - Open/Save real files
-// - multiple scraps?
 // - verschiedene php versionen?
 // - webbrowser1 nur laden, wenn man den tab anwählt?
 // - doppelklick auf tab soll diesen schließen
 // - Onlinehelp (www) aufrufen
+// - Let all colors be adjustable
+// - code in bildschirmmitte?
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles,
-  SynEditHighlighter, SynHighlighterPHP, SynEdit, SHDocVw_TLB;
+  SynEditHighlighter, SynHighlighterPHP, SynEdit, SHDocVw_TLB, FindReplace,
+  System.Actions, Vcl.ActnList;
 type
   TForm1 = class(TForm)
     PageControl1: TPageControl;
     PlaintextTabSheet: TTabSheet;
     Panel2: TPanel;
     SynEditFocusTimer: TTimer;
     Button1: TButton;
     Button2: TButton;
     Button3: TButton;
+    Button4: TButton;
+    Button5: TButton;
+    Button6: TButton;
+    ActionList: TActionList;
+    ActionFind: TAction;
+    ActionReplace: TAction;
+    ActionFindNext: TAction;
+    ActionGoto: TAction;
+    ActionSave: TAction;
+    ActionHelp: TAction;
+    ActionRun: TAction;
+    ActionESC: TAction;
+    Button7: TButton;
     procedure Run(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure Memo2DblClick(Sender: TObject);
     procedure WebBrowser1BeforeNavigate2(ASender: TObject;
       const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
       Headers: OleVariant; var Cancel: WordBool);
     procedure SynEditFocusTimerTimer(Sender: TObject);
+    procedure ActionFindExecute(Sender: TObject);
+    procedure ActionReplaceExecute(Sender: TObject);
+    procedure ActionFindNextExecute(Sender: TObject);
+    procedure ActionGotoExecute(Sender: TObject);
+    procedure ActionSaveExecute(Sender: TObject);
-    procedure Button1Click(Sender: TObject);
+    procedure ActionHelpExecute(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
+    procedure ActionRunExecute(Sender: TObject);
-    procedure Button3Click(Sender: TObject);
+    procedure ActionESCExecute(Sender: TObject);
+    procedure SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;
+      MousePos: TPoint; var Handled: Boolean);
+    procedure SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
+      MousePos: TPoint; var Handled: Boolean);
   private
     CurSearchTerm: string;
     HlpPrevPageIndex: integer;
+    SrcRep: TFindReplace;
     procedure Help;
-    procedure ApplicationOnMessage(var Msg: tagMSG; var Handled: Boolean);
     function MarkUpLineReference(cont: string): string;
   protected
     ChmIndex: TMemIniFile;
     procedure GotoLineNo(LineNo:integer);
     function GetScrapFile: string;
 implementation
 {$R *.dfm}
 uses
-  Functions, StrUtils, WebBrowserUtils, FastPHPUtils;
+  Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math;
+// TODO: FindPrev ?
+procedure TForm1.ActionFindNextExecute(Sender: TObject);
+begin
+  SrcRep.FindNext;
+end;
-procedure TForm1.ApplicationOnMessage(var Msg: tagMSG; var Handled: Boolean);
+procedure TForm1.ActionGotoExecute(Sender: TObject);
 var
   val: string;
   lineno: integer;
 begin
-  case Msg.message of
-    WM_KEYUP:
-    begin
-      case Msg.wParam of
-        {$REGION 'Esc'}
-        VK_ESCAPE:
-        begin
-          Handled := true;
+  // TODO: VK_LMENU does not work! only works with AltGr but not Alt
-          // It is necessary to use Application.OnMessage, because Form1.KeyPreview does not work when TWebBrowser has the focus
+  // http://stackoverflow.com/questions/16828250/delphi-xe2-how-to-prevent-the-alt-key-stealing-focus ?
-          if (HlpPrevPageIndex <> -1) and (PageControl2.ActivePage = HelpTabSheet) and
+  InputQuery('Go to', 'Line number:', val);
-             (HelpTabsheet.TabVisible) then
+  if not TryStrToInt(val, lineno) then
-          begin
+  begin
-            PageControl2.ActivePageIndex := HlpPrevPageIndex;
+    if SynEdit1.CanFocus then SynEdit1.SetFocus;
-            HelpTabsheet.TabVisible := false;
+    exit;
-          end;
+  end;
+  GotoLineNo(lineno);
-        end;
+end;
-        {$ENDREGION}
-        {$REGION 'Ctrl+G (Go to line)'}
-        ord('G'):
-        begin
-          // TODO: VK_LMENU does not work! only works with AltGr but not Alt
-          // http://stackoverflow.com/questions/16828250/delphi-xe2-how-to-prevent-the-alt-key-stealing-focus ?
-          if (GetKeyState(VK_CONTROL) < 0) then
+procedure TForm1.ActionHelpExecute(Sender: TObject);
-          begin
+begin
-            Handled := true;
+  Help;
-            InputQuery('Go to', 'Line number:', val);
+  if PageControl2.ActivePage = HelpTabsheet then
+    WebBrowser2.SetFocus
-            if not TryStrToInt(val, lineno) then exit;
+  else if PageControl2.ActivePage = TabSheet3{Scrap} then
-            GotoLineNo(lineno);
+    SynEdit1.SetFocus;
-          end;
+end;
+procedure TForm1.ActionReplaceExecute(Sender: TObject);
+begin
+  SrcRep.ReplaceExecute;
-        end;
+end;
-        {$ENDREGION}
-        {$REGION 'Ctrl+S (Save)'}
+procedure TForm1.ActionRunExecute(Sender: TObject);
-        ord('S'):
-        begin
+begin
+  Run(Sender);
+  SynEdit1.SetFocus;
+end;
-          if (GetKeyState(VK_CONTROL) < 0) and (SynEdit1.Focused) then
+procedure TForm1.ActionSaveExecute(Sender: TObject);
-          begin
+begin
-            Handled := true;
-            SynEdit1.Lines.SaveToFile(GetScrapFile);
+  SynEdit1.Lines.SaveToFile(GetScrapFile);
-          end;
+end;
-        end;
-        {$ENDREGION}
-        {$REGION 'F1 (Help)'}
+procedure TForm1.ActionESCExecute(Sender: TObject);
-        VK_F1:
-        begin
+begin
+  if (HlpPrevPageIndex <> -1) and (PageControl2.ActivePage = HelpTabSheet) and
-          if SynEdit1.Focused then
+     (HelpTabsheet.TabVisible) then
-          begin
+  begin
-            Handled := true;
+    PageControl2.ActivePageIndex := HlpPrevPageIndex;
-            Help;
+    HelpTabsheet.TabVisible := false;
-          end;
-        end;
+  end;
-        {$ENDREGION}
-        {$REGION 'F5 (Run)'}
-        VK_F5:
+  // Dirty hack...
-        begin
+  SrcRep._FindDialog.CloseDialog;
-          Run(Self);
+  SrcRep._ReplaceDialog.CloseDialog;
-        end;
+end;
-        {$ENDREGION}
-        {$REGION 'F9 (Run)'}
+procedure TForm1.ActionFindExecute(Sender: TObject);
-        VK_F9:
-        begin
+begin
-          Run(Self);
+  SrcRep.FindExecute;
-        end;
-        {$ENDREGION}
-      end;
-    end;
-  end;
 end;
 procedure TForm1.Run(Sender: TObject);
 begin
   memo2.Lines.Text := '';
   finally
     Screen.Cursor := crDefault;
   end;
 end;
+procedure TForm1.SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;
+  MousePos: TPoint; var Handled: Boolean);
+begin
+  if ssCtrl in Shift then
+  begin
+    SynEdit1.Font.Size := Max(SynEdit1.Font.Size - 1, 5);
+  end;
+end;
+procedure TForm1.SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
+  MousePos: TPoint; var Handled: Boolean);
+begin
+  if ssCtrl in Shift then
+  begin
+    SynEdit1.Font.Size := SynEdit1.Font.Size + 1;
+  end;
+end;
 procedure TForm1.SynEditFocusTimerTimer(Sender: TObject);
 begin
   SynEditFocusTimer.Enabled := false;
   Button1.SetFocus; // Workaround for weird bug... This (and the timer) is necessary to get the focus to SynEdit1
   SynEdit1.SetFocus;
     end;
   end;
   {$ENDREGION}
 end;
-procedure TForm1.Button1Click(Sender: TObject);
-begin
-  Run(Sender);
-  SynEdit1.SetFocus;
-end;
-procedure TForm1.Button2Click(Sender: TObject);
-begin
-  Help;
-  if PageControl2.ActivePage = HelpTabsheet then
-    WebBrowser2.SetFocus
-  else if PageControl2.ActivePage = TabSheet3{Scrap} then
-    SynEdit1.SetFocus;
-end;
-procedure TForm1.Button3Click(Sender: TObject);
-var
-  val: string;
-  lineno: integer;
-begin
-  InputQuery('Go to', 'Line number:', val);
-  if not TryStrToInt(val, lineno) then
-  begin
-    if SynEdit1.CanFocus then SynEdit1.SetFocus;
-    exit;
-  end;
-  GotoLineNo(lineno);
-end;
 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   SynEdit1.Lines.SaveToFile(GetScrapFile);
+  FastPHPConfig.WriteInteger('User', 'FontSize', SynEdit1.Font.Size);
 end;
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   HlpPrevPageIndex := -1;
   CurSearchTerm := '';
-  Application.OnMessage := ApplicationOnMessage;
+  Caption := Caption + ' - ' + GetScrapFile;
+  SrcRep := TFindReplace.Create(self);
+  SrcRep.Editor := SynEdit1;
 end;
 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   if Assigned(ChmIndex) then
   begin
     FreeAndNil(ChmIndex);
   end;
+  FreeAndNil(SrcRep);
 end;
 procedure TForm1.FormShow(Sender: TObject);
 var
   ScrapFile: string;
   PageControl1.ActivePage := PlaintextTabSheet;
   PageControl2.ActivePageIndex := 0; // Scraps
   HelpTabsheet.TabVisible := false;
+  SynEdit1.Font.Size := FastPHPConfig.ReadInteger('User', 'FontSize', SynEdit1.Font.Size);
   SynEdit1.SetFocus;
 end;
 function TForm1.GetScrapFile: string;
 begin
+  if FileExists(ParamStr(1)) then
+    result := ParamStr(1)
+  else
-  result := FastPHPConfig.ReadString('Paths', 'ScrapFile', '');
+    result := FastPHPConfig.ReadString('Paths', 'ScrapFile', '');
   if not FileExists(result) then
   begin
     if not OpenDialog3.Execute then
     begin

Subversion Repositories fastphp

fastphp/trunk/EditorMain.pas – Rev 10 → 13