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

[artemavd]

Работая дальше над своей программой, столкнулся со следующим. . Возникла необходимость отрисовывать некоторое изображение, которое находится в Image1 на Image2. Казалось бы все просто. Перекинуть его просто да и все. Ан нет, тут задачка гораздо сложнее . Итак, в Image1 хранится изображение как во вложении №1. Его на нем будет отрисовываться некий текст. И это изображение должно поместиться (ну, или скопироваться) на большой Image2. Вместе с отрисованным текстом. Вообщем-то, проблем с отрисовкой текста на первом Image1 проблем нет. Проблема с переносом его на Image2. Сложность заключается в том, что скопированные изображения должны друг за другом, начиная слева направо располагаться. Причем фишка в чем. В том, что значения в качестве текста должно будет последовательно браться из таблицы, каждый раз отрисовываться на Image1 и копироваться друг за другом на Image2 в таком же порядке, как и в каком они отрисовывались. Размеры Image2 менять нельзя. В конечном итоге должен получиться заполенный лист как во вложении №2. Сейчас я его руками нарисовал и думал просто отрисовывать текст на каждом из них, но, мне же заранее неизвестно сколько у меня будет чисел (текста) браться. Вот как можно организовать это самое копирование? Очень нужно.

[mutabor]

Зачем так усложнять? Это все можно рисовать прямо на большой канве, MoveTo, LineTo методы.
Можно и копировать, CopyRect для этого юзай. Текст рисует TextOut. Настройки шрифта в Canvas.Font...

[artemavd]

Это все можно рисовать прямо на большой канве, MoveTo, LineTo методы.

Отрисовыватьь-то можно попробывать так, но как быть если у меня будет нужно 10 штук нарисовать? 20? 50? 300? Нужно же как-то задавать смещение. Я попробую записать видео как должно работать, чтобы понятнее было)

[Stilet]

Зачем так усложнять?

Ты не первый кто автору это глаголит

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

Для таких "плиток" (стиль thumbnails - может слышал) есть DrawGrid.
Рисуй в его ячейках - и будет тебе счастье.

[artemavd]

А можно пример как рисовать в нем?). Заиметь бы процедуру, которая будет рисовать в каждой ячейке то, что мне нужно, от я бы рад был))

[Stilet]

Да пожалуйста:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    procedure FormCreate(Sender: TObject);
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  b:TBitmap;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 b:=TBitmap.Create;
 b.LoadFromFile('D:\stasya_ru_2_big.bmp');
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 StretchBlt(TDrawGrid(sender).Canvas.Handle,rect.Left,rect.Top,
  rect.Right-rect.Left,Rect.Bottom-Rect.Top,b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY);
end;

end.

Делов то...

[artemavd]

Попробовал. Запустил приложение и получил ошибку как на скриншоте. Даже без понятия о чем она. Наверное попытка обращения к несуществующему объекту?

[Stilet]

А разобраться?
А пошаговку?
Неужели отменили?

[artemavd]

Ну вот что мне выдал отладчик. Кажется выделил STrechBlt...

[Stilet]

artemavd

Ох горечко ты специализированное )))
А вот скажи тебя не напрягает то что ты в обработчике отрисовки описал какую то левую локальную переменную, и не создал в нее обьект?

Посмотри внимательно мой пример - вни-ма-тель-но