Convert bitmap to grayscale

[imagenetics]

A bitmap in TImage. How to smoothly covert this bitmap to grayscale to achive the same effect like in Windows XP when you call a Shutdown system/Logoff user dialog?

 

[markymsofth]

so keeping explanation simple im guessing your fading into greyscale as i dont use xp so therefore dont know what your on about

grayscale
r= r+g+b/3
g= r+g+b/3
b= r+g+b/3

repeat until r=g=b

if (r>g) {r--;g++;}
if (b>g) {b--;g++;}
if (r<g) {r++;g--;}
if (b<g) {b++;g--;}


obviously r g b are the pixel intensites for the bitmap.