Преобразовать RGB в TColor и наоборот

Советы » Цвета и Палитра » Преобразовать RGB в TColor и наоборот

// RGB to TColor Values
procedure

TForm1.Button1Click(Sender: TObject); begin

Edit1.Color := RGB(58, 110, 165); end

; // TColor to RGB values procedure

TForm1.Button2Click(Sender: TObject); var

Color: Longint; r, g, b: Byte; begin

Color := ColorToRGB(Edit1.Color); r := Color; g := Color shr

8; b := Color shr

16; label1.Caption := ' Red : ' + IntToStr(r) + ' Green: ' + IntToStr(g) + ' Blue : ' + IntToStr(b); end

;

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

Категории

Статьи

Советы

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