![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
#1
|
|||
|
|||
Calcular DOTS
Necesito calcular cuantos DOTs hay en 20 mm. ¿Alguien sabe la relacion?
Gracias. |
#2
|
||||
|
||||
Mira a ver si este ejemplo adaptándolo te sirve:
Código:
function GetPixelsPerInchX: Integer; begin Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX) end; function GetPixelsPerInchY: Integer; begin Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY) end; procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := 'La resolución de la Impresora es:'+Format('x: %d y: %d DPI (puntos por pulgada)', [GetPixelsPerInchX, GetPixelsPerInchY]); end; Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
![]() |
![]() |
|
|
![]() |
|