How move a dialog

[lailton.webmaster]

How i can do to move a dialog only
using click mouse inside of dialog

i wan´t the same form that move the dialig when is clicked in cCaption more i want it INSIDE

it´s possivel ? someone can help ?

thanks

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    ACTIVATE DIALOG oDlg;
             ON CLICK DRAGDLG( oDlg );
             CENTER

    RETURN NIL


STATIC FUNCTION DRAGDLG( oDlg )

    LOCAL aCoo := GETWNDRECT( oDlg:hWnd )
    LOCAL aOrg := GETCURSORPOS()

    LOCAL aPos, i

    oDlg:Refresh( .F. )

    WHILE GETKEYSTATE( VK_LBUTTON )
        aPos = GETCURSORPOS()

        MOVEWINDOW( oDlg:hWnd, aCoo[ 1 ] + aPos[ 1 ] - aOrg[ 1 ], aCoo[ 2 ] + aPos[ 2 ] - aOrg[ 2 ], , , .T. )

        FOR i = 1 TO 10
            SYSREFRESH()
        NEXT
    ENDDO

    RETURN NIL

EMG

[lailton.webmaster]

Thanks so much Enrico Maria Giordano

Perfect

[Silvio]

And YOu have an Idea to open and close with an animation a window or a dialog ?

[lailton.webmaster]

You can do it.

Code: Select all  Expand view

#Include "FiveWin.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

STATIC oWnd

Function Main()

   DEFINE WINDOW oWnd TITLE "FivewinBR"

   AnimateWindow( oWnd:hWnd, 600, nOr( AW_SLIDE, AW_HOR_POSITIVE ) )
   ACTIVATE WINDOW oWnd ON INIT oWnd:Refresh()

Return nil

DLL FUNCTION AnimateWindow( hWnd AS LONG, nTime AS LONG, nFlags AS LONG ) AS BOOL PASCAL LIB "USER32.dll"
 

[Silvio]

It make a gpf

[lailton.webmaster]

I don´t have GPF...

i use normal with xharbour+fivewin805+bcc55 (WinXP-Profissional SP3)


demo
http://www.redstarsoft.com.br/xarquivos/win_animation.rar

[anserkk]

It make a gpf

It is working fine here in Windows XP Professional SP3.

Regards

Anser

[Horizon]

Hi,

It works also in Vista Home Premium SP1.

[Silvio]

I have Windows Xp Professional SP 3
and not run
I made also another tests and all made gpf

[StefanHaupt]

Silvio,

I have Windows Xp Professional SP 3
and not run
I made also another tests and all made gpf

all tests you sent me are working fine here, XP pro 64bit.

You can try to find the address where the test crashes and then search this address in the map-file to find out the function, which causes the gpf.

[Silvio]

I not found the error
With this prg

Code: Select all  Expand view

#include "FiveWin.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

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test"

   AnimateWindow( oWnd:hWnd, 600, nOr( AW_SLIDE, AW_HOR_POSITIVE ) )

   ACTIVATE WINDOW oWnd ;
      ON INIT oWnd:Refresh()

return nil

DLL FUNCTION AnimateWindow( hWnd AS LONG, nTime AS LONG, nFlags AS LONG ) AS BOOL PASCAL ;
   LIB "user32.dll"

made this error gpf


and the map file I sent you now

[lailton.webmaster]

It is working very fine here in Windows XP Professional SP3 and use too in Windows XP home edition
in my client, all right...