How To Use DC_ZOOMTRANSPARENT(1)

[GeneB]

DC_ZOOMTRANSPARENT(0) is a nice 'bell and whistle'.
How would you use DC_ZOOMTRANSPARENT(1) to fade a window while closing?

Also, this is only a cosmetic thing, but after creating a large DCPUSHBUTTONXP with a Gradient .8 to use as a "logo screen", if I exit the read by using NODESTROY EXIT, to do some startup stuff, the button flashes. Not a big deal. Wondered if there was a solution.

[rdonnay]

This works for me:

Code: Select all

#INCLUDE "dcdialog.CH"

FUNCTION Main()

LOCAL GetList[0], oDlg, oMemo, cMemo, GetOptions

TEXT INTO cMemo WRAP
This is a demo
of the transparent
ZOOM feature of
eXpress++
ENDTEXT

@ 0,0 DCMULTILINE cMemo SIZE 80,20 ;
      FONT '16.Lucida Console'

DCGETOPTIONS HIDE ;
   CLOSEQUERY MSG {||DC_ZoomTransparent(oDlg,1),oDlg:setSize({0,0}),.t.}

DCREAD GUI FIT TITLE 'Zoom Transparent' ;
   OPTIONS GetOptions ;
   EVAL {|o|oDlg := o, DC_ZoomTransparent(oDlg,0)}

RETURN nil

* ---------

PROC appsys ; return