Dialog No Shadow, if NON MODAL FRAME.

[dutch]

if I set DIALOG and NO CAPTION. The Dialog will not has SHADOW and normal Dialog.


I try oDlg:Shadow() but it has a little problem, shadow will disappear when I click on other area.

I need the shadow as normal dialog as below.
How can I make shadow for NO CAPTION DIALOG? Is it possible?

[Antonio Linares]

This example seems to work fine:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   BuildDialog()

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

function BuildDialog()

   local oDlg

   DEFINE DIALOG oDlg STYLE WS_POPUP

   ACTIVATE DIALOG oDlg NOWAIT ;
      ON INIT ( oDlg:Shadow(), oDlg:PostMsg( WM_SETFOCUS ) ) CENTER

return nil

[dutch]

Dear Antonio,

Could you try this code (I call dialog this way) and click on any place in Main Window. The shadow will be lost.

This example seems to work fine:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   @ 50, 50 BUTTON 'Dlg' OF oWnd SIZE 60, 40 PIXEL  ACTION BuildDialog()
   
//   BuildDialog()

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

function BuildDialog()

   local oDlg

   DEFINE DIALOG oDlg STYLE WS_POPUP

   ACTIVATE DIALOG oDlg ; // NOWAIT ;
      ON INIT ( oDlg:Shadow(), oDlg:PostMsg( WM_SETFOCUS ) ) CENTER

return nil

[cnavarro]

Dutch, your code also run OK for me

[dutch]

Dear Navarro,

Do you click on Main Windowm, yet?

Dutch, your code also run OK for me

[cnavarro]

Dear Navarro,

Do you click on Main Windowm, yet?

Dutch, your code also run OK for me

Not, only in button

[dutch]

Dear Navarro,

If you click on Main Window or Button again, the shadow will disappear.

[ukoenig]

Yes I noticed the same :



regards
Uwe

[cnavarro]

Dutch,
Yes you are right

[dutch]

Dear Navarro,

There are some point of its behavior.

1. ::Shadow() is paint before dialog, sometime it show a lit slow. You will see the step. shadow and dialog
2. If you press button many time the shadow will paint many time also. It will show darker and darker.

Thanks so much.