[r2]: / trunk / Library / Libname / Function Blocks / VisuFbMaterialSwitch / IVisualElement / HandleInput / svnobj  Maximize  Restore  History

Download this file

21 lines (20 with data), 3.7 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
METHOD HandleInput : BOOL
VAR_INPUT
	pEvent :			POINTER TO VisuStructEvent;
END_VAR
VAR_OUTPUT
VAR
	paintRect : VisuStructPaintRectangle;
	mousePos := m_pCurrentClientData^.GlobalData.DrawingContext.UntransformPoint(mousePos);
	Visu_FctGetPaintRectangle(m_StaticPosition, ADR(paintRect));
	IF pEvent^.EventTag = VISU_ET_MOUSEUP THEN
		IF NOT EffectiveState.bInputDeactivated THEN
		IF VisuFctPointIntersectsPaintRectangle(pt := mousePos, pRect := ADR(paintRect)) THEN
			Hover := TRUE;
			HandleInput := TRUE;
		ELSE
			IF Hover THEN
				Hover := FALSE;
				HandleInput := TRUE;
	END_IF		
END_IF%