Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #12  
Antiguo 11-03-2009
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.503
Poder: 23
MAXIUM Va camino a la fama
Código Delphi [-]
Const
     Mapa: Array[0..5,0..9] of String =
    (('Quilicura_01.bmp', 'Quilicura_02.bmp', 'Quilicura_03.bmp', 'Quilicura_04.bmp', 'Quilicura_05.bmp',
      'Quilicura_06.bmp', 'Quilicura_07.bmp', 'Quilicura_08.bmp', 'Quilicura_09.bmp', 'Quilicura_10.bmp'),
     ('Quilicura_11.bmp', 'Quilicura_12.bmp', 'Quilicura_13.bmp', 'Quilicura_14.bmp', 'Quilicura_15.bmp',
      'Quilicura_16.bmp', 'Quilicura_17.bmp', 'Quilicura_18.bmp', 'Quilicura_19.bmp', 'Quilicura_20.bmp'),
     ('Quilicura_21.bmp', 'Quilicura_22.bmp', 'Quilicura_23.bmp', 'Quilicura_24.bmp', 'Quilicura_25.bmp',
      'Quilicura_26.bmp', 'Quilicura_27.bmp', 'Quilicura_28.bmp', 'Quilicura_29.bmp', 'Quilicura_30.bmp'),
     ('Quilicura_31.bmp', 'Quilicura_32.bmp', 'Quilicura_33.bmp', 'Quilicura_34.bmp', 'Quilicura_35.bmp',
      'Quilicura_36.bmp', 'Quilicura_37.bmp', 'Quilicura_38.bmp', 'Quilicura_39.bmp', 'Quilicura_40.bmp'),
     ('Quilicura_41.bmp', 'Quilicura_42.bmp', 'Quilicura_43.bmp', 'Quilicura_44.bmp', 'Quilicura_45.bmp',
      'Quilicura_46.bmp', 'Quilicura_47.bmp', 'Quilicura_48.bmp', 'Quilicura_49.bmp', 'Quilicura_50.bmp'),
     ('Quilicura_51.bmp', 'Quilicura_52.bmp', 'Quilicura_53.bmp', 'Quilicura_54.bmp', 'Quilicura_55.bmp',
      'Quilicura_56.bmp', 'Quilicura_57.bmp', 'Quilicura_58.bmp', 'Quilicura_59.bmp', 'Quilicura_60.bmp'));
Var
   MapaBMP: TBitmap;
   Horizontal, Vertical: Integer;
begin
     MapaBMP:= TBitmap.Create;

  // Mapea el plano cargando las imágenes.   
     Try
        For Vertical:= 0 To 5 Do
           For Horizontal:= 0 To 9 Do
           Begin
                MapaBMP.LoadFromFile(Directorio + 'plano\'+ Mapa[Vertical, Horizontal]);
                Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
           End;
     Finally
        MapaBMP.Free; // <- Voy liberando memoria 
     End; 
end;

Cada imagen es de 510x500 pixeles, Las dimensiones del TImage las dejo definidas desde un principio y dentro de un ScrollBox. El consumo máximo de memoria no supera los 500kb para una imagen de 5100x5000 en este caso.

Última edición por MAXIUM fecha: 11-03-2009 a las 17:32:10.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cargar Imagenes grandes en un Timage Rapidamente angelmsf Gráficos 2 27-08-2008 03:35:04
Duda Arranque Web con Imágenes grandes Deiv HTML, Javascript y otros 4 26-12-2007 17:03:48
Imagenes mas grandes en un TreeView hmrvivas OOP 1 13-07-2007 06:02:43
Visualizar imagenes grandes fjcg02 Gráficos 2 20-11-2006 16:33:36
cargar diferentes imagenes en un TImage huevozen C++ Builder 3 27-07-2006 09:37:17


La franja horaria es GMT +2. Ahora son las 09:51:14.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi