Рубрика: Графика на Delphi

Строковое представление цветов в VCL
В Delphi в VCL для основных цветов используются константы, построенные по принципу cl + наименование цвета по английски. Например — clRed, clBlue, clGreen и т.п. Иногда может возникнуть необходимость сопоставлять эти константы…

Как разбить цвет на RGB-составляющие?
Когда нужно работать с цветами, то часто требуется знать составляющие Красного цвета (Red), Зеленого (Green)…

Как преобразовать картинку JPEG в BMP?
Для преобразования изображений из формата JPEG в формат BitMap можно воспользоваться модулем JPEG. Ниже приведена…

Как узнать цвет точки в определенном месте экрана?
Функция GetScreenPixel возвращает цвет пикселя на экране с координатами x и y. При помощи этой функции можно сделать, например, программу для определения цвета под курсором мыши или программу для подбора цвета. function…

Как сделать копию экрана (ScreenShot)?
Эта функция на Дельфи возвращает растровое изображение экрана (ScreenShot): //делает копию экрана function ScreenCopy: TBitmap; var DC: HDC; ABitmap: TBitmap; begin // дескриптор дисплейного контекста устройства для Рабочего стола DC := GetDC(GetDesktopWindow);…

Как сделать ScreenShot вместе с изображением курсора?
Эта функция на Delphi возвращает растровое изображение экрана (ScreenShot), вместе с изображением курсора. В этой функции на Delphi используются другие функции из нашего Delphi FAQ: ScreenCopy и GetCursorInfoWithIcon. //делает копию экрана с курсором function ScreenCopyWithCursor: TBitmap;…

Как узнать размеры GIF-файла?
При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате GIF: procedure GetGIFSize(const sGIFFile:String; var wWidth, wHeight: Word); type TGIFHeader = record Sig: array[0..5] of…

Как попиксельно нарисовать круг?
Данная процедура на Delphi позволяет попиксельно нарисовать круг (точнее окружность) на заданной канве: Procedure DrawCircle(CenterX,…

Как узнать размеры PNG-файла?
При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате…

Как преобразовать цветное изображение в чёрно-белое?
Данная функция на Delphi преобразовывает цветное изображение в черно-белое(оттенки серого): function CreateGrayBmp (Source: TBitmap): TBitmap; var Table: array[Byte] of TRGBQuad; I: Integer; begin Result := TBitmap.Create; with Result do begin…

Как конвертировать цвет в оттенок серого?
Данная функция на Delphi позволяет преобразовать любой цвет в оттенок серого: function RgbToGray(Source: TColor): TColor; var Target: Byte; begin Target := Round((0.30 * GetRValue(Source)) + (0.59 * GetGValue(Source))+(0.11 * GetBValue(Source)));…

Как перевернуть картинку?
Данная функция на Delphi позволяет перевернуть изображение (повернуть картинку на 180 градусов): procedure FlipBitmapV(Bitmap: TBitmap); var X, Y: Integer; SrcRect, DstRect: TRect; begin X := Bitmap.Width; Y := Bitmap.Height; SrcRect…

Как инвертировать изображение?
Способ 1 При помощи данной процедуры на Delphi можно инвертировать изображение, хранящееся в Bitmap: procedure InvertBitmap(Bitmap:TBitmap); begin Bitmap.Canvas.CopyMode := cmDstInvert; Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, Bitmap.Canvas, Bitmap.Canvas.ClipRect); Bitmap.Canvas.CopyMode := cmSrcCopy; end; Способ 2 При…

Как узнать размеры JPG-файла?
При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате…