Page History
...
In the window's TIMER event, code the following:
Code Block |
---|
declare function FlashWindow
hwnd = Get_Property(@window , 'HANDLE')
invert = 1
fv = FlashWindow (hwnd, invert)
|
The code gets the window's HANDLE property, and then passes it to FlashWindow(), with the second argument (invert) indicating that the window should be flashed.
To start the flashing effect, simply start the timer by setting the TIMER property, passing the number of milliseconds between calling the TIMER event. To To flash the window every 1/2 second (500 milliseconds), code the following:
Code Block |
---|
rv = Set_Property(@window , 'TIMER', 500) |
To turn off the flashing, disable the call to the TIMER event by passing a 0, as shown below:
Code Block |
---|
rv = Set_Property(@window , 'TIMER', 0) |
...
Log out of the application.
Log into the SYSPROG application.
Add a row, (call it DLL_APICALLS_USER32), with the first line as USER32 and containing the declaration as shown below.
Code Block USER32 ULONG STDCALL FlashWindow (ULONG, ULONG) //....add any other declarations in USER32 here.....
...
...
- Save the row.
...
Run Declare_FCNS at the System Editor Exec Line to create the declaration header, as shown below:
...
Code Block RUN DECLARE_FCNS 'DLL_APICALLS_USER32'
...
...
- Exit the editor.
...
- Log out of SYSPROG.
...
- Log into your application.
...
- Run the window.