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)