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

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

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

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

Захват части изображения

Советы » Изображения » Захват части изображения

Вот пример кода, позволящего с помощью TBitmap захватить часть изображения и сохранить его в файле. Я включил функцию копирования палитры, необходимой при работе в режиме 256 цветов.

function

CopyPalette(Palette: HPalette): HPalette; var

nEntries: integer; LogPalSize: integer; LogPalette: PLogPalette; begin

Result := 0; if

Palette = 0 then

exit; GetObject(Palette, sizeof(nEntries), @nEntries); if

nEntries < 1 then

exit; LogPalSize := sizeof(TLogPalette) + sizeof(TPaletteEntry) * (nEntries - 1); GetMem(LogPalette, LogPalSize); with

LogPalette^ do

try

palVersion := $300; palNumEntries := nEntries; GetPaletteEntries(Palette, 0, nEntries, palPalEntry[0]); Result := CreatePalette(LogPalette^); finally

FreeMem(LogPalette, LogPalSize); end

; end

; procedure

TForm1.Button1Click(Sender: TObject); var

Bitmap: TBitmap; begin

Bitmap := TBitmap.Create; try

Bitmap.Width := 50; Bitmap.Height := 40; Bitmap.Palette := CopyPalette(Image1.Picture.Bitmap.Palette); Bitmap.Canvas.CopyRect(Rect(0, 0, 50, 40), Image1.Picture.Bitmap.Canvas, Bounds(20, 10, 50, 40)); Bitmap.SaveToFile('c:windowstempjunk.bmp'); finally

Bitmap.Free; end

; end

;

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

Категории

Статьи

Советы

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