Geometry with GFA-BASIC 32 - CHM Help File - Version 3
Oct 10, 2023 7:16:52 GMT 1
Roger Cabo likes this
Post by scalion on Oct 10, 2023 7:16:52 GMT 1
Hi, here the last version 3 : GB32-Geometry.chm (925.28 KB)
The "security" of windows say this file is suspicious. just uncheck the box "always ask before opening this file" the first time you open it.
If you dont do it windows show you a blank chm file.
The other way of doing it is to right click the .chm file and open the Properties box; if you see the option at the bottom to Unblock content, tick the box, Apply and you should see the full contents. (dragonjim)
To have a shortcut in the extra menu, copy this file in the Gfawin32.exe directory and use this code to compile a gll extension :
If you prefer use other directory change Gfa_BasicPath by your own variable with your personnal path.
Have good day all.
If you dont do it windows show you a blank chm file.
The other way of doing it is to right click the .chm file and open the Properties box; if you see the option at the bottom to Unblock content, tick the box, Apply and you should see the full contents. (dragonjim)
To have a shortcut in the extra menu, copy this file in the Gfawin32.exe directory and use this code to compile a gll extension :
Sub Gfa_Init
Global IdxMenuGeometryHelpFile
IdxMenuGeometryHelpFile = Gfa_AddMenu("Help Geometry", Help_Geometry_func)
Gfa_MenuDesc(IdxMenuGeometryHelpFile) = "Open the Help File dedicated to Geometry"
End Sub
Proc Help_Geometry_func(Index%)
Global String GeometryHelpFile
GeometryHelpFile = Gfa_BasicPath
If Right(GeometryHelpFile) = "\"
GeometryHelpFile = Left(GeometryHelpFile, Len(GeometryHelpFile) - 1)
EndIf
GeometryHelpFile = GeometryHelpFile & "\GB32-Geometry.chm"
If Not Exist(GeometryHelpFile)
Message "The file " & GeometryHelpFile & " is not present."
Else
System "hh " & GeometryHelpFile
EndIf
EndProc
If you prefer use other directory change Gfa_BasicPath by your own variable with your personnal path.
Have good day all.
