Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Изображения, рисование


Добавить код в данный раздел
 Общий алгоритм Брезенхема для четырехсвязной развертки отрезка

procedure line_4(x1,y1,x2,y2: Integer);

Прислал: JJ_Bat (Красноярск) ( 21 ноября 2007 г. )
Количество просмотров: 710


 Аналог PrintScreen (для сохранения изображения с экрана)

procedure PrintScreen(filename : String; scwidth,scheight : Integer);

Прислал: Egor ( 8 декабря 2005 г. )
Количество просмотров: 1835


 Отрисовка стрелки с заданными параметрами

procedure DrawArrow(X_Line, Y_Line, Length_Line, Length_Arrow: Integer;

Прислал: Александр ( 14 февраля 2004 г. )
Количество просмотров: 1727


 "Сквозь Вселенную" с дополнительными возможностями

unit Starfields

Прислал: Dimka Maslov (Санкт-Петербург) ( 1 августа 2003 г. )
Количество просмотров: 2330


 Изменение контрастности изображения

procedure Contrast(Bitmap: TBitmap; Value: Integer; Local: Boolean);

Прислал: Fenik (Новоуральск) ( 14 июля 2003 г. )
Количество просмотров: 2234


 Плавный переход одного цвета в другой

procedure DrawGradientRect

Прислал: Dimka Maslov (Санкт-Петербург) ( 11 июня 2003 г. )
Количество просмотров: 2421


 Процедура выводит на Canvas семисегментный индикатор, позволяя управлять включенными сегментами

procedure Display7Seg(segstr:string;x,y:integer;scale:extended;hndl:hdc);

Прислал: Pavel Manzharov (Москва) ( 25 февраля 2003 г. )
Количество просмотров: 2324


 Установка уровня прозрачности изображения

procedure BlendBitmap(Src, Dest: TBitmap; Amount: Byte; Left, Top: Integer; BackColor: TColor; Transparent: Boolean);

Прислал: Fenik (Новоуральск) ( 3 сентября 2002 г. )
Количество просмотров: 3172


 Зеркальное отражение изображения

procedure FlipBitmap(Bitmap: TBitmap; FlipHor: Boolean);

Прислал: Fenik (Новоуральск) ( 16 июля 2002 г. )
Количество просмотров: 2492


 Добавление шума в изображение

procedure AddNoise(Bitmap: TBitmap; Amount: Integer; Mono: Boolean);

Прислал: Fenik (Новоуральск) ( 5 июня 2002 г. )
Количество просмотров: 2503


 Изменение гаммы рисунка

procedure Gamma(Bitmap: TBitmap; L: Double);

Прислал: Fenik (Новоуральск) ( 5 июня 2002 г. )
Количество просмотров: 2482


 Смешивание цветов рисунка с другим цветом

procedure Mixer(Bitmap: TBitmap; Value: Byte; Color: TColor);

Прислал: Fenik (Новоуральск) ( 5 июня 2002 г. )
Количество просмотров: 2416


 Рисование звёзд и многоугольников

procedure DrawStar(Canvas: TCanvas; Center, Pos: TPoint; R2inPercent, Ends: Byte; DrawCircle: Boolean);

Прислал: Fenik (Новоуральск) ( 3 июня 2002 г. )
Количество просмотров: 2625


 Вращение изображения на заданный угол

procedure RotateBitmap(Bitmap: TBitmap; Angle: Double; BackColor: TColor);

Прислал: Fenik (Новоуральск) ( 2 июня 2002 г. )
Количество просмотров: 4220


 Наклон изображения по вертикали и горизонтали

procedure InclinationBitmap(Bitmap: TBitmap; Hor, Ver: Double; BackColor: TColor);

Прислал: Fenik (Новоуральск) ( 2 июня 2002 г. )
Количество просмотров: 2509


 Эффект 'Волны' (синусоидальные, вид сбоку)

procedure WaveSin(Bitmap: TBitmap; Frequency, Length: Integer; Hor: Boolean; BackColor: TColor);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2490


 Эффект 'Блоки'

procedure Blocks(Bitmap: TBitmap; Hor, Ver, MaxOffset: Integer; BackColor: TColor);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2200


 Эффект 'Иней' (разброс)

procedure Disorder(Bitmap: TBitmap; Hor, Ver: Integer; BackColor: TColor);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2401


 Замена всех цветов на оттенки одного

procedure ModColors(Bitmap: TBitmap; Color: TColor);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2451


 Эффект 'Мозаика' (пикселизация)

procedure PixelsEffect(Bitmap: TBitmap; Hor, Ver: Word);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2342


 Порог между двумя цветами на Bitmap

procedure Threshold(Bitmap: TBitmap; Value: Byte; Color1, Color2: TColor);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2433


 Инверсия всех цветов Bitmap

procedure InvertBitmap(Bitmap: TBitmap);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2251


 Вырезание эллиптической области на Bitmap

procedure EllipticBitmap(Bitmap: TBitmap; BackColor: TColor);

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2271


 Функция возвращает колличество уникальных цветов Bitmap

function HowManyColors(Bitmap: TBitmap): Integer;

Прислал: Fenik (Новоуральск) ( 1 июня 2002 г. )
Количество просмотров: 2379


 Функции для работы с объектом типа TImage

unit ImgTools;

Прислал: VID (Махачкала) ( 05 мая 2002 г. )
Количество просмотров: 4451




Добавить код в данный раздел

Наверх ▲