'****************************************************************************
'* Copyright (C) 2008 Peter Mortensen and Matthias Mann *
'* This file is part of MSQuant. *
'* *
'* MSQuant is distributed under the terms of *
'* the GNU General Public License. See src/COPYING.TXT or *
'* <http://www.gnu.org/licenses/gpl.txt> for details. *
'* *
'* MSQuant is free software; you can redistribute it *
'* and/or modify it under the terms of the GNU *
'* General Public License as published by the Free *
'* Software Foundation; either version 2 of the *
'* License, or (at your option) any later version. *
'* *
'* MSQuant is distributed in the hope that it will be *
'* useful, but WITHOUT ANY WARRANTY; without even the *
'* implied warranty of MERCHANTABILITY or FITNESS FOR *
'* A PARTICULAR PURPOSE. See the GNU General Public *
'* License for more details. *
'* *
'* You should have received a copy of the GNU General *
'* Public License along with MSQuant; if not, write to *
'* the Free Software Foundation, Inc., 59 Temple *
'* Place, Suite 330, Boston, MA 02111-1307 USA *
'* *
'* Purpose: sub-class to SDUPspectrumMarking. But it seems to be *
'* defunc at this time. What is this class for? Reason: we use *
'* the overlay subclass (overlaySpectrumMarking) even *
'* in ZedGraph plots. We have not yet implemented the *
'* marking (e.g. a, b and y ion MCR markers) natively *
'* in ZedGraph (it may or may not be possible). *
'* *
'****************************************************************************
'****************************************************************************
'* CEBI *
'* Software Development Group *
'* Peter Mortensen *
'* E-mail: NUKESPAMMERSdrmortensen@get2netZZZZZZ.dk *
'* WWW: http://www.cebi.sdu.dk/ *
'* *
'* Program for post-processing of result from search in mass *
'* spectrometric data. *
'* *
'* FILENAME: ZedGraphSpectrumMarking.vb *
'* TYPE: VISUAL_BASIC *
'* *
'* CREATED: PM 2007-09-01 Vrs 1.0. Estimated date. *
'* UPDATED: PM 2008-xx-xx *
'* *
'****************************************************************************
Option Strict On
Option Explicit On
Imports massSpectrometryBase 'For fragmentExStructure.
Public Class ZedGraphSpectrumMarking
Inherits SDUPspectrumMarking
'Changed PM_SPECTRUMDISPLAY_ZEDGRAPH 2007-09-25
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Overrides Sub newXaxisPosition(ByVal aNewPixelXvalue As Integer)
'Later (or it may not be needed to react on this
'message, depending on the implementation).
'We never expect this to happen.
Trace.Assert(False, "Stop!", _
"PIL ASSERT. Internal/development assert for stopping execution......")
End Sub 'newXaxisPosition
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Overrides Sub addIonMarker( _
ByVal anIon As fragmentExStructure, _
ByVal aMCRdelta As Double, _
ByVal aToken As Integer)
'Later...
End Sub 'addIonMarker
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Overrides Sub lastMarkerAdded(ByVal aHighestX As Double)
'Nothing for now..
End Sub 'lastMarkerAdded
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Overrides Sub addMarker2( _
ByRef anInMarker As markerStructure, _
ByVal anInBaseLineLength As Integer, _
ByVal anInHighlight As Boolean, _
ByVal anOverrideColour As Color, _
ByVal anInLabelDirection As labelDirectionEnum, _
ByVal anInYpixelOffset As Integer, _
ByVal anYdisplayLevel As Integer)
'Is it possible to honour anInLabelDirection?
'
'anInYpixelOffset should be ignored (?).
Trace.Assert(False, "Stop!", _
"PIL ASSERT. Internal/development assert for stopping execution......")
End Sub 'addMarker
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Overrides Sub highLightMarker(ByVal aTag As Integer)
'Later...
End Sub 'highLightMarker
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Overrides Sub clearMarkers()
Trace.Assert(False, "Stop!", _
"PIL ASSERT. Internal/development assert for stopping execution......")
End Sub 'clearMarkers
'Changed PM_ZOOM_MARKERS 2004-06-17
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Overrides Sub updateMarkersPosition()
Trace.Assert(False, "Stop!", _
"PIL ASSERT. Internal/development assert for stopping execution......")
End Sub 'updateMarkersPosition
End Class 'ZedGraphSpectrumMarking
Generated by script codePublish.pl at 2009-01-05T15:20:59.