Screen Mate
Формат TIFF, Нужна помощь чтоб разобраться с TIFF
Изменение битности цвета..., как реализовать?
Анимация без мерцания, Timage с загруженными в них TPNGObject
Параметры фильмов, как определить?
выходит за пределы окна, проблемма с Канвой
Кадрирование изображения
Создание about как в Winamp'e
Использование DXF-файлов., Как убрать выдимость треугольников?
Писк в колонках? :), как sound в Turbo Paskal
SpeedButton
Помогите решить задачку !!!!!!, Задача в Делфи 7 по графике
OpenCV, OpenCV и Delphi, С++ НАФИГ!
TChart (недоразумения)
Преобразование с 2D графикой средствами чего?
Вывести многострочный текст, под углом
дисплей
Все что касаеться 3D графики в Длефи
Как Вы относитесь к курящим девушкам?
Инициализация OpenGL?, Delphi 4
Видеокамера, Хватаем изображение с видеокамеры
Проблема с MIDAS, Или я слепой, или я тупой
Извлечение данных из TBitmap
использование файлов .dxf в делфи
нужен компонент, delphi 5
TJvAVICapture - компонент из JEDI VCL
компонент реализующий ThumbNail
Обработка растров
Поверхности 2 порядка, draw
TVidGrab, работа c TV тюнером просто супер
Image Controls 1.0, Предлагаю принять участие в тестировании
передача звука потоком
EOSError........
Сканер
Написание голосового чата
3ds max,MAYA и delphi, delphi 5
Отрисовка луча бластера 3D, OpenGL
Вставка GIF, Вставка анимированных GIF
Микрофон., Про микрофон и проигрывание.
Изменение громкости, Изменение громкости звука в Delphi
Координаты мыши, OpenGL
Наложение текстуры на фигуру
Error: Out of system resources, Блин после 40-ого Assign`а
Как программно вырубить клаву и мышь?, Как программно вырубить клаву и мышь?
MP3, битрейк
Полупрозрачный фон в TImage32
DirectX
Звук системы, Громкость
Визуализация четырехмерного массива
Проиграть MOV файл
Почему при просмотре видео фильм ускорено работает
Разбиение картинки на части
Расположить картинку по центру
Работа с изображением
ListView, Виртуальный ListView
Поворот картинки, на 90 и 180 градусов
"похожие" цвета, поиск цвета
Подключение Flash к Delphi, Подключение Flash moovie к программе
Фильтры
Как узнать, что TBitmap - grayscale?, Как узнать, что TBitmap - grayscale?
Уменьшение изображений
Проигрывание треков (*x) из ресурсов
Графические эффекты
Как Вы относитесь к курящим девушкам?
Двумерное вейвлет-преобразование, очень нужно написать программу
Влияние ОС
Большая текстура, OpenGL
wav & timer
Затемнение картинки в Image, Работа с компонентом Image
Изменить размер Image, Изменить размер Image
|
Платные хостинги
Раскрутка сайта
Книги по программированию
Поворот картинки, на 90 и 180 градусов
- как это сделать если картинка в Image боксе? Это сообщение отредактировал Dray - 8.3.2005, 19:00
- Код Type TRGB=record b,g,r : byte; end; ARGB=array [0..1] of TRGB; PARGB=^ARGB; PRGB = ^TRGB;...procedure Rotate90A(var im : tbitmap);var i, j : integer; p1 : pargb; p : array of pargb; image : tbitmap;begin im.PixelFormat:=pf24bit; image:=tbitmap.create; image.PixelFormat:=pf24bit; image.Assign(im); im.Width:=image.Height; im.Height:=image.Width; setlength(p,image.Width); for i:=0 to image.Width-1 do p[i]:=im.ScanLine[i]; for i:=0 to image.Height-1 do begin p1:=image.ScanLine[image.Height-i-1]; for j:=0 to image.Width-1 do begin p[j,i].r:=p1[j].r; p[j,i].g:=p1[j].g; p[j,i].b:=p1[j].b; end; end; image.Free;end;procedure Rotate180A(var im : tbitmap);var i, j : integer; p1, p2 : pargb; image : Tbitmap;begin im.PixelFormat:=pf24bit; image:=Tbitmap.create; image.PixelFormat:=pf24bit; image.Assign(im); for i:=0 to image.Height-1 do begin p1:=image.ScanLine[i]; p2:=im.ScanLine[image.Height-i-1]; for j:=0 to image.Width-1 do begin p2[j].r:=p1[image.Width-1-j].r; p2[j].g:=p1[image.Width-1-j].g; p2[j].b:=p1[image.Width-1-j].b; end; end; image.free;end;...var b : TBitmap;begin b:=Tbitmap.create; b.assign(image1.picture.graphic);Rotate180A(b);image1.picture.graphic:=b; //тут можно обратно конвертировать в нужный формат, но это не сутьhighlightSyntax('delphizgyNzE','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
