ScalingChanged

betrifft

 

Der ScalingChanged-Event wird durch den Anwender ausgelöst, wenn dieser eine Strecke markiert hat.

 

Syntax

ScalingChanged(Ambient, PixelLength)

Rückgabewert

Kein

Parameter

Name

Typ

Übergabe

Beschreibung

Ambient

Ambient

ByVal

Umgebungsinformationen

PixelLength

Double

ByVal

Die Länge der markierten Strecke in Pixel

 

Der Skalierungsfaktor im Bild wird in der Einheit DIP (Inch per Pixel) eingetragen und muss dementsprechend umgerechnet werden (ScalingEquivalent ist die markierte Strecke in der realen Welt in der Einheit Unit):

 

Dim LenInch As Double

Switch Unit

Case 'm'

   LenInch := (ScalingEquivalent * 100) / 2.54

Case 'cm'

   LenInch := ScalingEquivalent / 2.54

Case 'mm'

   LenInch := (ScalingEquivalent / 10) / 2.54

Case 'inch'

   LenInch := ScalingEquivalent

End Switch

 

Img.BeginModify

If LenInch = 0 Then

   Img.DotsPerNaturalInch := 0

Else

   Img.DotsPerNaturalInch := PixelLength / LenInch

End If

Img.EndModify