Inactive Windows

[AUGE_OHR]

hi,

when have many Window it confuse me which is active ... so i try some visual Effect

Code: Select all

   DEFINE WINDOW MYwin
   ...
      ON GOTFOCUS  WinTans(ThisWindow.Name,.T.) ;
      ON LOSTFOCUS WinTans(ThisWindow.Name,.F.) ;

Transparency.jpg (375.67 KiB) Viewed 1970 times

Code: Select all

PROCEDURE WinTans(cForm,lOnOff)
LOCAL hWnd
LOCAL bError := ERRORBLOCK( { | oErr | BREAK( oErr ) } )
   DEFAULT lOnOff TO .F.
   IF !EMPTY(cForm)
      BEGIN SEQUENCE
         hWnd := GetFormHandle(cForm)
         IF lOnOff = .T.
            SetLayeredWindowAttributes (hWnd, 0, 255, LWA_ALPHA) // full visible
         ELSE
            SetLayeredWindowAttributes (hWnd, 0, 128, LWA_ALPHA) // half transparent
         ENDIF
      END SEQUENCE
      ERRORBLOCK( bError )
   ENDIF
RETURN

does it help User or does it make more confuse ...

[serge_girard]

Just installed and I will give a try!

Thanks! Serge

[serge_girard]

Unstalled it because too confusing!

Serge

[AUGE_OHR]

hi,

i agree that this is not the normal Look.

i like transparency but not sure "how much" so i have enhance Setup.

Setup_Transparency.JPG (13.21 KiB) Viewed 1908 times

Value can be from 0 (not visible) to 255 (full visible)

[Red2]

Hi Jimmy,

Thank you, I like your idea to roll this transparency action into a function.

I want to explore this direction myself. My window transparency needs, at this time, simple enough. Therefore, when opening and closing windows I merely include the following simple commands (window names hard coded). A function for this looks better.

I have settled on dimming to a value of 200.

Code: Select all

// nAlphaBlendis from: 0 (completely transparent) to 255 (opaque)
set window Main Transparent to 200	// When opening another window, i.e. on OnInit()
set window Main Transparent to 255	// When returning

Thanks again,
Red2

[franco]

I have Always created a program or function or procedure
open tables
define window
* *
* *
close tables
release window
I think less confusing