Порог между двумя цветами на 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;