[RedHead]

Нужно создать массив рисунков(100*100), но чтобы он выглядел как один рисунок. Приэтом можно было обращаться к каждой ячейке независимо друг от друга. Вроде как подходит DrawGrid для этих целей, но возникают проюблемы с перерисовкой формы- постоянно все мерцает, что еще можно попробовать?

[mav_c]

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

Нужно создать массив рисунков(100*100), но чтобы он выглядел как один рисунок. Приэтом можно было обращаться к каждой ячейке независимо друг от друга. Вроде как подходит DrawGrid для этих целей, но возникают проюблемы с перерисовкой формы- постоянно все мерцает, что еще можно попробовать?

Массив компонентов TImage, или, если выводить "вручную", то массив TBitMap'ов

[RedHead]

Это первое что пришло на ум. Но как мне кажется не есть самый красивый подход, т.к. 10000 компонентов TImage на форме- сомнительный плюс программы

[mav_c]

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

Это первое что пришло на ум. Но как мне кажется не есть самый красивый подход, т.к. 10000 компонентов TImage на форме- сомнительный плюс программы

Ну, а ты думаешь ДравГрид не есть массив BitMap'ов

[Павлик]

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

Нужно создать массив рисунков(100*100), но чтобы он выглядел как один рисунок. Приэтом можно было обращаться к каждой ячейке независимо друг от друга. Вроде как подходит DrawGrid для этих целей, но возникают проюблемы с перерисовкой формы- постоянно все мерцает, что еще можно попробовать?

по моему 10000 TImage на форме глупо )
я так понимаю, тебе нужно разбить какую-то картинку на 10000 частей и иметь возможность работать с каждой по отдельности?

[Shade]

Напиши типа
var
...
Image: array[0..10000] of Tbitmap;
...

//Создание картинок
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=0 to 10000 do begin
Image[i]:=TBitMap.Create;
end;
end;

//Удаление из памяти
procedure TForm1.FormDestroy(Sender: TObject);
var
i: integer;
begin
for i:=0 to 10000 do begin
Image[i].Destroy;
end;
end;

Для отабражения сложи все в один и отабрози в Timage
У меня всё работает