VPF::Использование scanline для image - Форум программистов

iff

Дата 14.8.2012, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: нет
Всего: 16

Не могу вывести попиксельно изображение непосредственно в TImage.
Например:

Код


type TRow = array[word] of TRGBTriple; PRow = ^TRow;
var x, y: word;
const black: TRGBTriple = (rgbtBlue: 0; rgbtGreen: 0; rgbtRed: 0);
begin
  Image.Picture.Bitmap.Width := 500;
  Image.Picture.Bitmap.Height := 500;
  for y := 0 to 499 do
    for x := 0 to 499 do
      PRow(Image.Picture.Bitmap.ScanLine[y])[x] := black;
  Image.Refresh;
end;

или

Код


type TRow = array[word] of TRGBTriple; PRow = ^TRow;
var Row: PRow; x, y: word;
const black: TRGBTriple = (rgbtBlue: 0; rgbtGreen: 0; rgbtRed: 0);
begin
  Image.Picture.Bitmap.Width := 500;
  Image.Picture.Bitmap.Height := 500;
  for y := 0 to 499 do
  begin
    Row := Image.Picture.Bitmap.ScanLine[y];
    for x := 0 to 499 do
      Row[x] := black;
  end;
  Image.Refresh;
end;

конечно, можно создать отдельный bitmap, обработать его и загрузить в image (через св-во picture.bitmap). Но не понятно именно почему непосредственный вывод не работает.

Добавлено через 8 минут и 25 секунд
Добавил

Код


Image.Picture.Bitmap.PixelFormat := pf24bit;

всё работает.

Добавлено через 11 минут и 49 секунд
Кстате, если загрузить в некий объект типа tbitmap изображение не 24-битное, а потом поставить "Bitmap.PixelFormat := pf24bit;", то его формат автоматически преобразуется и с ним можно будет работать как с 24-битным?

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

Illusion Dolphin

Дата 14.8.2012, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 13
Всего: 63

Цитата

Кстате, если загрузить в некий объект типа tbitmap изображение не 24-битное, а потом поставить "Bitmap.PixelFormat := pf24bit;", то его формат автоматически преобразуется и с ним можно будет работать как с 24-битным?

Да

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »