Brought to You by Glagnar's Human Rinds. [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
Brought to You by Glagnar's Human Rinds. [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
Por
Saiyine 
el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 471
Se le pasa el contenido de una lista de cadenas, por ejemplo las lines de un memo
// GrabarJPG('resultado.jpg',sumar_jpg_de_lado(memo1.lines));
function sumar_jpg_de_lado(nombres : tstrings) : TBitmap;
var
b : array [0..10] of tbitmap; // limite de JPGs laterales, subir si hace falta
c,x,y,i,j,k : integer;
begin
c:=nombres.count;
for i:=0 to c-1 do b[i]:=LeerJPG(nombres[i]);
// ATENCION: Es para n JPGs de dimesiones identicas
x:=b[0].width;
y:=b[0].height;
result:=CrearBitmap(x*c,y);
for i:=0 to x-1 do
for j:=0 to y-1 do
for k:=0 to c-1 do
result.canvas.Pixels[i+k*x,j]:=b[k].canvas.pixels[i,j];
end;
A partir de esto, crear combinaciones de JPGs en cualquier direccion os deberia resultar trivial.
Las funciones LeerJPG y CrearBitmap las podeis encontrar en esta misma web.
No olvideis añadir jpeg al uses de la unidad en que useis este procedimiento.
Otras entradas de la web que podrian interesarte:
. . .
. . .
. . .
Página web ©2001-2011 Saiyine descargada en s, con 6094823 visitas en total, hoy (de un total de 0 previstas).
. . .
