Mirror of forum.nim-lang.org

1942 :: windows fonts

• geezer9 (orginal) [2016-01-14T00:43:00+01:00] view original

  Below is an attempt to use the MSDN EnumFontFamiliesEx function defined in the windows.nim file from the oldwinapi.

  import windows
  
  var callback = proc(logfont:var ENUMLOGFONTEX,
      metric:var NEWTEXTMETRICEX,
      fontTp:int32, lparam:LPARAM):int32 =
      echo("enumed font=",repr(logfont))
      return 1    # continue enumeration
  
  (proc () =
      var logf:LOGFONT
      logf.lfCharSet = DEFAULT_CHARSET
      logf.lfFaceName[0] = 0.char
      logf.lfPitchAndFamily = 0
      discard EnumFontFamiliesEx(0.HDC,addr logf,
          callback.FONTENUMEXPROC,0.LPARAM,0.DWORD)
  )()
  Run

  But compiling (well, under wine on a linux box) gives the error:

  conversion from proc (logfont: var ENUMLOGFONTEX,
  metric: var NEWTEXTMETRICEX, fontTp: int32, lparam: LPARAM): int32
  {.gcsafe, locks: 0.} to FONTENUMEXPROC is invalid
  Run

  although the windows.nim declaration for FONTENUMEXPROC is:

  FONTENUMEXPROC* = proc (para1: var ENUMLOGFONTEX,
  para2: var NEWTEXTMETRICEX,
  para3: int32, para4: LPARAM): int32{.stdcall.}
  Run

  Are the pragmas gcsafe and locks:0 the problem??? If so, how do I remove them (since they are compiler generated)

---

• def (orginal) [2016-01-14T00:46:24+01:00] view original

  Add {.stdcall.} to your proc:

  var callback = proc(logfont:var ENUMLOGFONTEX,
      metric:var NEWTEXTMETRICEX,
      fontTp:int32, lparam:LPARAM):int32 {.stdcall.} =
      echo("enumed font=",repr(logfont))
      return 1    # continue enumeration
  Run

  (untested)

---

• geezer9 (orginal) [2016-01-14T02:46:58+01:00] view original

  That did the trick - no more compiler error. THANKS.

  The app still doesn't list fonts (even on an actual MS Windows box) - but that is a question for a different forum, I guess.

  Anyway - many thanks.

---