Программирование на Delphi и не только Как конвертировать цвет в оттенок серого? | Программирование на Delphi и не только

Delphi FAQ >> Графика Данная функция на Delphi позволяет преобразовать любой цвет в оттенок серого: function RgbToGray(Source: TColor): TColor; var   Target: Byte; begin   Target := Round((0.30 * GetRValue(Source)) + (0.59 * GetGValue(Source))+(0.11 * GetBValue(Source)));   Result := RGB(Target, Target, Target); end; С распространением компьютеров стали популярны USB гаджеты — от простого светильника — до перчатоr с …

Программирование на Delphi и не только Зеркальное отображение изображения | Программирование на Delphi и не только

Delphi FAQ >> Графика Данная процедура на Delphi делает зеркальное отображение картинки по горизонтали: Procedure FlipBitmapH(Bitmap: TBitmap); var   X, Y: Integer;   SrcRect, DstRect: TRect; begin   X := Bitmap.Width;   Y := Bitmap.Height;   SrcRect := Rect(-1, -1, X, Y);   DstRect := Rect(X, -1, -1, Y);   Bitmap.Canvas.CopyRect(DstRect, Bitmap.Canvas, SrcRect); end; С …

Программирование на Delphi и не только Как перевернуть картинку? | Программирование на Delphi и не только

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