Pixel in Millimiter umrechnen mit dieser Funktion ?

[himitsu]

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