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

     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 dauert webbrowser1 erste kompilierung so lange???
 // TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?
 // TODO: Browser titlebar (link preview)
-// TODO: todo liste
+// TODO: "jump to next/prev todo" buttons/shortcuts
+// TODO: "increase/decrease indent" buttons/shortcuts
 // Future ideas
 // - code insight
 // - verschiedene php versionen?
 // - webbrowser1 nur laden, wenn man den tab anwählt?
 {$R Cursors.res}
 uses
   Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit,
-  FastPHPTreeView, ImageListEx;
+  FastPHPTreeView, ImageListEx, FastPHPConfig;
 const
   crMouseGutter = 1;
 procedure TForm1.RefreshModifySign;
 begin
   // TODO: if something is selected, only process the selected part
   if not SpacesAvailable(SynEdit1.Lines) then
   begin
-    ShowMessage(SNoLinesAvailable);
+    MessageDlg(SNoLinesAvailable, mtInformation, [mbOk], 0);
     exit;
   end;
   ind := GuessIndent(SynEdit1.Lines);
   if ind <> -1 then val := IntToStr(ind);
   {$ENDREGION}
 end;
 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  FastPHPConfig.WriteInteger('User', 'FontSize', SynEdit1.Font.Size);
+  TFastPHPConfig.FontSize := SynEdit1.Font.Size;
 end;
 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 var
   r: integer;
 end;
 procedure TForm1.FormShow(Sender: TObject);
 var
   ScrapFile: string;
+  tmpFontSize: integer;
 begin
   ScrapFile := GetScrapFile;
   if ScrapFile = '' then
   begin
     Application.Terminate; // Close;
   PageControl1.ActivePage := PlaintextTabSheet;
   PageControl2.ActivePage := CodeTabsheet;
   HelpTabsheet.TabVisible := false;
+  tmpFontSize := TFastPHPConfig.FontSize;
-  SynEdit1.Font.Size := FastPHPConfig.ReadInteger('User', 'FontSize', SynEdit1.Font.Size);
+  if tmpFontSize <> -1 then SynEdit1.Font.Size := tmpFontSize;
   SynEdit1.SetFocus;
   DoubleBuffered := true;
   StartCodeExplorer;
 end;
   codeExplorer.WorkDir := ExtractFileDir(Application.ExeName);
   codeExplorer.Resume;
 end;
 function TForm1.GetScrapFile: string;
+var
+  tmpPath: string;
 begin
   if FScrapFile <> '' then
   begin
     result := FScrapFile;
     exit;
   end;
   if ParamStr(1) <> '' then
+  begin
+    // Program was started with a filename
-    result := ParamStr(1)
+    result := ParamStr(1);
+    if not FileExists(result) then
+    begin
+      case MessageDlg(Format('File %s does not exist. Create it?', [result]), mtConfirmation, mbYesNoCancel, 0) of
+        mrYes:
+          try
+            SynEdit1.Lines.SaveToFile(result);
+          except
+            on E: Exception do
+            begin
+              MessageDlg(E.Message, mtError, [mbOk], 0);
+              Application.Terminate;
+              result := '';
+              exit;
+            end;
+          end;
+        mrNo:
+          begin
+            Application.Terminate;
+            result := '';
+            exit;
+          end;
+        mrCancel:
+          begin
+            Application.Terminate;
+            result := '';
+            exit;
+          end;
+      end;
+    end;
+  end
   else
+  begin
+    // Program is started without filename -> use scrap file
-    result := FastPHPConfig.ReadString('Paths', 'ScrapFile', '');
+    result := TFastPHPConfig.ScrapFile;
-  if not FileExists(result) then
+    if not FileExists(result) then
-  begin
+    begin
-    repeat
+      repeat
+        {$REGION 'Determinate opendialog initial directory'}
+        if result <> '' then
+        begin
+          tmpPath := ExtractFilePath(result);
+          if DirectoryExists(tmpPath) then
+          begin
+            OpenDialog3.InitialDir := tmpPath;
+            OpenDialog3.FileName := Result;
+          end
+          else
+          begin
+            OpenDialog3.InitialDir := GetMyDocumentsFolder;
+          end;
+        end
+        else
+        begin
+          OpenDialog3.InitialDir := GetMyDocumentsFolder;
+        end;
+        {$ENDREGION}
-      if not OpenDialog3.Execute then
+        if not OpenDialog3.Execute then
-      begin
+        begin
-        Application.Terminate;
+          Application.Terminate;
-        result := '';
+          result := '';
-        exit;
+          exit;
-      end;
+        end;
-      if not DirectoryExists(ExtractFilePath(OpenDialog3.FileName)) then
+        if not DirectoryExists(ExtractFilePath(OpenDialog3.FileName)) then
-      begin
+        begin
-        ShowMessage('Path does not exist! Please try again.');
+          MessageDlg('Path does not exist! Please try again.', mtWarning, [mbOk], 0);
-      end
+        end
-      else
+        else
-      begin
+        begin
-        result := OpenDialog3.FileName;
+          result := OpenDialog3.FileName;
-      end;
+        end;
-    until result <> '';
+      until result <> '';
+      if not FileExists(result) then
+      begin
+        try
+          // Try saving the file; check if we have permissions
-    //SynEdit1.Lines.Clear;
+          //SynEdit1.Lines.Clear;
-    //SynEdit1.Lines.SaveToFile(result);
+          SynEdit1.Lines.SaveToFile(result);
+        except
+          on E: Exception do
+          begin
+            MessageDlg(E.Message, mtError, [mbOk], 0);
+            Application.Terminate;
+            result := '';
+            exit;
+          end;
+        end;
+      end;
-    FastPHPConfig.WriteString('Paths', 'ScrapFile', result);
+      TFastPHPConfig.ScrapFile := result;
-    FScrapFile := result;
+      FScrapFile := result;
-  end;
+    end;
-end;
+  end;
+end;
 procedure TForm1.Help;
 var
   IndexFile, chmFile, w, OriginalWord, url: string;
   internalHtmlFile: string;
 begin
   if not Assigned(ChmIndex) then
   begin
-    IndexFile := FastPHPConfig.ReadString('Paths', 'HelpIndex', '');
+    IndexFile := TFastPHPConfig.HelpIndex;
     IndexFile := ChangeFileExt(IndexFile, '.ini'); // Just to be sure. Maybe someone wrote manually the ".chm" file in there
     if FileExists(IndexFile) then
     begin
       ChmIndex := TMemIniFile.Create(IndexFile);
     end;
   end;
   if Assigned(ChmIndex) then
   begin
-    IndexFile := FastPHPConfig.ReadString('Paths', 'HelpIndex', '');
+    IndexFile := TFastPHPConfig.HelpIndex;
     // We don't check if IndexFile still exists. It is not important since we have ChmIndex pre-loaded in memory
     chmFile := ChangeFileExt(IndexFile, '.chm');
     if not FileExists(chmFile) then
     begin
       Screen.Cursor := crHourGlass;
       Application.ProcessMessages;
       try
         if not ParseCHM(chmFile) then
         begin
-          ShowMessage('The CHM file is not a valid PHP documentation. Cannot use help.');
+          MessageDlg('The CHM file is not a valid PHP documentation. Cannot use help.', mtError, [mbOk], 0);
           exit;
         end;
       finally
         Screen.Cursor := crDefault;
         Panel1.Visible := false;
       end;
       if not FileExists(IndexFile) then
       begin
-        ShowMessage('Unknown error. Cannot use help.');
+        MessageDlg('Unknown error. Cannot use help.', mtError, [mbOk], 0);
         exit;
       end;
     end;
-    FastPHPConfig.WriteString('Paths', 'HelpIndex', IndexFile);
-    FastPHPConfig.UpdateFile;
+    TFastPHPConfig.HelpIndex := IndexFile;
     ChmIndex := TMemIniFile.Create(IndexFile);
   end;
   w := GetWordUnderCaret(SynEdit1);

Subversion Repositories fastphp

fastphp/trunk/EditorMain.pas – Rev 47 → 49