#include <CtrlLib/CtrlLib.h>

using namespace Upp;

int delay;

struct MyImageCtrl: ImageCtrl {
	virtual void MouseMove(Point pos, dword flags) {
		Sleep(delay);
		Size sz = GetSize();
		ImagePainter ip(sz.cx, sz.cy);
		ip.DrawRect(0, 0, sz.cx, sz.cy, White());
		ip.DrawRect(pos.x, pos.y, 50, 50, Black());
		SetImage(ip);
	}
};

struct MyApp : TopWindow {
	EditIntSpin ei;
	MyImageCtrl img;
	MyApp() {
		Zoomable().Sizeable();
		Add(ei.Min(0).LeftPos(10,60).TopPos(10,20));
		Add(img.HSizePos(10,10).VSizePos(40,10).SetFrame(BlackFrame()));
		ei <<= delay = 10;
		ei << [=] { delay = ~ei; };
	}
};

GUI_APP_MAIN
{
	MyApp().Run();
}