Convertir une distance sur votre écran, de pixels en millimètres.
Contenu du snippet
function Mesurer(PixDist:Double):Double; //PixDist est une mesure en pixels.
var DC : HDC;
begin
DC := GetWindowDc(0); //Obtenir contexte graphique de l'écran
Result := PixDist * GetDeviceCaps(DC,HORZSIZE) / GetDeviceCaps(DC,HORZRES)
end;
{Exemple d'utilisation.}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text :=
FormatFloat('####.##" mm."',Mesurer(Image1.Height)) + ' x '
+ FormatFloat('####.##" mm."',Mesurer(Image1.Width))
// Renverra, par exemple : 79,72 mm. x 64,63 mm.
end;
Compatibilité : Delphi 5
Disponible dans d'autres langages :
A voir également
- Convertir une distance sur votre écran, de pixels en millimètres.
- Convertir tiff en png ✓ - Forum C# / .NET
- Convertir string en int c# ✓ - Forum C# / .NET
- Mm to pixels ✓ - Forum VB.NET
- Fond ecran simple - Forum Visual Basic
- Convertir jours en années mois jours ✓ - Forum VB.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.