Delphi İçin Daha Fazla RBG Renk Değeri Nasıl Alınır

İçinde Delphi, TColor türü bir nesnenin rengini belirtir. Birçok bileşenin renk özelliği ve renk değerlerini belirten diğer özellikler tarafından kullanılır.

Grafik birimi, TColor için yararlı sabitlerin tanımlarını içerir. Örneğin, clBlue mavi ile, clRed kırmızı ile eşlenir.

Daha fazla "CL" Değeri = Daha Fazla Renk

TColor'u 4 bayt olarak belirtebilirsiniz onaltılı sayı Grafik biriminde tanımlanan sabitleri kullanmak yerine. Düşük üç bayt sırasıyla mavi, yeşil ve kırmızı için RGB (kırmızı, yeşil, mavi) renk yoğunluklarını temsil eder. Tipik bir altıgen renkteki tersine dikkat edin: TColor için, dizi mavi-yeşil-kırmızıdır.

Örneğin, kırmızı TColor ($ 0000FF) olarak tanımlanabilir.

RBG birimini TColor birimine dönüştür

Kırmızı, yeşil ve mavi yoğunlukları için değerleriniz varsa (0 - 255 - "bayt" türü arasında bir sayı), TColor değerini şu şekilde alabilirsiniz:

var r, g, b: Bayt; renk: TColor; başla r: = StrToInt (ledRed. Metin); g: = StrToInt (ledGreen. Metin); b: = StrToInt (ledBlue. Metin); renk: = RGB (r, g, b); Shape1.Brush. Renk: = renk; son; 
instagram viewer

"LedRed", "ledGreen" ve "ledBlue", her renk bileşeninin yoğunluğunu belirtmek için kullanılan üç düzenleme denetimidir. Shape1 bir TShape Delphi kontrolüdür.

Delphi ipuçları navigasyon:
»Delphi TAB Ayrılmış Dosyaları Ayrıştırma
«IsDirectoryEmpty - Bir Dizinin Boş olup olmadığını belirlemek için Delphi işlevi (dosya yok, alt klasör yok)