|
|
|
|
#1 | ||
|
Приятель
Регистрация: 19.01.2009
Адрес: НН Московский район
Пол: M
Провайдер: ВТ
Сообщений: 221
Поблагодарил: 725
Поблагодарили 575 раз в 141 сообщениях
Открыли хайд
:
0 в этом сообщении 1,419 Всего |
Цитата:
фильтры надёргал из интернета находятся они в -дополнительные функции/Foo3_Paint.pas {Рисование инструментом Спрей} procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor); {ЭФфект БЛОКИ} procedure Blocks(Bitmap: TBitmap; Hor, Ver, MaxOffset: Integer; BackColor: TColor); {Эффект Мозаика (пикселизация)} procedure PixelsEffect(Bitmap: TBitmap; Hor, Ver: Word); {Эффект Иней (разброс)} procedure Disorder(Bitmap: TBitmap; Hor, Ver: Integer; BackColor: TColor); {Эффект Волны (синусоидальные, вид сбоку)} procedure WaveSin(Bitmap: TBitmap; Frequency, Length: Integer; Hor: Boolean; BackColor: TColor); {Замена всех цветов на оттенки одного} procedure ModColors(Bitmap: TBitmap; Color: TColor); {добавляем шум} procedure AddNoise(Bitmap: TBitmap; Amount: Integer; Mono: Boolean); Цитата:
Насчёт кодировки - ещё никто не жаловался. Почему у тебя выводятся каракули не пойму.
|
||
|
|
|