Millimeters/Centimeters To Pixel

#cs
UDF by James1337
Functions: _MillimetersToPixel, _CentimetersToPixel, _PixelToMillimeters, _PixelToCentimeters
#ce

Func _MillimetersToPixel($Millimeters)
    Local $DC = DllCall("user32.dll", "long", "GetDC", "long", 0)
    Local $DeviceCaps = DllCall("gdi32.dll", "long", "GetDeviceCaps", "long", $DC[0], "long", 90)
    Local $DC = DllCall("user32.dll", "long", "ReleaseDC", "long", 0, "long", $DC)
    Local $DPI = $DeviceCaps[0]
    Local $Centimeters = $Millimeters * 10
    Return $Centimeters * $DPI / 2.54
EndFunc

Func _CentimetersToPixel($Centimeters)
    Local $DC = DllCall("user32.dll", "long", "GetDC", "long", 0)
    Local $DeviceCaps = DllCall("gdi32.dll", "long", "GetDeviceCaps", "long", $DC[0], "long", 90)
    Local $DC = DllCall("user32.dll", "long", "ReleaseDC", "long", 0, "long", $DC)
    Local $DPI = $DeviceCaps[0]
    Return $Centimeters * $DPI / 2.54
EndFunc

Func _PixelToMillimeters($Pixel)
    Local $DC = DllCall("user32.dll", "long", "GetDC", "long", 0)
    Local $DeviceCaps = DllCall("gdi32.dll", "long", "GetDeviceCaps", "long", $DC[0], "long", 90)
    Local $DC = DllCall("user32.dll", "long", "ReleaseDC", "long", 0, "long", $DC)
    Local $DPI = $DeviceCaps[0]
    Return $Pixel / $DPI * 0.254
EndFunc

Func _PixelToCentimeters($Pixel)
    Local $DC = DllCall("user32.dll", "long", "GetDC", "long", 0)
    Local $DeviceCaps = DllCall("gdi32.dll", "long", "GetDeviceCaps", "long", $DC[0], "long", 90)
    Local $DC = DllCall("user32.dll", "long", "ReleaseDC", "long", 0, "long", $DC)
    Local $DPI = $DeviceCaps[0]
    Return $Pixel / $DPI * 2.54
EndFunc