procedure EdBackColor(FontC: TColor; var EditableColor,
ReadOnlyColor: TColor);
// Calculate the luminance of the color using the simplified formula // luminance = 0.25*red + 0.625*green + 0.125*blue // If greater than 0.5, use a dark background var
R, G, B: Integer;
begin
R := GetRValue(FontC) * 2;
G := GetGValue(FontC) * 5;
B := GetBValue(FontC);
if R + G + B < 1024 thenbegin
EditableColor := clWhite;
ReadOnlyColor := clSilver;
endelsebegin
EditableColor := clBlack;
ReadOnlyColor := clDkGray;
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получить цвет обратный указанному", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!