[Molas]

'TCount' wrote:

Например, можно создать процедуру вроде:

procedure Make_BMP(var BMP: TBitmap;const H: integer=500;const S: integer=500;const B: integer=500);

begin

BMP.PixelFormat:=pf32bit;

if H<>500 then ChangeBitmapPixels(BMP,ChangeColorHUE,H,clFuchsia);

if S<>500 then ChangeBitmapPixels(BMP,ChangeColorSaturation,S,clFuchsia);

if B<>500 then ChangeBitmapPixels(BMP,ChangeColorBrightness,B,clFuchsia);

end;

И использовать так:

Make_BMP(Bitmap,50);//смещение цвета

Make_BMP(Bitmap,0,50);//насыщенность

Make_BMP(Bitmap,0,0,50);//яркость

Или все сразу:

Make_BMP(Bitmap,50,50,50);

Спасибо большое, я тут разобрался уже, а вы быстро отозвались.

Просто пробывал делать так

ChangeBitmapPixels(BMP,ChangeColorHUE(D),H,clFuchsia); из-за этого была проблема.

[Molas]

'TCount' wrote:

Теперь есть одна функция ChangeBitmapPixels.

К примеру:

ChangeBitmapPixels(Bitmap,ChangeColorHUE,Value,clFuchsia);

ChangeBitmapPixels(Bitmap,ChangeColorSaturation,Value,clFuchsia);

ChangeBitmapPixels(Bitamp,ChangeColorBrightness,Value,clFuchsia);

А можно примерное использование этих функций.ChangeBitmapPixels(Bitmap,ChangeColorHUE,Value,clFuchsia); особенно ChangeColorHUE

[Author]

Posts