PaintGamma Property

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing 
Imports Leadtools.ImageProcessing.Core 
Imports Leadtools.ImageProcessing.Color 
Imports Leadtools.Controls 
Imports Leadtools.Dicom 
Imports Leadtools.Drawing 
Imports Leadtools.Svg 
 
Public Sub IntensityExample() 
   Dim f As IntensityForm = New IntensityForm() 
   f.ShowDialog() 
End Sub 
 
Private Class IntensityForm : Inherits Form 
   Private viewer As ImageViewer 
   Private gammaTrackBar As TrackBar 
   Private contrastTrackBar As TrackBar 
   Private intensityTrackBar As TrackBar 
 
   Public Sub New() 
      ' Create the controls 
      Size = New Size(800, 600) 
      Dim controlsPanel As Panel = New Panel() 
      controlsPanel.Size = New Size(400, 0) 
      controlsPanel.BorderStyle = BorderStyle.Fixed3D 
      controlsPanel.Dock = DockStyle.Left 
 
      Dim labelLeft As Integer = 8 
      Dim y As Integer = 16 
      Dim trackBarLeft As Integer = 100 
 
      Dim gammaLabel As Label = New Label() 
      gammaLabel.Text = "Gamma:" 
      gammaLabel.Location = New Point(labelLeft, y) 
      gammaLabel.AutoSize = True 
      controlsPanel.Controls.Add(gammaLabel) 
 
      gammaTrackBar = New TrackBar() 
      gammaTrackBar.Minimum = 1 
      gammaTrackBar.Maximum = 100 
      gammaTrackBar.TickFrequency = (gammaTrackBar.Maximum - gammaTrackBar.Minimum) \ 10 
      gammaTrackBar.Location = New Point(trackBarLeft, y) 
      gammaTrackBar.Width = 200 
      AddHandler gammaTrackBar.Scroll, AddressOf gammaTrackBar_Scroll 
      controlsPanel.Controls.Add(gammaTrackBar) 
      gammaLabel.Top = gammaTrackBar.Top + (gammaTrackBar.Height - gammaLabel.Height) \ 2 
      y = gammaTrackBar.Bottom + 8 
 
      Dim contrastLabel As Label = New Label() 
      contrastLabel.Text = "Contrast:" 
      contrastLabel.Location = New Point(labelLeft, y) 
      contrastLabel.AutoSize = True 
      controlsPanel.Controls.Add(contrastLabel) 
 
      contrastTrackBar = New TrackBar() 
      contrastTrackBar.Minimum = -1000 
      contrastTrackBar.Maximum = 1000 
      contrastTrackBar.TickFrequency = (contrastTrackBar.Maximum - contrastTrackBar.Minimum) \ 10 
      contrastTrackBar.Location = New Point(trackBarLeft, y) 
      contrastTrackBar.Width = 200 
      AddHandler contrastTrackBar.Scroll, AddressOf contrastTrackBar_Scroll 
      controlsPanel.Controls.Add(contrastTrackBar) 
      contrastLabel.Top = contrastTrackBar.Top + (contrastTrackBar.Height - contrastLabel.Height) \ 2 
      y = contrastTrackBar.Bottom + 8 
 
      Dim intensityLabel As Label = New Label() 
      intensityLabel.Text = "Intensity:" 
      intensityLabel.Location = New Point(labelLeft, y) 
      intensityLabel.AutoSize = True 
      controlsPanel.Controls.Add(intensityLabel) 
      y = intensityLabel.Bottom + 8 
 
      intensityTrackBar = New TrackBar() 
      intensityTrackBar.Minimum = -1000 
      intensityTrackBar.Maximum = 1000 
      intensityTrackBar.TickFrequency = (intensityTrackBar.Maximum - intensityTrackBar.Minimum) \ 10 
      intensityTrackBar.Location = New Point(trackBarLeft, y) 
      intensityTrackBar.Width = 200 
      AddHandler intensityTrackBar.Scroll, AddressOf intensityTrackBar_Scroll 
      controlsPanel.Controls.Add(intensityTrackBar) 
      intensityLabel.Top = intensityTrackBar.Top + (intensityTrackBar.Height - intensityLabel.Height) \ 2 
      y = intensityTrackBar.Bottom + 8 
 
      Dim defaultButton As Button = New Button() 
      defaultButton.Text = "Default" 
      defaultButton.Location = New Point(labelLeft, y) 
      AddHandler defaultButton.Click, AddressOf defaultButton_Click 
      controlsPanel.Controls.Add(defaultButton) 
 
      Controls.Add(controlsPanel) 
 
      viewer = New ImageViewer() 
      viewer.Dock = DockStyle.Fill 
      Controls.Add(viewer) 
      viewer.BringToFront() 
 
      ' Load the image 
      Using codecs As RasterCodecs = New RasterCodecs() 
 
         Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp") 
         viewer.Image = codecs.Load(srcFileName) 
 
      End Using 
 
      gammaTrackBar.Value = viewer.Image.PaintGamma 
      contrastTrackBar.Value = viewer.Image.PaintContrast 
      intensityTrackBar.Value = viewer.Image.PaintIntensity 
      UpdateValues() 
   End Sub 
 
   Private Sub UpdateValues() 
      Dim str As String = String.Format("Gamma = {0}, Contrast = {1}, Intensity = {2}", viewer.Image.PaintGamma, viewer.Image.PaintContrast, viewer.Image.PaintIntensity) 
      Text = str 
   End Sub 
 
   Private Sub gammaTrackBar_Scroll(ByVal sender As Object, ByVal e As EventArgs) 
      Dim tb As TrackBar = CType(IIf(TypeOf sender Is TrackBar, sender, Nothing), TrackBar) 
      viewer.Image.PaintGamma = tb.Value 
      UpdateValues() 
   End Sub 
 
   Private Sub contrastTrackBar_Scroll(ByVal sender As Object, ByVal e As EventArgs) 
      Dim tb As TrackBar = CType(IIf(TypeOf sender Is TrackBar, sender, Nothing), TrackBar) 
      viewer.Image.PaintContrast = tb.Value 
      UpdateValues() 
   End Sub 
 
   Private Sub intensityTrackBar_Scroll(ByVal sender As Object, ByVal e As EventArgs) 
      Dim tb As TrackBar = CType(IIf(TypeOf sender Is TrackBar, sender, Nothing), TrackBar) 
      viewer.Image.PaintIntensity = tb.Value 
      UpdateValues() 
   End Sub 
 
   Private Sub defaultButton_Click(ByVal sender As Object, ByVal e As EventArgs) 
      viewer.Image.PaintGamma = 100 
      viewer.Image.PaintIntensity = 0 
      viewer.Image.PaintContrast = 0 
 
      gammaTrackBar.Value = viewer.Image.PaintGamma 
      contrastTrackBar.Value = viewer.Image.PaintContrast 
      intensityTrackBar.Value = viewer.Image.PaintIntensity 
 
      UpdateValues() 
   End Sub 
End Class 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\LEADTOOLS21\Resources\Images" 
End Class