Page 1 of 1

How To Use DC_ZOOMTRANSPARENT(1)

Posted: Thu Feb 28, 2013 1:30 pm
by 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.

Re: How To Use DC_ZOOMTRANSPARENT(1)

Posted: Fri Mar 01, 2013 9:20 am
by 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