Hola
Bueno, lo que hice hasta el momento es esto:
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
var
x, y, z, i, j : Integer;
anchoImg, altoImg : Integer;
ImagenXY : TImage;
str, lado : String;
begin
anchoImg := 256;
altoImg := 256;
x := 0;
y := anchoImg;
z := 3;
lado := 'DERECHA';
Memo1.Lines.Add('Creamos el Timage de: ' + IntToStr(anchoImg * z) + 'px * ' + IntToStr(altoImg * z) + 'px');
for i := 0 to z - 1 do
begin
for j := 0 to z - 1 do
begin
str := 'Copiamos la imagen ' + IntToStr(i) + ',' +IntToStr(j) + ' desde: ' + IntToStr(x) + ' hasta: ' + IntToStr(y) + ' Pos: ' + lado;
Memo1.Lines.Add(str);
x := y;
y := y + anchoImg;
lado := 'ABAJO';
end;
x := 0;
y := anchoImg;
Memo1.Lines.Add(' ================ ');
lado := 'DERECHA';
end;
end;
Al parecer estoy aplicando las funciones de copiar de Canvas debería estar solucionado, pero ¿Cuales son esas propiedades/funciones ?
EDIT:
Bueno, mientras escribía ya el señor Neftali había puesto 2 post, joer xD
ya me bajé el ejemplo y estoy probando y al parecer solo tengo que incorportarlo en lo que hice, claro, si eso estará bien, cosa que no lo creo jeje
Saludos!