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

     "Microsoft Internet Controls"
   - SynEdit
     You can obtain SynEdit via Embarcadero GetIt
 *)
-// TODO: "DragAcceptFiles" does not work with Delphi Dark Design Template !!!
+// TODO: "crHourGlass" does not work if F9 is pressed!
 // 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???
 // TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?
 // TODO: Browser titlebar (link preview)
 // TODO: "jump to next/prev todo" buttons/shortcuts
 // TODO: "increase/decrease indent" buttons/shortcuts
+// In regards Unicode:
+// - Solve compiler warnings
+// - If you place Unicode symbols in a ANSI file, they will be replaced during saving
+//   by "?" without asking the user if the code should be converted to Unicode!
+// - FastPHP can only read a UTF-8 file correctly if it has a BOM
+//   However, the PSR-1 standard requires that files have UTF-8 without BOM!
+//   So we need auto-detect (since many people are working with ANSI!)
+// - When a file is correctly loaded with UTF-8/BOM,
+//   the run output (Plaintext and HTML) will show UTF-8 instead of Unicode
+//   (that COULD be intended since the Windows CMD is not Unicode ready?)
+//   But HTML is also shown as UTF-8 even though I have added <meta charset="UTF-8"> ?!
+// - Is it possible that UTF8 BOM automatically gets removed by FastPHP, generating pure ANSI?
 // Small things:
 // - The scroll bars of SynEdit are not affected by the dark theme
 // Future ideas
 // - code insight
 // - verschiedene php versionen?
 // - webbrowser1 nur laden, wenn man den tab anwählt?
 // - doppelklick auf tab soll diesen schließen
-// - Onlinehelp (www) aufrufen
+// - Onlinehelp (www) aufrufen oder CHM datei
 // - Let all colors be adjustable
 // - code in bildschirmmitte (horizontal)?
 // - search in files of a directory
-// - multi tab?
+// - Files in multiple tabs?
-// - DDE (drag n drop)
+// - Configurable tabulator display-width
 interface
 uses
   // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2
     BtnLight: TImage;
     StartUpTimer: TTimer;
     FileModTimer: TTimer;
     GotoPHPdir1: TMenuItem;
     PHPShell1: TMenuItem;
+    ActionSaveAs: TAction;
+    ActionGoToPHPDir: TAction;
+    ActionPHPInteractiveShell: TAction;
     procedure Run(Sender: TObject);
     procedure RunConsole(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas;
       TransientType: TTransientType);
     procedure ActionLintExecute(Sender: TObject);
     procedure ActionRunConsoleExecute(Sender: TObject);
     procedure SynEdit1Change(Sender: TObject);
-    procedure Saveas1Click(Sender: TObject);
-    procedure Save1Click(Sender: TObject);
     procedure BtnSpecialCharsClick(Sender: TObject);
     procedure WebBrowser1WindowClosing(ASender: TObject;
       IsChildWindow: WordBool; var Cancel: WordBool);
     procedure BtnLightClick(Sender: TObject);
     procedure StartUpTimerTimer(Sender: TObject);
     procedure FileModTimerTimer(Sender: TObject);
-    procedure GotoPHPdir1Click(Sender: TObject);
-    procedure PHPShell1Click(Sender: TObject);
     procedure SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
       AFiles: TStrings);
+    procedure ActionSaveAsExecute(Sender: TObject);
+    procedure ActionGoToPHPDirExecute(Sender: TObject);
+    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
   private
     hMutex: THandle;
     CurSearchTerm: string;
     HlpPrevPageIndex: integer;
     SrcRep: TSynEditFindReplace;
     {$IFDEF OnlineHelp}
     gOnlineHelpWord: string;
     {$ENDIF}
     FileModLast: TDateTime;
+    FormShowRanOnce: boolean;
+    BrowserLoadedOnce: boolean;
     procedure Help;
     function InputRequestCallback(var data: AnsiString): boolean;
     function OutputNotifyCallback(const data: AnsiString): boolean;
     procedure RightTrimAll;
   protected
 procedure TForm1.ActionGotoExecute(Sender: TObject);
 var
   val: string;
   lineno: integer;
+resourcestring
+  SGoTo = 'Go to';
+  SLineNumber = 'Line number:';
 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 ?
-  InputQuery('Go to', 'Line number:', val);
+  if not InputQuery(SGoTo, SLineNumber, val) or
-  if not TryStrToInt(val, lineno) then
+     not TryStrToInt(val, lineno) then
   begin
     if SynEdit1.CanFocus then SynEdit1.SetFocus;
     exit;
   end;
   GotoLineNo(lineno);
 end;
+procedure TForm1.ActionGoToPHPDirExecute(Sender: TObject);
+var
+  phpExe: string;
+begin
+  phpExe := GetPHPExe;
+  if phpExe <> '' then
+    ShellExecute(Handle, 'open', 'explorer.exe', PChar(ExtractFilePath(phpExe)), '', SW_NORMAL);
+end;
 procedure TForm1.ActionHelpExecute(Sender: TObject);
 begin
   Help;
   if PageControl2.ActivePage = HelpTabsheet then
     WebBrowser2.SetFocus
   begin
     ShellExecute(0, 'open', PChar(ParamStr(0)), PChar('"' + OpenDialog3.FileName + '"'), '', SW_NORMAL);
   end;
 end;
+procedure TForm1.ActionPHPInteractiveShellExecute(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.ActionReplaceExecute(Sender: TObject);
 begin
   SrcRep.ReplaceExecute;
 end;
     SynEdit1.SelEnd   := Length(SynEdit1.Text)-1;
   end;
   *)
 end;
+procedure TForm1.ActionSaveAsExecute(Sender: TObject);
+var
+  hMutexNew: THandle;
+resourcestring
+  SCannotSaveBecauseMutex = 'Cannot save because file "%s", because it is alrady open in another FastPHP window!';
+begin
+  if SaveDialog1.Execute then
+  begin
+    {$REGION 'Switch mutex'}
+    hMutexNew := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(SaveDialog1.FileName))));
+    if GetLastError = ERROR_ALREADY_EXISTS then
+    begin
+      ShowMessageFmt(SCannotSaveBecauseMutex, [SaveDialog1.FileName]);
+      Close;
+    end;
+    if hMutex <> 0 then CloseHandle(hMutex); // Note: ReleaseMutex does not work as expected!
+    hMutex := hMutexNew;
+    {$ENDREGION}
+    FSaveAsFilename := SaveDialog1.FileName;
+    Caption := Copy(Caption, 1, Pos(' - ', Caption)-1) + ' - ' + FSaveAsFilename;
+    Application.Title := Format('%s - FastPHP', [ExtractFileName(FSaveAsFilename)]); // do not translate!
+    Button7.Click;
+  end;
+end;
 procedure TForm1.ActionSaveExecute(Sender: TObject);
 begin
   RightTrimAll;
   SaveToFile(GetScrapFile);
   SynEdit1.Modified := false;
 var
   val: string;
   ind: integer;
 resourcestring
   SNoLinesAvailable = 'No lines with spaces at the beginning available';
+  SSpacesToLabs = 'Spaces to tabs';
+  SIndent = 'Indent:';
 begin
   // TODO: if something is selected, only process the selected part
   if not SpacesAvailable(SynEdit1.Lines) then
   begin
   end;
   ind := GuessIndent(SynEdit1.Lines);
   if ind <> -1 then val := IntToStr(ind);
-  InputQuery('Spaces to tabs', 'Indent:', val); // TODO: handle CANCEL correctly...
+  if not InputQuery(SSpacesToLabs, SIndent, val) or
-  if TryStrToInt(Trim(val), ind) then
+     not TryStrToInt(Trim(val), ind) then
   begin
-    if ind = 0 then exit;
+    if SynEdit1.CanFocus then SynEdit1.SetFocus;
-    SpaceToTab(SynEdit1.Lines, ind);
+    exit;
   end;
+  if ind = 0 then exit;
-  if SynEdit1.CanFocus then SynEdit1.SetFocus;
+  SpaceToTab(SynEdit1.Lines, ind);
 end;
 procedure TForm1.ActionESCExecute(Sender: TObject);
 begin
   if (HlpPrevPageIndex <> -1) and (PageControl2.ActivePage = HelpTabSheet) and
 procedure TForm1.ActionFindExecute(Sender: TObject);
 begin
   SrcRep.FindExecute;
 end;
-var
-  firstTimeBrowserLoad: boolean = true;
 procedure TForm1.Run(Sender: TObject);
 var
   bakTS: TTabSheet;
   //ss: TStringStream;
   //bakPos: Int64;
 begin
   memo2.Lines.Text := '';
-  if firstTimeBrowserLoad then
+  if not BrowserLoadedOnce then
   begin
     bakTS := PageControl1.ActivePage;
     try
       PageControl1.ActivePage := HtmlTabSheet; // Required for the first time, otherwise, WebBrowser1.Clear will hang
       Webbrowser1.Clear;
     finally
       PageControl1.ActivePage := bakTS;
     end;
-    firstTimeBrowserLoad := false;
+    BrowserLoadedOnce := true;
   end
   else
     Webbrowser1.Clear;
-  Screen.Cursor := crHourGlass;
+  Screen.Cursor := crHourGlass; // TODO: Doesn't work with F9
   Application.ProcessMessages;
   try
     ActionSave.Execute; // TODO: if it is not the scrap file: do not save the file, since the user did not intended to save... better create a temporary file and run it instead.
   AFiles: TStrings);
 var
   FileName: string;
 const
   WARN_FILE_COUNT = 10;
+resourcestring
+  SAreYouSure = 'Are you sure you want to open %d files?';
 begin
   if AFiles.Count > WARN_FILE_COUNT then
   begin
-    if not MessageDlg(Format('Are you sure you want to open %d files?', [WARN_FILE_COUNT]), mtConfirmation, mbYesNoCancel, 0) <> mrYes then
+    if not MessageDlg(Format(SAreYouSure, [WARN_FILE_COUNT]), mtConfirmation, mbYesNoCancel, 0) <> mrYes then
       exit;
   end;
   for FileName in AFiles do
   begin
 end;
 procedure TForm1.Theme_Dark;
 begin
   if IsThemeDark then exit;
-  TStyleManager.TrySetStyle('Windows10 SlateGray');
+  TStyleManager.TrySetStyle('Windows10 SlateGray'); // do not translate
   Color := 1316887;
   Font.Color := clCream;
   //Memo2.Font.Color := clCream;
   //Memo2.ParentColor := true;
   SynEdit1.ActiveLineColor := 2238502;
 end;
 procedure TForm1.Theme_Light;
 begin
   if not IsThemeDark then exit;
-  TStyleManager.TrySetStyle('Windows');
+  TStyleManager.TrySetStyle('Windows'); // do not translate
   Color := clBtnFace;
   Font.Color := clWindowText;
   //Memo2.Font.Color := clWindowText;
   SynEdit1.ActiveLineColor := 14680010;
-  SynEdit1.Color := clWindow;
+  SynEdit1.Color := clCream;
   SynEdit1.Font.Color := clWindowText;
   SynEdit1.Gutter.Color := clBtnFace;
   SynEdit1.Gutter.Font.Color := clWindowText;
   SynEdit1.Gutter.GradientStartcolor := cl3dLight;
   SynEdit1.Gutter.GradientEndColor := clBtnFace;;
 *)
 procedure TForm1.WebBrowser1WindowClosing(ASender: TObject;
   IsChildWindow: WordBool; var Cancel: WordBool);
 resourcestring
-  LNG_CLOSE_REQUEST = 'A script has requested the window to be closed. The window of a standalone script would now close.';
+  SCloseRequest = 'A script has requested the window to be closed. The window of a standalone script would now close.';
 begin
-  ShowMessage(LNG_CLOSE_REQUEST);
+  ShowMessage(SCloseRequest);
   TWebBrowser(ASender).Clear;
   Cancel := true;
 end;
 procedure TForm1.BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);
   end;
   SynEdit1.Options := opts;
 end;
 procedure TForm1.FileModTimerTimer(Sender: TObject);
+resourcestring
+  SChangeConflict = 'The file was changed in a different application BUT IT WAS ALSO MODIFIED HERE! Reload file AND LOSE CHANGES HERE?';
+  SChangeNotify = 'The file was changed in a different application! Reload file?';
 begin
   FileModTimer.Enabled := false;
   if FileModLast <> FileAge(GetScrapFile) then
   begin
     FileModLast := FileAge(GetScrapFile);
     if SynEdit1.Modified then
     begin
-      if MessageDlg('The file was changed in a different application BUT IT WAS ALSO MODIFIED HERE! Reload file AND LOSE CHANGES HERE?', mtWarning, mbYesNoCancel, 0) = mrYes then
+      if MessageDlg(SChangeConflict, mtWarning, mbYesNoCancel, 0) = mrYes then
       begin
         SynEdit1.Lines.LoadFromFile(GetScrapFile);
       end;
     end
     else
     begin
-      if MessageDlg('The file was changed in a different application! Reload file?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
+      if MessageDlg(SChangeNotify, mtConfirmation, mbYesNoCancel, 0) = mrYes then
       begin
         SynEdit1.Lines.LoadFromFile(GetScrapFile);
       end;
     end;
   end;
 end;
 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 var
   r: integer;
+resourcestring
+  SWantToSave = 'Do you want to save?';
 begin
   if SynEdit1.Modified then
   begin
     if (ParamStr(1) <> '') or (FSaveAsFilename <> '') then
     begin
-      r := MessageDlg('Do you want to save?', mtConfirmation, mbYesNoCancel, 0);
+      r := MessageDlg(SWantToSave, mtConfirmation, mbYesNoCancel, 0);
       if r = mrCancel then
       begin
         CanClose := false;
         Exit;
       end
 begin
   HlpPrevPageIndex := -1;
   CurSearchTerm := '';
   sScrapFile := GetScrapFile;
   Caption := Caption + ' - ' + sScrapFile;
-  Application.Title := Format('%s - FastPHP', [ExtractFileName(sScrapFile)]);
+  Application.Title := Format('%s - FastPHP', [ExtractFileName(sScrapFile)]); // do not translate!
   SrcRep := TSynEditFindReplace.Create(self);
   SrcRep.Editor := SynEdit1;
   SynEdit1.Gutter.Gradient := HighColorWindows;
   Screen.Cursors[crMouseGutter] := LoadCursor(hInstance, 'MOUSEGUTTER');
     codeExplorer.WaitFor;
     FreeAndNil(codeExplorer);
   end;
 end;
-var
-  FormShowRanOnce: boolean;
 procedure TForm1.FormShow(Sender: TObject);
 var
   ScrapFile: string;
   tmpFontSize: integer;
   opts: TSynEditorOptions;
+resourcestring
+  SFileAlreadyOpen = 'File "%s" is alrady open!';
 begin
   if FormShowRanOnce then exit; // If the theme is changed from normal to dark, OnShow will be called another time
   FormShowRanOnce := true;
   ScrapFile := GetScrapFile;
     begin
       hMutex := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(ScrapFile))));
       if GetLastError = ERROR_ALREADY_EXISTS then
       begin
         // TODO: It would be great if the window of that FastPHP instance would switched to foreground
-        ShowMessageFmt('File "%s" is alrady open!', [ScrapFile]);
+        ShowMessageFmt(SFileAlreadyOpen, [ScrapFile]);
         Close;
       end;
       SynEdit1.Lines.LoadFromFile(ScrapFile);
     end;
   DragAcceptFiles(Handle, True);
   StartupTimer.Enabled := true;
 end;
-procedure TForm1.Save1Click(Sender: TObject);
-begin
-  Button7.Click;
-end;
-procedure TForm1.Saveas1Click(Sender: TObject);
-var
-  hMutexNew: THandle;
-begin
-  if SaveDialog1.Execute then
-  begin
-    {$REGION 'Switch mutex'}
-    hMutexNew := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(SaveDialog1.FileName))));
-    if GetLastError = ERROR_ALREADY_EXISTS then
-    begin
-      ShowMessageFmt('Cannot save because file "%s", because it is alrady open in another FastPHP window!', [SaveDialog1.FileName]);
-      Close;
-    end;
-    if hMutex <> 0 then CloseHandle(hMutex); // Note: ReleaseMutex does not work as expected!
-    hMutex := hMutexNew;
-    {$ENDREGION}
-    FSaveAsFilename := SaveDialog1.FileName;
-    Caption := Copy(Caption, 1, Pos(' - ', Caption)-1) + ' - ' + FSaveAsFilename;
-    Application.Title := Format('%s - FastPHP', [ExtractFileName(FSaveAsFilename)]);
-    Button7.Click;
-  end;
-end;
 procedure TForm1.SaveToFile(filename: string);
 var
   ss: TStringStream;
   ms: TMemoryStream;
   fs: TFileStream;
 end;
 function TForm1.GetScrapFile: string;
 var
   tmpPath: string;
+resourcestring
+  SFileDoesNotExistsCreate = 'File %s does not exist. Create it?';
+  SPathDoesNotExistTryAgain = 'Path does not exist! Please try again.';
 begin
   if FSaveAsFilename <> '' then
   begin
     result := FSaveAsFilename;
     exit;
     result := ParamStr(1);
     if not FileExists(result) then
     begin
-      case MessageDlg(Format('File %s does not exist. Create it?', [result]), mtConfirmation, mbYesNoCancel, 0) of
+      case MessageDlg(Format(SFileDoesNotExistsCreate, [result]), mtConfirmation, mbYesNoCancel, 0) of
         mrYes:
           try
             SaveToFile(result);
           except
             on E: Exception do
           exit;
         end;
         if not DirectoryExists(ExtractFilePath(OpenDialog3.FileName)) then
         begin
-          MessageDlg('Path does not exist! Please try again.', mtWarning, [mbOk], 0);
+          MessageDlg(SPathDoesNotExistTryAgain, mtWarning, [mbOk], 0);
         end
         else
         begin
           result := OpenDialog3.FileName;
         end;
 procedure TForm1.Help;
 var
   IndexFile, chmFile, w, OriginalWord, url: string;
   internalHtmlFile: string;
+resourcestring
+  SChmFileNotAValidPHPDocumentation = 'The CHM file is not a valid PHP documentation. Cannot use help.';
+  SUnknownErrorCannotUseHelp = 'Unknown error. Cannot use help.';
+  SNoHelpAvailable = 'No help for "%s" available';
 begin
   if not Assigned(ChmIndex) then
   begin
     IndexFile := TFastPHPConfig.HelpIndex;
     IndexFile := ChangeFileExt(IndexFile, '.ini'); // Just to be sure. Maybe someone wrote manually the ".chm" file in there
       Screen.Cursor := crHourGlass;
       Application.ProcessMessages;
       try
         if not ParseCHM(chmFile) then
         begin
-          MessageDlg('The CHM file is not a valid PHP documentation. Cannot use help.', mtError, [mbOk], 0);
+          MessageDlg(SChmFileNotAValidPHPDocumentation, mtError, [mbOk], 0);
           exit;
         end;
       finally
         Screen.Cursor := crDefault;
         Panel1.Visible := false;
       end;
       if not FileExists(IndexFile) then
       begin
-        MessageDlg('Unknown error. Cannot use help.', mtError, [mbOk], 0);
+        MessageDlg(SUnknownErrorCannotUseHelp, mtError, [mbOk], 0);
         exit;
       end;
     end;
     TFastPHPConfig.HelpIndex := IndexFile;
   Originalword := w;
 //  w := StringReplace(w, '_', '-', [rfReplaceAll]);
   w := LowerCase(w);
   CurSearchTerm := w;
-  internalHtmlFile := ChmIndex.ReadString('function', CurSearchTerm, '');
+  internalHtmlFile := ChmIndex.ReadString('function', CurSearchTerm, ''); // do not translate
   if internalHtmlFile = '' then
-    internalHtmlFile := ChmIndex.ReadString('_HelpWords_', CurSearchTerm, '');
+    internalHtmlFile := ChmIndex.ReadString('_HelpWords_', CurSearchTerm, ''); // do not translate
   if internalHtmlFile = '' then
   begin
     HelpTabsheet.TabVisible := false;
     HlpPrevPageIndex := -1;
-    ShowMessageFmt('No help for "%s" available', [Originalword]);
+    ShowMessageFmt(SNoHelpAvailable, [Originalword]);
     Exit;
   end;
   url := 'mk:@MSITStore:'+ChmFile+'::'+internalHtmlFile;
   PageControl2.ActivePage := CodeTabsheet;
   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
   if PageControl2.ActivePage = HelpTabsheet then
     HlpPrevPageIndex := -1
     HlpPrevPageIndex := PageControl2.ActivePageIndex;
   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;
   procedure _process(toFind: string);
   {$REGION 'Possibility 1: filename.php:lineno'}
   _process(ExtractFileName(GetScrapFile) + ':');
   {$ENDREGION}
   {$REGION 'Possibility 2: on line xx'}
-  _process(ExtractFileName(GetScrapFile) + ' on line ');
+  _process(ExtractFileName(GetScrapFile) + ' on line '); // do not translate!
   {$ENDREGION}
 end;
 procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
   {$REGION 'Possibility 1: filename.php:lineno'}
   _process(ExtractFileName(GetScrapFile) + ':');
   {$ENDREGION}
   {$REGION 'Possibility 2: on line xx'}
-  _process(ExtractFileName(GetScrapFile) + ' on line ');
+  _process(ExtractFileName(GetScrapFile) + ' on line '); // do not translate!
   {$ENDREGION}
   result := cont;
 end;
   result := Assigned(TStyleManager.ActiveStyle) and (TStyleManager.ActiveStyle.Name<>'Windows');
 end;
 function TForm1.OutputNotifyCallback(const data: AnsiString): boolean;
 begin
-  result := TreeView1.FillWithFastPHPData(data);
+  result := TreeView1.FillWithFastPHPData(string(data));
 end;
 end.

Subversion Repositories fastphp

fastphp/trunk/EditorMain.pas – Rev 89 → 91