Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
usesPrinters; 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
Caption := Format('x: %d y: %d DPI (dots per inch)', [GetPixelsPerInchX, GetPixelsPerInchY]); end
;