*-- Take care to replace the picture selections with correct pathnames DEFINE CLASS cntnav AS container Width = 78 Height = 28 Picture = "nav_background.bmp" BorderWidth = 0 Name = "cntnav" ADD OBJECT imghistory AS image WITH ; Picture = "nav_history_inactive.bmp", ; BackStyle = 0, ; Height = 21, ; Left = 52, ; MousePointer = 15, ; Top = 4, ; Width = 23, ; Name = "imgHistory" ADD OBJECT imgnext AS image WITH ; Picture = "nav_next_inactive.bmp", ; BackStyle = 0, ; Height = 26, ; Left = 30, ; MousePointer = 15, ; Top = 1, ; Width = 26, ; Name = "imgNext" ADD OBJECT imgprev AS image WITH ; Picture = "nav_prev_inactive.bmp", ; BackStyle = 0, ; Height = 26, ; Left = 1, ; MousePointer = 15, ; Top = 1, ; Width = 26, ; Name = "imgPrev" PROCEDURE imghistory.MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Picture = [nav_history_inactive.bmp] ENDPROC PROCEDURE imghistory.MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Picture = [nav_history_active.bmp] ENDPROC PROCEDURE imgnext.MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Picture = [nav_next_inactive.bmp] ENDPROC PROCEDURE imgnext.MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Picture = [nav_next_active.bmp] ENDPROC PROCEDURE imgprev.MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Picture = [nav_prev_inactive.bmp] ENDPROC PROCEDURE imgprev.MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Picture = [nav_prev_active.bmp] ENDPROC ENDDEFINE