мои проги

[Циничная сволочь]

ibitsa, жалко, что ты не учитывал "горячие клавиши" в "рисовалке", к которым все привыкли, а это <Ctrl>+<Z> и <Ctrl>+<Y> и многие другие. И ещё хорошо бы прикрутить процедуру выхода из формы с предложением сохранить файл. Фильтры сам писал или надыбал где?

Понравилось то, что при сохранении можно регулировать уровень сжатия. Молодец!

P.S. С кодировкой по-прежнему беда.
Картинка

[ibitsa]

Сообщение от 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. С кодировкой по-прежнему беда.

Насчёт кодировки - ещё никто не жаловался.
Почему у тебя выводятся каракули не пойму.