SoloCodigo

Bueno hace tiempo que doy la misma respuesta y sigue siendo válida.  

No uses un Timage para tus bitmaps, usa un Tbitmap. Creas los tbitmaps, los cargas con los bmp, o asignas jpeg. (no olvides de destruirlos!!!)

Luego colocas en tu formulario un Tpaintbox y en su evento OnPaint pintas los bitmaps en la posicion que quieras. Incluso puedes revisar si realmente necesitas pintarlos todos o solo algunos dependiendo de la zona de clip.

Supongo que lazarus seguira la misma idea respecto a Tbitmap, TCanvas y TPaintbox

En si el Tbitmap sirve literalmente como pedazo de memoria para tener almacenado tu bitmap. Mejor si le asignas el tipo DIB (Device independet bitmap, osea en memoria RAM y no en video en caso que quieras trabajar sobre la imagen)

El Tpaintbox no tiene memoria asignada de ningun tipo, sólo sirve para saber en que posicion de la memoria de video tiene que poner nuestros bitmaps y responde a eventos como onPaint que ocurre cuando otra ventana se puso encima de la nuestra y luego se necesita repintar nuestra ventana.

El Tcanvas es el que tiene la capacidad de pintar (graficos de todo tipo, texto, bitmaps, etc.) en memoria de video(en este caso el Tpaintbox) o en RAM (un bitmap DIB)

Saludos Amilius y Enko...

Para fijar ideas creo que lo mejor sera que explique (brevemente) lo que quiero hacer:

Se trata del juego Mastermind, como ya sabrán el objetivo es adivinar una secuencia de fichas de colores, que en este caso el programa se encargará de generar.

El problema que tengo es con la representación de las fichas, o sea elegir una estrategia para poder manipularlas de una forma no muy complicada.
Por eso lo que se me ocurrió fue una matriz de imágenes de esta forma:

Primeramente coloco en el formulario varios TImage, más precisamente 12 filas x 5 columnas. Esto tiene como ventaja, que de ser necesario puedo utilizar la propiedad de dobleClick sobre la TImage, para por ejemplo borrar una ficha de color, para poder cambiarla por otra.

Luego declaro un array:

mat:array[0..11,0..4] of TImage;

La desventaja que le encuentro a esto es que tendría que cargar la matriz manualmente, o sea:

mat[0,0]:=Image1;
mat[0,1]:=Image2;
mat[0,2]:=Image3;
...

Bueno, suponiendo que haya alguna mejor manera de hacer lo anterior, lo
que faltaría es cargar los archivos de imágen en la matriz mat y eso lo
encuentro bastante sencillo, utilizando un ImageList (Seguramente en Delphi
también existe, no lo se).

Entonces, una vez cargado el ImageList con las imágenes de las fichas, habría que hacer:

ImageList1.Draw(mat[fil,col].Canvas,1,1,indice_imagen);

donde fil y col, son las coordenadas (fila y columna) donde se quiere asignar
la ficha (imágen) cuyo indice en el imageList es indice_imagen.


Ahora paso a responder sobre las alternativas que me han dado:



Para Amilius:

Por lo que he visto, te puedo decir que en Lazarus existe tanto el TBitmap como el TPaintbox, sin embargo el TBItmap no soporta algunos métodos de Delphi, basicamente los relacionados con las Apis de windows, como por ejemplo el método ScanLine que según parece requiere la GDI32.dll. De todas formas no creo que el ScanLine sea necesario en este caso, por si te interesa en este link hay más información:

http://wiki.lazarus.freepascal.org/index.p...g_with_Graphics

Volviendo al TBitmap que me sugieres, no me queda muy claro la forma de utilizarlo. En lugar de utilizar una matriz de TImages me sugieres utilizar una matriz de Tbitmaps?

esto es:

mat:array[0..11,0..4] of TBitmap;

luego creo cada celda de la matriz:

mat[fil,col]:=TBitmap.create;

Luego me dices que coloque un Tpaintbox en el formulario y en la propiedad OnPaint pinte los bitmas en la posición que quiera (¿?), esto último no tengo idea de como hay que hacerlo. Además no entiendo como con un solo Tpaintbox puedo mostrar todas las imágenes bmp.


Para Enko:

Sobre el TDrawGrid, al menos con ese nombre no parece estar en Lazarus. Lo más perecido parece ser TDbGrid que está en la ficha Data Controls y tengo mis dudas de que sea lo mismo porque cuando coloco ese componente en el formulario queda algo parecido a una tabla en excel.

...Luego me dices que coloque un Tpaintbox en el formulario y en la propiedad OnPaint pinte los bitmas en la posición que quiera (¿?), esto último no tengo idea de como hay que hacerlo. Además no entiendo como con un solo Tpaintbox puedo mostrar todas las imágenes bmp.
...

Para pintar:

miTpaintBox.canvas.draw();

En delphi existe un tab de properties para asignar a un evento como onPaint la función que quieras que se ejecute para responder al evento.

Un evento como "OnPaint" es similar a una variable, pero del tipo función de objeto que recibe ciertos tipos de parámetros.

La cosa es que no necesitas una matriz de imagenes para tu juego.

Primero que tu matriz debería ser  de byte o algo así:

Luego necesitarias un procedimieto que te inicialize la matriz, digamos, ponga todas las cadenas de las imagenes de a pares ordenadas de alguna forma, todavia sin mezclar.
Por supuesto que es mejor que lo hagas con un ciclo

Luego necesitarias un procedimiento simple que te mezcle la matriz.

Tambien necesitar'ias un procedimiento que te cargue todas las imagenes
Pero para eso necesitar'ias un arreglo con todas las imagenes
 
Tus imagenes deber'ian llamarse NombreImagen1.bmp, NOmbreImagen2.bmp, etc....
 Supondr'e que las imagenes son cuadradas...
 
Y finalmente, uno quien te la imprima  que ser'ia algo asi:

Por supuesto que te har'ia falta todo lo que es la jugada pero no necesariamente necesitas matriz de imagenes.

 Muchas Gracias, Enko!!

Muy buena la explicación, gracias al código que escribiste ahora entiendo y de hecho he logrado cargar en un TBitmap varias imágenes, o sea las fichas de colores... por supuesto despliego la matriz de fichas teniendo en cuenta los valores numericos previamente cargados en otra matriz cuyos elementos son enteros (de tipo byte).

En el procedimiento de cargar imágenes me queda una pequeña duda  y es sobre la ruta  desde la cual se cargarán las imágenes. Recuerdo que en visual basic existe el app.path que retorna un string con la ruta en que se encuentra el programa, en Delphi existe algo parecido???

Continuando con el procedimiento de cargar imágenes, otra alternativa que encontré fue cargarlas todas en un TImageList (en lugar de utilizar un array de TBitmaps), que es una especie de arreglo dinámico de imágenes en el que a cada una se le asigna un índice, de esa forma no es necesario cargarlas de un directorio y ademas luego de compilado el programa las imágenes quedan embutidas en el ejecutable. Otra ventaja es que en el TImageList (de Lazarus) puedo cargar imagenes de varios tipos (ico, ppm, pgm, pbm, png, xpm, bmp).

Entonces, con lo anterior el procedimiento de Imprimir la matriz quedaría así:
Buenísimo el procedimiento para calcular las coordenadas de la imágen en que se hizo clic!! funciona fenomenál!!... ignoraba que se pudiese hacer algo así.

En cuanto al TDrawgrid...    al final descubrí que existe en Lazarus (más vale tarde que nunca) está en la Ficha Additional, no lo he probado aún pero imagino que habrá alguna manera quitarle la apariencia de tabla.