Вырезать кусочек из картинки

[ivt22]

P.S. Вот здесь маленькая картинка и обрезается как надо, но только в цикле со второго раза

      for j := 0 to 1 do begin
        BitBlt(bmp2.Canvas.Handle, 0, 0, 102-i, 17, bmp.Canvas.Handle, i+4, 0, SRCCOPY);
        bmp2.Width:=102-i-4; // уменьшаем его размеры width
        bmp2.Height:=17;
        image.Assign(bmp2);
        image.SaveToFile('D:\TESTCOPYRECT\'+IntToStr(z)+'z.PNG');
      end

[ivt22]

[QUOTE=Serge_Bliznykov;1295627]

{нужно ОБЯЗАТЕЛЬНО иницилизировать lColor перед использованием!!!
         например, так:}
      lColor := image.Canvas.Pixels[0, 9];[/COLOR][/B]

Гениально! А главное, что все заработало!! наконец-то

[ivt22]

Вот смотри я приложил 4 скрина в первом код программы с циклом, во втором результат её выполнения, в третьем скрине я закомментировал цикл, в четвертом скрин результата работы программы.

[BDA]

Попробуйте сначала устанавливать размер, а потом копировать область

[ivt22]

Сообщение от BDA

Попробуйте сначала устанавливать размер, а потом копировать область

ДА Ё МАЁ. Ну я и тупень, ну как так-то... Спасибо