McSCalibrationSetCalibrationMarker Method |
![]() |
Namespace: MediaCy.Addins.SCalibration
Public Sub SetCalibrationMarker ( Optional bShowDialog As Boolean = false, Optional ovl As McGraphOverlay = Nothing, Optional ByRef outSize As SizeF = Nothing, Optional ByRef outPos As Integer = 0, Optional im As McImage = Nothing )
Sub SetMarker() 'set scale bar parameters SCalibration.BackColor = -1 'transparent background SCalibration.TextColor = RGB(255, 255, 0) 'yellow text SCalibration.MarkerColor = RGB(255, 0, 0) 'ret scale bar SCalibration.TextSize = 26 SCalibration.MarkerLength = 100 SCalibration.MarkerPos = scmpBottomLeft 'set scale bar on the image SCalibration.SetCalibrationMarker 'place the scale bar End Sub