development of graphics module

This commit is contained in:
Andreas Rumpf
2010-02-19 08:34:07 +01:00
parent 0b07b47f69
commit 64da2f1681
7 changed files with 508 additions and 272 deletions

View File

@@ -189,6 +189,9 @@ proc GetCommandLineA*(): CString {.importc, stdcall, dynlib: "kernel32".}
proc rdFileTime*(f: FILETIME): int64 =
result = ze64(f.dwLowDateTime) or (ze64(f.dwHighDateTime) shl 32)
proc rdFileSize*(f: TWin32FindData): int64 =
result = ze64(f.nFileSizeLow) or (ze64(f.nFileSizeHigh) shl 32)
proc Sleep*(dwMilliseconds: int32){.stdcall, dynlib: "kernel32",
importc: "Sleep".}