Event for moving a window

[hmgchang]

Hola Masters,

i can use ON SIZE event when i size a window,
but how about moving a window... any ON MOVE ?

or how can i catch the move event ?

windowsEvents.JPG (50.7 KiB) Viewed 1427 times

Thks n rgds
Chang

[andyglezl]

Maybe...

OnMouseDrag Event
Occurs when the user drag in a Window


Syntax:

OnMouseDrag <ActionProcedure>
The following data are available at ‘OnMouseClick’ procedure:

_HMG_SYSDATA [ 191 ] -> Mouse Row

_HMG_SYSDATA [ 192 ] -> Mouse Col

[hmgchang]

Hola and thanks Andy,

it happen if the mouse pointer is inside the window that wont cause the window
to move.

When we move window the mouse is at the title bar of the window,
that what can move the whole window across the screen,
unfortunately i don't know what event to check ( ON MOVE ?)

Thks n Rgds
Chang
HMG -
Happy Make Good

[AUGE_OHR]

hi,

do you you wat to move hole Window

Code: Select all

   MoveWindow( hWnd, col, row, width, height, .T. )

Source is in x:\hmg.3.4.4\SOURCE\c_windows.c

[hmgchang]

Hi Auge_OHR,
thks for the info.
Pls be kind to give a ssw ( small simple working) example
with hmg since I never learn C.

Thks n Rgds
Chang

[Claudio Ricardo]

Hi... Maybe:

Code: Select all

#include <hmg.ch>

Function Main

PRIVATE nRow, nCol

	Load Window Main
	Main. Center

		nRow := GetProperty ("Main" , "Row")
		nCol := GetProperty ("Main" , "Col")

	Main. Activate

Return
// -------------------------------------------------------------------------------------------------------- //

Function OnMove

	If nRow <> GetProperty ("Main" , "Row") .OR. nCol <> GetProperty ("Main" , "Col")
	
		MsgInfo ("La ventana se ha movido !" , "Aviso !")

		nRow := GetProperty ("Main" , "Row")
		nCol := GetProperty ("Main" , "Col")

	EndIf
	
Return Nil

In Main.fmg set:
OnMouseMove OnMove ()

[edk]

http://hmgforum.com/viewtopic.php?p=65605#p65605