Page 1 of 1

Form transparency

Posted: Mon Apr 27, 2015 1:00 pm
by esgici
Can we hope a high level library function for adjusting transparency of form :?

Viva HMG :D

Re: Form transparency

Posted: Mon Apr 27, 2015 1:13 pm
by serge_girard
+1

Re: Form transparency

Posted: Mon Apr 27, 2015 3:45 pm
by srvet_claudio
Friends, see:

Code: Select all

New Properties:
 
 
      ThisWindow|<FormName>.Handle            --> nFormHandle
      ThisWindow|<FormName>.Index             --> nFormIndex
      ThisWindow|<FormName>.IsMinimized       --> lBoolean
      ThisWindow|<FormName>.IsMaximized       --> lBoolean
      ThisWindow|<FormName>.ClientAreaWidth   --> nWidth
      ThisWindow|<FormName>.ClientAreaHeight  --> nHeight
 
      ThisWindow|<FormName>.NoCaption   [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoMaximize  [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoMinimize  [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoClose     [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoSize      [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoSysMenu   [ := | --> ] lBoolean
      ThisWindow|<FormName>.HScroll     [ := | --> ] lBoolean
      ThisWindow|<FormName>.VScroll     [ := | --> ] lBoolean
      ThisWindow|<FormName>.Enabled     [ := | --> ] lBoolean
 
      ThisWindow|<FormName>.AlphaBlendTransparent := nAlphaBlend (0 to 255, Completely Transparent = 0, Opaque = 255)
      ThisWindow|<FormName>.BackColorTransparent  := aRGBColor
 
 
 
 
# Visual Effects on Windows
 
 
-    SET WINDOW FormName TRANSPARENT TO COLOR aRGBColor
-    SET WINDOW FormName TRANSPARENT TO nAlphaBlend  --> nAlphaBlend = 0 to 255 (completely transparent = 0, opaque = 255)
-    SET WINDOW FormName [ TRANSPARENT ] TO OPAQUE
 
 
-    FLASH WINDOW FormName CAPTION COUNT nTimes INTERVAL nMilliseconds
-    FLASH WINDOW FormName TASKBAR COUNT nTimes INTERVAL nMilliseconds
-    FLASH WINDOW FormName [ ALL ] COUNT nTimes INTERVAL nMilliseconds
 
 
-    ANIMATE WINDOW FormName INTERVAL nMilliseconds MODE nFlags
-    ANIMATE WINDOW FormName MODE nFlags
 
- MODE <nFlags> (see the function AnimateWindow() in the API Window Reference), constants defined in i_Window.ch
#define AW_HOR_POSITIVE 0x00000001
#define AW_HOR_NEGATIVE 0x00000002
#define AW_VER_POSITIVE 0x00000004
#define AW_VER_NEGATIVE 0x00000008
#define AW_CENTER       0x00000010
#define AW_HIDE         0x00010000
#define AW_ACTIVATE     0x00020000
#define AW_SLIDE        0x00040000
#define AW_BLEND        0x00080000
 

Re: Form transparency

Posted: Mon Apr 27, 2015 4:07 pm
by serge_girard
Thank you so much Claudio !

Serge

Re: Form transparency

Posted: Mon Apr 27, 2015 4:46 pm
by esgici
Hola Hidalgo

HMG 3.1.5 (2013/07/31) :!: :o

Sorry, very sorry :oops: ;

and muchas gracias :arrow:

Viva HMG, viva Dr. Soto !

Re: Form transparency

Posted: Mon Apr 27, 2015 4:55 pm
by serge_girard
Sometimes, because of all the trees, one cannot see the forest....

S

Re: Form transparency

Posted: Mon Apr 27, 2015 5:00 pm
by esgici
serge_girard wrote:Sometimes, because of all the trees, one cannot see the forest....

S
+1

Re: Form transparency

Posted: Mon Apr 27, 2015 5:04 pm
by serge_girard
And I wear glasses, no Google glasses..

S