Always On Top Trick - Hints Hidden

[Phil Pendlebury]

Hi guys,

Using JRL's great trick to keep a compiled dialog always on top, (and using panels as buttons), I am finding that Hints are hidden behind the dialog.

Has anyone come across this previously?

Code: Select all

Show>Dialog1
Label>Loop
    Wait>0.01
    //The next four lines only needed for compiled scripts
    Let>WIN_USEHANDLE=1
      GetWindowPos>Dialog1.handle,Dialog1X,Dialog1Y
      MoveWindow>Dialog1.handle,Dialog1X,Dialog1Y
    Let>WIN_USEHANDLE=0
  Goto>Loop

Hints work fine when the dialog is set as always on top (using FormStyle = fsStayOnTop) and called with

Code: Select all

Show>Dialog1,resd

I guess this is a side effect of the way the trick works.

[JRL]

I would try creating a flag variable that controls whether or not the dialog gets moved. Something Like:
(This has not been tested. Demonstration only.)

Code: Select all

//beginning of script
Let>vMoveDialogFlag=1
//lines of code
If>MoveDialogFlag=1
  GetWindowPos>MyDialog,DiaX,DiaY
  MoveWindow>MyDialog,DiaX,DiaY
EndIf

Set a couple of Dialog handlers for MyDialog for OnMouseEnter and OnMouseLeave that set the flag variable.

Code: Select all

Adddialoghandler>MyDialog,,OnMouseEnter,srtTurnOffDialogMove
Adddialoghandler>MyDialog,,OnMouseLeave,srtTurnOnDialogMove

SRT>srtTurnOffDialogMove
  Let>vMoveDialogFlag=0
END>srtTurnOffDialogMove

SRT>srtTurnOnDialogMove
  Let>vMoveDialogFlag=1
END>srtTurnOnDialogMove

[Phil Pendlebury]

Thanks JRL, great idea.