Цитата:
Сообщение от Nameless user
ibitsa, жалко, что ты не учитывал "горячие клавиши" в "рисовалке"
|
Спасибо, учту
Цитата:
Сообщение от Nameless user
Фильтры сам писал или надыбал где?
|
фильтры надёргал из интернета
находятся они в -дополнительные функции/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);
Цитата:
Сообщение от Nameless user
Понравилось то, что при сохранении можно регулировать уровень сжатия. Молодец!
|
Сам себе нравлюсь
Цитата:
Сообщение от Nameless user
P.S. С кодировкой по-прежнему беда.
|
Насчёт кодировки - ещё никто не жаловался.
Почему у тебя выводятся каракули не пойму.