All pastes #1346511 Raw Edit

Jemand

public text v1 · immutable
#1346511 ·published 2009-02-25 04:41 UTC
rendered paste body
Import maxgui.win32maxguiex

Global TestWindow:TGadget = createWindow("TestWindow", 0, 0, 230, 170, Null, WINDOW_CENTER | WINDOW_TITLEBAR | WINDOW_MENU)

Global Canvas:TGadget = CreateCanvas(10, 10, 200, 100, TestWindow)

SetGraphics CanvasGraphics(Canvas)


EnablePolledInput()

Repeat
	PollEvent()
	DrawText "X: " + MouseX() + " Y: " + MouseY(), 0, 0
	DrawText "MouseDown: " + MouseDown(1), 0, 20
	DrawText "MouseHit: " + MouseHit(1), 0, 40
	
	Flip
	Cls
	
Forever