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

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

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

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

Как напечатать изображение

Советы » Принтеры и Печать » Как напечатать изображение

Используйте приведенный код. И не забудьте включить Printers в список используемых модулей:

Строки, на которые вы должны обратить внимание, справа содержат комментарий // **. Данный код осуществляет корректное масштабирование изображения, в противном случае при печати вы можете получить небольшую иконку. Разрешение принтера больше, чем разрешение вашего дисплея.

procedure

AngleTextOut(CV: TCanvas; const

sText: string

; x, y, angle: integer); var

LogFont: TLogFont; SaveFont: TFont; procedure

TForm1.Button1Click(Sender: TObject); var

ScaleX, ScaleY: Integer; R: TRect; begin

Printer.BeginDoc; // ** with

Printer do

try

ScaleX := GetDeviceCaps(Handle, logPixelsX) div

PixelsPerInch; ScaleY := GetDeviceCaps(Handle, logPixelsY) div

PixelsPerInch; R := Rect(0, 0, Image1.Picture.Width * ScaleX, Image1.Picture.Height * ScaleY); Canvas.StretchDraw(R, Image1.Picture.Graphic); // ** finally

EndDoc; // ** end

; end

;

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

Категории

Статьи

Советы

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