Important!!!

[cimnik2999]

How do i calculate TwipsPerPixlesX and Y? (a counterpart to the VB function would be nice)...

Thanxs

 

[footpad]

cimnik2999,

How about something along these lines?

function TwipsPerPixelX(Canvas : TCanvas) : Extended;
begin
  result :=  440 / GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
end;

function TwipsPerPixelY(Canvas : TCanvas) : Extended;
begin
  result :=  440 / GetDeviceCaps(Canvas.Handle, LOGPIXELSY);
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage( FloatToStr(TwipsPerPixelX(Form.Canvas)));
  ShowMessage( FloatToStr(TwipsPerPixelY(Form.Canvas)));
end;

Hope this helps...

-- Lance

 

[cimnik2999]

but what about for the screen?
whats the screen's handle or would the above code posted still work accuratly?

 

[LPlates]

First of all, name your questions properly, not.. IMPORTANT!!!
You can use some API to get the screen handle

hwnd = GetDesktopWindow(); // Get desktop handle

 

[footpad]

cimnik2999,

Since these functions need a canvas, you should be able to call them with something along these lines:

   extX := TwipsPerPixelX( Screen.ActiveForm.Canvas )
   extY := TwipsPerPixelY( Screen.ActiveForm.Canvas )

Assuming that extX and extY are Extended variables, this should give you the values appropriate for the form that currently has focus on the screen.

Hope this helps...

-- Lance