Mega Code Archive

 

Categories / Delphi / Graphic

 

Rengi parlatmak - fu

// Tolga Çakıroğlu - ( For User 2003-2004 ) Function Parlat( renk: tcolor; miktar: byte ): tcolor; var R , G , B : Word; begin R:= GetRValue( Renk ); Inc(R, miktar); G:= GetGValue( Renk ); Inc(G, miktar); B:= GetBValue( Renk ); Inc(B, miktar); if R>255 then R:= 255; if G>255 then G:= 255; if B>255 then B:= 255; Result:= R + (G shl 8) + (B shl 16); end;