ソースを参照

Add menu item for regex topic + tweak it.

Martijn Laan 1 年間 前
コミット
6128640915

+ 1 - 1
ISHelp/isetup.xml

@@ -3407,7 +3407,7 @@ Filename: "{win}\MYPROG.INI"; Section: "InstallSettings"; Key: "InstallPath"; St
 </tr>
 </tr>
 </table>
 </table>
 
 
-<p>For example, if the search string was (Ex)(ample) and the replace string was $2$1, when applied to a script saying "Examples" this would modify the script to say "amplExs". Or if the replace string was $1\r\n$2 it would put a newline between "Ex" and "ample".</p>
+<p>For example, if the search string was (Ex)(ample) and the replace string was $2$1, when applied to a script saying "Examples" this would modify the script to say "amplExs". Or if the replace string was $1\r\n$2 this would put a newline between "Ex" and "amples".</p>
 
 
 </body>
 </body>
 </topic>
 </topic>

+ 4 - 0
Projects/Src/Compil32/CompForm.dfm

@@ -845,6 +845,10 @@ object CompileForm: TCompileForm
         Caption = '&Keyboard And Mouse Commands'
         Caption = '&Keyboard And Mouse Commands'
         OnClick = HShortcutsDocClick
         OnClick = HShortcutsDocClick
       end
       end
+      object HRegexDoc: TMenuItem
+        Caption = 'Regular E&xpressions'
+        OnClick = HRegexDocClick
+      end
       object N14: TMenuItem
       object N14: TMenuItem
         Caption = '-'
         Caption = '-'
       end
       end

+ 8 - 0
Projects/Src/Compil32/CompForm.pas

@@ -218,6 +218,7 @@ type
     VPreviousTab: TMenuItem;
     VPreviousTab: TMenuItem;
     N20: TMenuItem;
     N20: TMenuItem;
     HShortcutsDoc: TMenuItem;
     HShortcutsDoc: TMenuItem;
+    HRegExDoc: TMenuItem;
     N21: TMenuItem;
     N21: TMenuItem;
     EFindPrevious: TMenuItem;
     EFindPrevious: TMenuItem;
     FindResultsList: TListBox;
     FindResultsList: TListBox;
@@ -346,6 +347,7 @@ type
     procedure VNextTabClick(Sender: TObject);
     procedure VNextTabClick(Sender: TObject);
     procedure VPreviousTabClick(Sender: TObject);
     procedure VPreviousTabClick(Sender: TObject);
     procedure HShortcutsDocClick(Sender: TObject);
     procedure HShortcutsDocClick(Sender: TObject);
+    procedure HRegExDocClick(Sender: TObject);
     procedure VFindResultsClick(Sender: TObject);
     procedure VFindResultsClick(Sender: TObject);
     procedure EFindInFilesClick(Sender: TObject);
     procedure EFindInFilesClick(Sender: TObject);
     procedure FindInFilesDialogFind(Sender: TObject);
     procedure FindInFilesDialogFind(Sender: TObject);
@@ -3246,6 +3248,12 @@ begin
     HtmlHelp(GetDesktopWindow, PChar(GetHelpFile), HH_DISPLAY_TOPIC, Cardinal(PChar('topic_compformshortcuts.htm')));
     HtmlHelp(GetDesktopWindow, PChar(GetHelpFile), HH_DISPLAY_TOPIC, Cardinal(PChar('topic_compformshortcuts.htm')));
 end;
 end;
 
 
+procedure TCompileForm.HRegExDocClick(Sender: TObject);
+begin
+  if Assigned(HtmlHelp) then
+    HtmlHelp(GetDesktopWindow, PChar(GetHelpFile), HH_DISPLAY_TOPIC, Cardinal(PChar('topic_compformregex.htm')));
+end;
+
 procedure TCompileForm.HDocClick(Sender: TObject);
 procedure TCompileForm.HDocClick(Sender: TObject);
 begin
 begin
   if Assigned(HtmlHelp) then
   if Assigned(HtmlHelp) then