Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27758/src
Modified Files:
Dc.f
Log Message:
Added RoundRect: and InvertRect as suggested by Larry Daniel
Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Dc.f 2 Oct 2005 07:25:36 -0000 1.6
--- Dc.f 8 Oct 2005 08:14:50 -0000 1.7
***************
*** 276,279 ****
--- 276,292 ----
0 0 0 0 Arc: self ;M
+ \ Samstag, Oktober 08 2005 dbu
+ \ Added as suggested by Larry Daniel
+ :M RoundRect: { left top right bottom width height }
+ height width bottom right top left hDC Call RoundRect ?win-error
+ ;M
+
+ \ Samstag, Oktober 08 2005 dbu
+ \ Added as suggested by Larry Daniel
+ :M InvertRect: { left top right bottom }
+ left top right bottom SetRect: FillRect
+ Addrof: FillRect hDC Call InvertRect ?win-error
+ ;M
+
:M CreateCompatibleBitmap: ( width height -- hbitmap )
swap hdc
|
