Порог между двумя цветами на Bitmap

Советы » Bitmap » Порог между двумя цветами на Bitmap

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Порог между двумя цветами на Bitmap
Bitmap преобразуется в двухцветное изображение.


Зависимости: Graphics
Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright:   Собственное написание (Николай федоровских) Дата:        1 июня 2002 г.

***************************************************** }
procedure

Threshold(Bitmap: TBitmap; Value: Byte; Color1, Color2: TColor); type


  TRGB = record

    B, G, R: Byte;   end

;
  pRGB = ^TRGB;

  function

ColorToRGB(Color: TColor): TRGB;   begin


    with

Result do

    begin

      R := Lo(Color);       G := Lo(Color shr

8);       B := Lo((Color shr

8) shr

8);     end

;   end

;

var


  x, y: Word;
  C1, C2: TRGB;
  Dest: pRGB;
begin


  Bitmap.PixelFormat := pf24Bit;  

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com