Mega Code Archive

 

Categories / Delphi / Graphic

 

Rengin negatifini almak - fu

// 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;