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

[FoggySpurs]

Спасибо!Буду искать ошибку! Дополнительный вопрос: с помошью Bitblt можно
открыть BMP,т.е. копирывать по пикселям из битовой карты в PaintBox?

[FoggySpurs]

Все получилось)

[Rin]

Конечно можно

var Bm:TBitmap;
x,y,h,w:integer;
begin
Bm:=TBitmap.Create;
if fileexists('мой файл.bmp') then bm.loadfromfile('мой файл.bmp');
h:=bm.height;
w:=bm.width;
paintBox1.width:=w;
paintBox1.height:=h;
if not BitBlt(PaintBox1.Canvas.Handle, 0, 0, w, h,// куда копируем и координаты 
 bm.canvas.Handle, 0,0,//откуда копируем и координаты верхнего угла
 SrcCopy)// SrcCopy- тернарная растровая операция. Там основных около 10. Если хочешь поглубже узнать, юзай поисковик.
 then
   showmessage('не удалось');
bm.free;

Не за что)

[Arigato]

Не совсем ясна задача ТС. На сколько я понял, ему надо организовать загрузку BMP-файла вручную, без всяких там loadfromfile, и при этом обнулить красный канал. Или просто обнулить красный канал, а загружать картинку как угодно?

[Rin]

Необходимо в Делфи открыть bmp файл попиксельно( не используя ScanLine) и
отобразить его в PaintBox. Затем присвоить красной сотовляющей пикселя 0
и вывести новое изображение на PaintBox2.
В том то и дело ,что вручную...PaintBox1.Canvas.Draw (0, 0, BitMap);-не катит
(((...Не могу составить цикл ,выводящий попиксельно картинку на экран.

Профи всегда заглядывает глубже, чем новичок. Вы просто не поняли друг друга.
Ему было пофиг , как грузится картинка. Проблема заключалась в попиксельном просмотре карты Bitmap и обнулении красного цвета в пикселе.
Кстати, эта тема скорей всего от того же человека.

[FoggySpurs]

Спасибо огромное! И нет я не тот чувак