// Tolga Çakıroğlu - ( For User 2003-2004 )Function NegatifRenk( Renk: tcolor ): tcolor;var R , G , B : byte;Begin R:= GetRValue( Renk ); G:= GetGValue( Renk ); B:= GetBValue( Renk ); Result:= R + (G shl 8) + (B shl 16);End;