وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/٢٤

The code uses the API function GetDeviceCaps to get the metrics you need.

~~~~~~~~~~~~~~~~~~~~~~~~~
procedure PixelsPerMM(
canvas: TCanvas;
var x, y: single) ;
var
H:HDC;
hres,vres,
hsiz,vsiz:integer;
begin
H:=canvas.handle;
hres := GetDeviceCaps(H,HORZRES) ; {display width in pixels}
vres := GetDeviceCaps(H,VERTRES) ; {display height in pixels}
hsiz := GetDeviceCaps(H,HORZSIZE) ; {display width in mm}
vsiz := GetDeviceCaps(H,VERTSIZE) ; {display height in mm}
x := hres/hsiz;
y := vres/vsiz;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Now, to actually convert an amount of pixels, let's say 468, to milimeters, use the next steps:

1. First, call the conversion function only once to get the pixel per milimeter ration for the required device (Screen, Printer, ...)

2. Next, transform an amount of pixels to millimeteres, depending on the orientation (horizontal, vertical)

~~~~~~~~~~~~~~~~~~~~~~~~~
var
cx, cy : single;
mmx, mmy : integer;
begin
PixelsPerInch(Handle,cx,cy) ;

mmx := Trunc(468 / PixelsInMM.y) ;
mmy := Trunc(60 / PixelsInMM.y) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :