In einem seperaten Fenster (Größe muss ich noch anpassen) möchte ich eine PDF-Datei mit einem Hilfetext anzeigen, die das Manko umgeht, unter Windows 10 keine *.hlp-Dateien mehr darstellen zu können. Ich füge den Quelltext bei, in der Hoffung, das einer von Euch die RunShell-Zeile entsprechend abändert.
Code: Alles auswählen
PROCEDURE Hilfetextpdf()
LOCAL nEvent, mp1, mp2
LOCAL aSize := {410,165}, aPSize, aPos
LOCAL oParent := RootWindow():drawingArea, oOwner := ATail( aFenster ), oDlg, oXbp, oMLE
LOCAL cAlias := ALIAS(), cText, [b]cFile := CurDrive()+":\"+CurDir()+"\Hilfe\"+"LOKLISTE_Convert.pdf"[/b]
aPSize := oParent:currentSize()
aPos := { (aPSize[1]/2)-(aSize[1]/2), (aPSize[2]/2)-(aSize[2]/2) }
oDlg := XbpDialog():new( AppDesktop(), oOwner, aPos, )
oDlg:close := {|mp1,mp2,obj| obj:destroy(), nEvent := xbeP_Close }
oDlg:clientSize := aSize
oDlg:title := " Hilfetext als PDF-Datei für die Datenbank LOKLISTE ab Windows 10"
oDlg:icon := 4
oDlg:create()
SetWindowPropertyOff( oDlg, WS_MAXIMIZEBOX+WS_MINIMIZEBOX )
drawingArea := oDlg:drawingArea // Anzeigebereich vom Dialog holen
drawingArea:setFontCompoundName( "8.Helv" )
RunShell( "/C START / [b]cFile[/b]" ) // [i]Welche Parameter müssen verwendet werden ???
[/i]
oDlg:show()
SetAppFocus( oDlg )
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:keyboard := {|nKey, mp2, obj| IIf( nKey == 27, PostAppEvent( xbeP_Close,,, oDlg ), NIL ) }
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
MfG Karl-Heinz Kahl