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:
|
|
|
|