[Win32forth-cvs] win32forth/apps/Player4 Pl_MciWindow.f,1.15,1.16

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30549/apps/Player4

Modified Files:
	Pl_MciWindow.f 
Log Message:
Jos: Changed the BkMode to transparant. That has the effect that when you change the color of the windows in the properties of the screen the treeview and the announcements will correctly be shown.

Index: Pl_MciWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Pl_MciWindow.f	12 Mar 2006 17:00:40 -0000	1.15
--- Pl_MciWindow.f	12 Mar 2006 18:01:27 -0000	1.16
***************
*** 64,69 ****
                      if  FileName count ExtractRecord
                          SaveDC: dc                      \ save device context
!                         vFont   SelectObject: dc
!                         ltgreen SetTextColor: dc
                          TA_CENTER SetTextAlign: dc drop
                          GetSize: self 24 - swap 2/ swap 4 / 2dup
--- 64,70 ----
                      if  FileName count ExtractRecord
                          SaveDC: dc                      \ save device context
!                         vFont    SelectObject: dc
!                         TRANSPARENT SetBkMode: dc
!                         ltgreen  SetTextColor: dc
                          TA_CENTER SetTextAlign: dc drop
                          GetSize: self 24 - swap 2/ swap 4 / 2dup
***************
*** 77,86 ****
                  ;M
  
- (( :M On_Size:     ( -- )
-                \  init-parameters wait-drawing  resizing-window time-reset
-                \  paint: self
-                 ;M ))
- 
- 
  :M on_done: ( -- )
                  Delete: vFont
--- 78,81 ----