forum.clarionlife.net

Код: Выделить всё

Clarion Version : 11.1.0.13815
.NET Version         : 4.0.30319.1
OS Version           : Microsoft Windows NT 6.1.7601 Service Pack 1
Current culture      : English (United States) (en-US)
Working Set Memory   : 75320kb
GC Heap Memory       : 1283kb


Unhandled exception terminated Clarion

Exception Type: System.ArgumentException

Exception thrown: 
System.ArgumentException: Font '?' cannot be found.
   at System.Drawing.FontFamily.GetGdipGenericSansSerif()
   at System.Drawing.FontFamily.CreateFontFamily(String name, FontCollection fontCollection)
   at System.Drawing.FontFamily..ctor(String name, Boolean createDefaultOnFail)
   at System.Drawing.Font.Initialize(String familyName, Single emSize, FontStyle style, GraphicsUnit unit, Byte gdiCharSet, Boolean gdiVerticalFont)
   at System.Drawing.Font..ctor(String familyName, Single emSize)
   at ICSharpCode.SharpDevelop.SplashScreenForm..ctor()
   at ICSharpCode.SharpDevelop.SplashScreenForm.ShowSplashScreen()
   at ICSharpCode.SharpDevelop.SharpDevelopMain.Run(String[] args)
   at ICSharpCode.SharpDevelop.SharpDevelopMain.Main(String[] args)

Код: Выделить всё

             GoURL(UNSIGNED,String,byte=1) ! 1 - open, 2 - edit

Код: Выделить всё

     GoURL(GetDesktopWindow(),Clip(ExportOpenFileName))

Код: Выделить всё

GoURL           PROCEDURE (wHandle, URL, ActionCode)
!wHandle  window{PROP:Handle}
URLBuffer            CSTRING(256)
EmptyString          CSTRING(254)
URLAction            CSTRING(254)
  CODE                                                          ! Begin processed code
 IF AnyScreen:Active()
  AnyScreen:OpenURL(Clip(URL))
 Else
   URLBuffer = CLIP(URL)
     Execute ActionCode
      URLAction = 'OPEN'
      URLAction = 'EDIT'
     End
     EmptyString=''
     x#=ShellExecute(wHandle, URLAction, URLBuffer, EmptyString, EmptyString, 1)
 End