تنظیم اندازه Lable به میلی متر

[aradsystem]

دوستان سلام.

من در حال نوشتن یه برنامه چک پرینت هستم. برای پیش نمایش اندازه ها روی فرم یه QReport قرار دادم. سوال اول اینکه چطوری کاربر طول و عرض QReport رو خودش تنظیم کنه. و دوم اینکه فاصله های Label از حاشیه ها رو که کاربر وارد می کنه چطوری به میلی متر یعنی اندازه واقعی تبدیل کنم؟

با تشکر فراوان.

[tdkhakpur]

سلام
داخل پراپرتی Qreport یک آپشن به اسم page داره که میتوانید مستقیم یا غیر مستقیم کارهای شما را حل کند.

[aradsystem]

دوستان من این کد رو پیدا کردم. حالا چطوری ازش استفاده کنم؟ یعنی می خواهم فاصله از بالا و چپ یه لیبل روی فرم به میلی متر تنظیم بشه.


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;

[aradsystem]

دوستان راهنمایی می فرمایید؟