Não é o peixe, mas pega a vara aí.
Vc pode transformar uma cor em grayscale da seguinte forma:
function CorToCinza(Cor: TColor): TColor;
var
R,G,B : Byte;
C: Longint;
begin
C := ColorToRGB(Value);
R := C;
G := C shr 8;
B := C shr 16;
c := Trunc(R * 0.56 + G * 0.33 + B * 0.11);
Res
Pessoal:
Há alguns anos, encontrei na Internet um programinha
que, a partir de um pequeno bitmap colorido, gerava
uma imagem igual, mas "desabilitada" (em tons de cinza),
para ser usada, por exemplo, em SpeedButtons ou BitBtns,
aparecendo quando a propriedade Enabled está como False.
Alguém sabe
2 matches
Mail list logo
