na du übergibst der Funktion dein Canvas (worauf zu zeichen willst),
bekommst die Pixel pro Millimeter zurück und verrechnest diese dann mit der Größe deines Bildes.
Delphi-Quellcode:
Var X, Y: Single;
PixelsPerMM(Canvas, X, Y);
MMWidth := Bild.Witdh / X;
MMHeight := Bild.Height / Y;
PS: mit
SetMapMode könntest du auch z.B. dein Drucker-Canvas so umschalten, daß die Pixel "Millimetern" entsprechen
Delphi-Quellcode:
SetMapMode(Printer.Canvas.Handle, Modus);
// Modus = MM_HIMETRIC // 1 Pixel = 0.01 Millimeter
// MM_LOMETRIC // 1 Pixel = 0.1 Millimeter
[edit] / und nicht *
[add] @Luckie: schneller
