Позиционное копирование изображение в Image

[artemavd]

Ты имеешь ввиду, что я не объявил StrechBlt?

[Stilet]

Нет. ее не нужно обьявлять она в модуле Windows.
Ты закатал локальные переменные b и думаешь что так и надо.
У тебя картинка загружается в одну переменную, а рисовать ты пытаешся из другой, причем пустой.
Посмотри - у меня ОДНА переменная содержащая рисунок, и она глобальна чтоб можно было ее использовать везде.

[artemavd]

Аааааа...допер кажется . То есть если я в событии OnCreate создал переменную b и в событии рисования на DrawGridCell, то получилось, что это у меня две как бы разные переменные. В событии OnCreate в перменную b грузится рисунок и все, а в событии DrawGridCell у меня не загружен рисунок в переменную и поэтому появляется ошибка об обращении к несуществующему объекту. Так чтоли получается?

[mutabor]

но как быть если у меня будет нужно 10 штук нарисовать? 20? 50? 300?

А циклы на какой предмет?

Нужно же как-то задавать смещение.

Золотая мысль.

Я попробую записать видео как должно работать, чтобы понятнее было)

А вот это не надо, все и так понятно.

Значит так, алгоритм:

1. Узнаешь габариты (ширину и высоту) одного "объекта" 
(под объектом я имею ввиду единичный экземпляр того, чем ты хочешь заполонить всю канву).
Это и будет смещение, по вертикали и горизонтали.
2.Устанавливаешь координаты вывода в (0,0)
3. Цикл: Пока не вышли за нижний край канвы
      Вложенный цикл: Пока не вышли за правый край канвы
          Рисуешь "объект" в текущих координатах
          Прибавляешь смещение

[Stilet]

Так чтоли получается?

Именно так. Более того рисунок во вторую не просто "не загружен" а не создан объект, с помошью которого ты можешь грузить изображение.
Если бы просто рисунок не был загружен скорее всего ничего бы не отрисовывалось, но прога запустилась бы.

mutabor

DrawGrid уже изобрели до нас

[artemavd]

Неплохо получилось . Результат во вложении. Только есть несколько вопросов (уж не кидайте в меня камнями)).
1. Где в коде, когда используется StrechBlt, задается именно размеры рисуемого изображения? А то как видите, изображение по высоте нормально, но визуально не совпадает с изображением, которое в Image1. А все эти изображения должны быть абсолютно одинаковы.
2. Слева у меня есть таблица, в которой будут некоторые номера. Нужно чтобы они по порядку, начиная с первого и до последнего брались по очереди и в таком же порядке сначала отрисовывались на Image1, а потом на все изображения в таблице. Например, сначала берется значение = 8950000000, переносится на Image1, а затем отрисовывается в первой ячейке таблицы. Затем берется второе значение = 8950000001, сначала отрисовывается на Image1, а затем переносится во вторую ячейку и т.д. пока не закончатся значения в таблице. Вот как можно замутить такой код?

Код получения изображения с Image1:

procedure TForm1.FormCreate(Sender: TObject);
begin
 b:=TBitMap.Create;
 b:=Image1.Picture.Bitmap;
end;

[mutabor]

procedure TForm1.FormCreate(Sender: TObject);
begin
 // b:=TBitMap.Create; // вот это здесь необязательно, и даже ошибка в виде утечки памяти
 b:=Image1.Picture.Bitmap;
end;

p.s. Вот кстати и еще один вопрос в наши Дельфи тесты. Спасибо artemavd

[artemavd]

mutabor, ну, если в моем ответе выше действительно что-то забавное есть, то я рад.
З.Ы. а что на счет моих вопросов в посте №16?
З.Ы.Ы. А что такое в этом коде? (для личного интереса))

procedure TForm1.FormCreate(Sender: TObject);
begin
 // b:=TBitMap.Create; // вот это здесь необязательно, и даже ошибка в виде утечки памяти
 b:=Image1.Picture.Bitmap;
end;

[mutabor]

artemavd, не бери в голову, не хотел тебя обидеть. Просто как раз обсуждали создание тестирования по Дельфи.

А что такое в этом коде?

Ошибка. Ты создаешь объект и затем присваиваешь ему ссылку на другой, тем самым первый теряется безвозвратно, а это утечка памяти. В данном случае не нужно его создавать, т.к. ты ему присваиваешь ссылку на уже существующий.

Что касается вопросов из поста 16, трудно понять что тебе нужно. Во первых не используй Stretch если не нужно масштабировать, он искажает. Во вторых я не понял ничего про таблицу с номерами, объясни понятнее.

[artemavd]

artemavd, не бери в голову, не хотел тебя обидеть.

Ни в коем случае . Я не обиделся и даже не думал этого делать.

Во вторых я не понял ничего про таблицу с номерами, объясни понятнее.

Придется завтра на работе видео записывать действительно

-----------------------
Вот, записал видео во флэше через CamStudio. Думаю, что сейчас поймете о чем я