[r5]: / trunk / Library / Libname / Function Blocks / VisuFbMaterialSwitch / private / paintSwitchHover / svnobj  Maximize  Restore  History

Download this file

14 lines (13 with data), 6.0 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
// Draw Selection
m_pCurrentClientData^.GlobalData.DrawingContext.SetElementLookDeactive(FALSE);
IF m_bToggleState THEN
	iThumbOffset := TRACK_WIDTH-(THUMB_RAIDUS*2);
END_IF
iSelectionRadius := (HEIGHT_PART-(THUMB_RAIDUS*2))/2;
iThumbXGap := (WIDTH_PART-TRACK_WIDTH)/2 + iThumbOffset;
thumbPaintRectangle.m_Points[0].iX := thumbPaintRectangle.m_Points[0].iX + TO_INT(iThumbXGap*_currentPart);
thumbPaintRectangle.m_Points[2].iX := thumbPaintRectangle.m_Points[0].iX + TO_INT((THUMB_RAIDUS*2)*_currentPart);
thumbPaintRectangle.m_Points[1].iX := thumbPaintRectangle.m_Points[2].iX;
thumbPaintRectangle.m_Points[3].iX := thumbPaintRectangle.m_Points[0].iX;
m_pCurrentClientData^.GlobalData.DrawingContext.DrawRectUnchecked2(Rectangle := thumbPaintRectangle, 
	bTransform := TRUE,pClientdata := m_pCurrentClientData, pPaintBuffer := ADR(m_pCurrentClientData^.PaintBuffer));