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 с …
Read More «Программирование на 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; С …
Read More «Программирование на 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); …
Read More «Программирование на Delphi и не только Как перевернуть картинку? | Программирование на Delphi и не только»