[graphic-forms-cvs] r97 - trunk/src/uitoolkit/system

[junrue at common-lisp.net]

Author: junrue
Date: Fri Apr 14 20:05:49 2006
New Revision: 97

Modified:
   trunk/src/uitoolkit/system/gdi32.lisp
   trunk/src/uitoolkit/system/system-constants.lisp
Log:
added bindings for font resource registration and removal functions

Modified: trunk/src/uitoolkit/system/gdi32.lisp
==============================================================================
--- trunk/src/uitoolkit/system/gdi32.lisp	(original)
+++ trunk/src/uitoolkit/system/gdi32.lisp	Fri Apr 14 20:05:49 2006
@@ -40,6 +40,13 @@
 (load-foreign-library "msimg32.dll")
 
 (defcfun
+  ("AddFontResourceExA" add-font-resource-ex)
+  INT
+  (filename :string)
+  (flags DWORD)
+  (reserved LPTR))
+
+(defcfun
   ("Arc" arc)
   BOOL
   (hdc HANDLE)
@@ -137,6 +144,14 @@
   (color COLORREF))
 
 (defcfun
+  ("CreateScalableFontResourceA" create-scalable-font-resource)
+  BOOL
+  (hidden DWORD)
+  (resfile :string)
+  (fontfile :string)
+  (path :string))
+
+(defcfun
   ("DeleteDC" delete-dc)
   BOOL
   (hdc HANDLE))
@@ -316,6 +331,11 @@
   (y2 INT))
 
 (defcfun
+  ("RemoveFontResourceA" remove-font-resource)
+  BOOL
+  (filename :string))
+
+(defcfun
   ("RoundRect" round-rect)
   BOOL
   (hdc HANDLE)

Modified: trunk/src/uitoolkit/system/system-constants.lisp
==============================================================================
--- trunk/src/uitoolkit/system/system-constants.lisp	(original)
+++ trunk/src/uitoolkit/system/system-constants.lisp	Fri Apr 14 20:05:49 2006
@@ -206,6 +206,9 @@
 (defconstant +ff-script+                   #x0040)
 (defconstant +ff-decorative+               #x0050)
 
+(defconstant +fr-private+                    #x10)
+(defconstant +fr-not-enum+                   #x20)
+
 (defconstant +fw-dontcare+                      0)
 (defconstant +fw-thin+                        100)
 (defconstant +fw-extralight+                  200)