case Msg.message of
	WM_PAINT: begin
		DefWindowProc(Control.Handle,Msg.message,Msg.wParam,Msg.lParam);
		if Msg.wParam = 0 then DC := BeginPaint(Control.Handle, PaintStruct) else DC := Msg.wParam;
		if assigned(OldPaint) then OldPaint(Control, DC);
		_hi_onEvent(fOnPaint, integer(DC));
		if Msg.wParam = 0 then EndPaint(Control.Handle, PaintStruct);
		end;
   end;