|
@@ -294,7 +294,6 @@ type
|
|
procedure RParametersClick(Sender: TObject);
|
|
procedure RParametersClick(Sender: TObject);
|
|
procedure POutputListCopyClick(Sender: TObject);
|
|
procedure POutputListCopyClick(Sender: TObject);
|
|
procedure BStopCompileClick(Sender: TObject);
|
|
procedure BStopCompileClick(Sender: TObject);
|
|
- procedure HMenuClick(Sender: TObject);
|
|
|
|
procedure EGotoClick(Sender: TObject);
|
|
procedure EGotoClick(Sender: TObject);
|
|
procedure RTerminateClick(Sender: TObject);
|
|
procedure RTerminateClick(Sender: TObject);
|
|
procedure BMenuClick(Sender: TObject);
|
|
procedure BMenuClick(Sender: TObject);
|
|
@@ -3220,14 +3219,6 @@ begin
|
|
PChar(Format('/select,"%s"', [FCompiledExe])), PChar(Dir), SW_SHOWNORMAL);
|
|
PChar(Format('/select,"%s"', [FCompiledExe])), PChar(Dir), SW_SHOWNORMAL);
|
|
end;
|
|
end;
|
|
|
|
|
|
-procedure TCompileForm.HMenuClick(Sender: TObject);
|
|
|
|
-begin
|
|
|
|
- HISPPDoc.Visible := NewFileExists(GetISPPHelpFile);
|
|
|
|
- HISPPSep.Visible := HISPPDoc.Visible;
|
|
|
|
-
|
|
|
|
- ApplyMenuBitmaps(Sender as TMenuItem);
|
|
|
|
-end;
|
|
|
|
-
|
|
|
|
procedure TCompileForm.HShortcutsDocClick(Sender: TObject);
|
|
procedure TCompileForm.HShortcutsDocClick(Sender: TObject);
|
|
begin
|
|
begin
|
|
if Assigned(HtmlHelp) then
|
|
if Assigned(HtmlHelp) then
|
|
@@ -3272,7 +3263,7 @@ end;
|
|
procedure TCompileForm.HISPPDocClick(Sender: TObject);
|
|
procedure TCompileForm.HISPPDocClick(Sender: TObject);
|
|
begin
|
|
begin
|
|
if Assigned(HtmlHelp) then
|
|
if Assigned(HtmlHelp) then
|
|
- HtmlHelp(GetDesktopWindow, PChar(GetISHelpFile + '::/hh_isppredirect.xhtm'), HH_DISPLAY_TOPIC, 0);
|
|
|
|
|
|
+ HtmlHelp(GetDesktopWindow, PChar(GetISHelpFile), HH_DISPLAY_TOPIC, Cardinal(PChar('topic_isppoverview.htm')));
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TCompileForm.HDonateClick(Sender: TObject);
|
|
procedure TCompileForm.HDonateClick(Sender: TObject);
|