XBPSYSCLR_TRANSPARENT

Beitrag von **AUGE_OHR** » Mi, 19. Nov 2008 22:58

hi,

#ifndef _NEWFORM_
#define _NEWFORM_

#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"
#include "Font.ch"

#PRAGMA LIBRARY( "ASCOM10.LIB" )

CLASS _NewForm FROM XbpDialog
   EXPORTED:
      VAR editControls

      METHOD init
      METHOD create
ENDCLASS

******************************************************************************
* Formular initialisieren
******************************************************************************
METHOD _NewForm:init( oParent, oOwner, aPos, aSize, aPP, lVisible )

   DEFAULT oParent  TO AppDesktop(), ;
           aPos     TO {165,31}, ;
           aSize    TO {800,600}, ;
           lVisible TO .F. , ;
           aPP      TO {}

   AAdd ( aPP, { XBP_PP_BGCLR, -255 } )
   AAdd ( aPP, { XBP_PP_FGCLR, -255 } )
   AAdd ( aPP, { XBP_PP_COMPOUNDNAME, "8.Arial" } )
   ::XbpDialog:init( oParent, oOwner, aPos, aSize, aPP, lVisible )
   ::XbpDialog:drawingArea:ColorBG := -255
   ::XbpDialog:drawingArea:clipChildren := .T.
   ::XbpDialog:taskList := .T.
   ::XbpDialog:title := "Glass View"

   ::editControls := {}

RETURN self

******************************************************************************
* Systemresourcen anfordern
******************************************************************************
METHOD _NewForm:create( oParent, oOwner, aPos, aSize, aPP, lVisible )

   ::XbpDialog:create( oParent, oOwner, aPos, aSize, aPP, lVisible )

RETURN self

#endif

wenn ich das starte "scheint" es so als wenn ich durch die

rawingArea "durchsehen" könnte...

sobald ich den Dialog "bewege" merkt man das es sich um eine Art "Snapshop" handelt und man
nicht "durchsehen" kann ... und wenn man was "darüber" legt hat man einen neuen "SnapShot"

Frage : kann man die ::XbpDialog:drawingArea konstant "durchsichtig" bekommen ?

Die "Transparenz" Lösung "wirkt" auf einen XbpDialog ... ich will nur die ::XbpDialog:drawingArea