Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Получить размер бумаги в миллиметрах

Советы » Принтеры и Печать » Получить размер бумаги в миллиметрах

uses

printers; procedure

TForm1.Button1Click(Sender: TObject); var

papermmx, papermmy: Extended; begin

Printer.BeginDoc; { PHYSICALWIDTH = Dots horizontal of the paper LOGPIXELSX = DPI (Dots per Inch) 25.4 = To calculte Inch to Millimeter } papermmx := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALWIDTH) / GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX) * 25.4; papermmy := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALHEIGHT) / GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY) * 25.4; with

Printer.Canvas do

begin

TextOut(200, 100, floattostr(papermmx) + ' mm x ' + floattostr(papermmy) + ' mm'); end

; Printer.EndDoc; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com