Преобразовать RGB в COLORREF (BGR)

Советы » Цвета и Палитра » Преобразовать RGB в COLORREF (BGR)

function

RGB2BGR(R, G, B: Byte): COLORREF; overload; begin

Result := (Integer(B) shl

16) + (Integer(G) shl

8) + R; end

; function

RGB2BGR(RGB: Integer): COLORREF; overload; var

R, G, B: Integer; begin

R := RGB div

$10000; G := ((RGB mod

$10000) div

$100) shl

8; B := (RGB mod

$100) shl

16; Result := B + G + R; end

;

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

Категории

Статьи

Советы

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