GetDisplayedClippedImageRectangle Method (MedicalViewerCell)

'Declaration
 
Public Function GetDisplayedClippedImageRectangle() As Rectangle

Public Sub GetDisplayedClippedImageRectangle()
         Dim form As GetDispalyedClippedImageRectangleMainForm = New GetDispalyedClippedImageRectangleMainForm()
         form.ShowDialog()
     End Sub

     ' GetDispalyedClippedImageRectangleMainForm will be the owner of the medical viewer control.
     Private Class GetDispalyedClippedImageRectangleMainForm : Inherits Form
         Public _medicalViewer As MedicalViewer

         Private Sub MedicalViewerForm_SizeChanged(ByVal sender As Object, ByVal e As EventArgs)
             _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom)
         End Sub

         Public Sub New()
             Dim _codecs As RasterCodecs = New RasterCodecs()
             Dim _image As RasterImage

             ' Create the medical viewer and adjust some properties.
             _medicalViewer = New MedicalViewer()
             _medicalViewer.Rows = 2
             _medicalViewer.Columns = 1
             _medicalViewer.Location = New Point(0, 0)
             _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom)

             ' Load an image and then add it to the control.
             _image = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "image2.cmp"))

             Dim cell As MedicalViewerMultiCell = New MedicalViewerMultiCell(_image, True, 1, 1)

             ' add some actions that will be used to change the properties of the images inside the control.
             cell.AddAction(MedicalViewerActionType.Scale)
             cell.AddAction(MedicalViewerActionType.Offset)

             ' assign the added actions to a mouse button, meaning that when the user clicks and drags the mouse button, the associated action will be activated.
             cell.SetAction(MedicalViewerActionType.Offset, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active)
             cell.SetAction(MedicalViewerActionType.Scale, MedicalViewerMouseButtons.Middle, MedicalViewerActionFlags.Active)

             cell.SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.UserData)
             AddHandler cell.UIChanged, AddressOf Viewer_UIChanged

             _medicalViewer.Cells.Add(cell)

             Controls.Add(_medicalViewer)
             _medicalViewer.Dock = DockStyle.Fill
         End Sub

         Private Sub Viewer_UIChanged(ByVal sender As Object, ByVal e As MedicalViewerUIChangedEventArgs)
             Dim cell As MedicalViewerMultiCell = CType(sender, MedicalViewerMultiCell)
             If e.ActionType = MedicalViewerActionType.Offset OrElse e.ActionType = MedicalViewerActionType.Scale Then
                 Dim theClippedRectangle As Rectangle = cell.GetDisplayedClippedImageRectangle()
                 Dim ImageRectangle As Rectangle = cell.GetDisplayedImageRectangle()

                 Dim Ratio As Integer = (theClippedRectangle.Width * theClippedRectangle.Height) * 1000 \ (ImageRectangle.Width * ImageRectangle.Height)

                 Dim doubleRatio As Double = Ratio / 1000.0

                 Dim info As MedicalViewerTagInformation = New MedicalViewerTagInformation(1, MedicalViewerTagAlignment.BottomLeft, "Area of the image visible is " & (doubleRatio * 100).ToString() & "% of the whole image", MedicalViewerTagType.UserData)
                 _medicalViewer.Cells(e.CellIndex).EditTag(1, MedicalViewerTagAlignment.BottomLeft, info)
             End If
         End Sub
     End Class

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class