Рубрика: Графика на Delphi
В некоторых случаях для получения идентификатора иконки курсора достаточно вызвать функцию WinApi GetCursor. Но в случае когда курсор находится не над окном нашей программы, сначала нужно подключиться к процессу-родителю окна,…
В Delphi в VCL для основных цветов используются константы, построенные по принципу cl + наименование цвета по английски. Например – clRed, clBlue, clGreen и т.п. Иногда может возникнуть необходимость сопоставлять эти константы…
Когда нужно работать с цветами, то часто требуется знать составляющие Красного цвета (Red), Зеленого (Green)…
Для преобразования изображений из формата JPEG в формат BitMap можно воспользоваться модулем JPEG. Ниже приведена…
Функция GetScreenPixel возвращает цвет пикселя на экране с координатами x и y. При помощи этой функции можно сделать, например, программу для определения цвета под курсором мыши или программу для подбора цвета. function…
Эта функция на Дельфи возвращает растровое изображение экрана (ScreenShot): //делает копию экрана function ScreenCopy: TBitmap; var DC: HDC; ABitmap: TBitmap; begin // дескриптор дисплейного контекста устройства для Рабочего стола DC := GetDC(GetDesktopWindow);…
Эта функция на Delphi возвращает растровое изображение экрана (ScreenShot), вместе с изображением курсора. В этой функции на Delphi используются другие функции из нашего Delphi FAQ: ScreenCopy и GetCursorInfoWithIcon. //делает копию экрана с курсором function ScreenCopyWithCursor: TBitmap;…
При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате GIF: procedure GetGIFSize(const sGIFFile:String; var wWidth, wHeight: Word); type TGIFHeader = record Sig: array[0..5] of…
Данная процедура на Delphi позволяет попиксельно нарисовать круг (точнее окружность) на заданной канве: Procedure DrawCircle(CenterX,…
При помощи данной процедуры на 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 При…
При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате…