Como converter Mil�metros para Pixels e Vice-versa.

Question

Algu�m sabe alguma fun��o para converter Mil�metros em Pixels ? Supondo que um usu�rio informe um valor em Mil�metros, como fa�o para convert�-lo para

Massuda · Answer

Assumindo que voc� tem acesso ao Canvas onde est�o os pixels, uma fun��o gen�rica de converter milimetros para pixels seria:

function MilimetrosParaPixels(ACanvas: TCanvas; Milimetros: Double): Integer;
begin
  Result := Round(GetDeviceCaps(ACanvas.Handle, LOGPIXELSX) * Milimetros / 25.4);
end;

Se os pixels est�o num form, esta fun��o � mais simples:

function TSeuForm.MilimetrosParaPixels(Milimetros: Double): Integer;
begin
  Result := Round(PixelsPerInch * Milimetros / 25.4);
end;