При помощи данной процедуры на Delphi можно инвертировать изображение, хранящееся в Bitmap:
procedure InvertBitmap(Bitmap:TBitmap);
begin
Bitmap.Canvas.CopyMode := cmDstInvert;
Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, Bitmap.Canvas, Bitmap.Canvas.ClipRect);
Bitmap.Canvas.CopyMode := cmSrcCopy;
end;
Ссылки в тему:
Как инвертировать изображение? (способ 2)
Сейчас свой сайт — это уже не роскошь, а зачастую источник заказов. Но чтобы клиенты заходили на сайт, он должен быть на высоких позициях в поисковых системах. Вот тут уже нужно обращаться к профессионалам, например — раскрутка сайта в Харькове — продвиньте свой сайт в топ.