Как открыть BMP попиксельно в Делфи 7?

[FoggySpurs]

Помогите пожалуйста.Необходимо в Делфи открыть bmp файл попиксельно( не используя ScanLine) и отобразить его в PaintBox. Затем присвоить красной сотовляющей пикселя 0 и вывести новое изображение на PaintBox2.
Заранее Спасибо!

[Arigato]

var BitMap: TBitMap;
begin
  BitMap := TBitMap.Create;
  BitMap.LoadFromFile ('bla-bla-bla.bmp');
  PaintBox1.Canvas.Draw (0, 0, BitMap);
  BitMap.Free;
end;

Или надо вручную открыть файл и произвести чтение? Если так, то изучите структуру BMP-файла: http://c-site.h1.ru/infa/bmp_struct.htm , http://ru.wikipedia.org/wiki/BMP

[FoggySpurs]

В том то и дело ,что вручную...PaintBox1.Canvas.Draw (0, 0, BitMap);-не катит(((...Не могу составить цикл ,выводящий попиксельно картинку на экран. Говорят,что при помощи Bitblt это можно сделать. Такое возможно?

[Arigato]

Как-то так:

// тут читаем из файла ширину и высоту картинки, а также разрядность
for y := height - 1 downto 0 do
  for x := 0 to width - 1 do
  begin
    // тут читаем цвет очередного пикселя из файла
    PaintBox1.Canvas.Pixels[x,y] := c; // c - считанный выше цвет rgb
  end;

Только все это будет весьма медленно работать, к чему такие извращения, не понятно.

[FoggySpurs]

Почему-то выводит черный квадрат на экран((( В чем может быть дело? И как потом присвоить красной сотовляющей пикселя 0???

[Rin]

Прошу прощения Arigato, что поленился сам это написать. просто дополню чуть-чуть ваш код.

var Bm:TBitmap;
h,w:integre;
..........
Bm:=TBitmap.Create;
if fileexists('мой файл.bmp') then bm.loadfromfile('мой файл.bmp');
h:=bm.height;
w:=bm.width;

for y := h - 1 downto 0 do
for x := 0 to w- 1 do
begin
PaintBox1.Canvas.Pixels[x,y] := RGB(
0,
getGValue(Bm.Canvas.Pixels[x,y]),
getBValue(Bm.Canvas.Pixels[x,y]));
end;

[FoggySpurs]

Rin,тот же вопрос: почему я на выходе получаю не картинку ,а одноцветное изображение???

[Rin]

Вы код то пробовали?

[FoggySpurs]

Да,конечно!

[Rin]

Спецом, только ради Вас , открыл свою старенькую Delphi, и вкатал код.
Вот результат. Все это происходит на событии onPaint для PaintBox1.
Одноцветное изображение может получиться, если у вас есть цвета, образованные при смешении с красным. У меня на картинке есть желтый=красный+зеленый. При присваивании красному значение "нуль", мы получим зелёный.
А вот если бы я использовал градиент от синего до зелёного, то картинки на обоих PainBox`ах были бы одинаковые.