romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18245

Browse Source
This commit is contained in:
Marius Mutu
2026-10-01 18:43:55 +03:00
parent eda92c1eb1
commit 7bb485f4ae
3 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
programe/oproceduri_comune.prg
View File

@@ -2983,6 +2983,16 @@ Endproc
Procedure lansare_help_meniu
Local lcPdf, llHtml
* manualul pdf al aplicatiei: <app>\Help\manual_<APP>.pdf; daca exista si manualul html, se alege
lcPdf = Iif(Type('gcAppPath') = 'C' And Type('gcAppName') = 'C', gcAppPath + 'Help\manual_' + gcAppName + '.pdf', '')
If !Empty(m.lcPdf) And File(m.lcPdf)
llHtml = Type('ohelp.tool_help1') = 'O' And !Empty(ohelp.tool_help1.Help.comanda_program) And ohelp.tool_help1.Help.comanda_program <> 'INACTIV'
If !m.llHtml Or amessagebox('Deschideti manualul PDF?' + Chr(13) + '(Nu = manualul HTML)', 4 + 32, 'Manual de utilizare') = 6
OPEN_DEFAULT_APP(m.lcPdf)
Return
Endif
Endif
If Type('ohelp.tool_help1') <> 'O'
Return
Endif