Club Delphi  
    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
  #1  
Antiguo 18-04-2007
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 19
MaMu Va por buen camino
Diseño e implementación de Thumbnails

Como bien dice el titulo, esto diseñando un aplicación que me escanee un directorio en busca de archivos bmp y jpg, y que me permita visualizar las imagenes encontradas en forma de thumbnails.
Yo para crear los thumbnails hago lo siguiente:

Código Delphi [-]
var
   bmp: TBitmap;
   jpg: TJpegImage;
   scale: Double;
 begin
   // Abrir la imagen
   if opendialog1.execute then
   begin
     jpg := TJpegImage.Create;
     try
       // Cargar la imagen
       jpg.Loadfromfile(opendialog1.filename);
       if jpg.Height > jpg.Width then
         scale := 50 / jpg.Height
       else
         scale := 50 / jpg.Width;
       bmp := TBitmap.Create;
       try
         //Crear el thumbnail
         bmp.Width := Round(jpg.Width * scale);
         bmp.Height := Round(jpg.Height * scale);
         bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, jpg);
         // Dibujarlo en el control, aca lo hago en el form, pero lo puedo hacer
         //segun que control elija
         Self.Canvas.Draw(10, 20, bmp);
         // Si nececesito convertirlo y guardarlo en disco hago
         jpg.Assign(bmp);
         jpg.SaveToFile(ChangeFileext(opendialog1.filename, '_thumb.JPG'));
       finally
         bmp.free;
       end;
     finally
       jpg.free;
     end;
   end;

Pero no se me ocurre, en que control dibujarlo, ya que quiciera meter todas las imagenes encontradas, ya pasadas a thumbnail en un mismo control, al estilo "vista de imagenes en miniatura" que trae el Xp. Ya que quiero poner un Checkbox a cada una, para seleccionarla o no.

Alguien esta inspirado y me tira alguna idea?

Saludos y gracias
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;

Última edición por MaMu fecha: 19-05-2008 a las 00:45:26.
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
IMplementacion de un parser bustio Varios 10 07-12-2007 17:50:10
Implementacion de sql a un qreport!! magnu9 Impresión 1 09-11-2006 21:46:01
Implementacion de Callback walito Varios 6 26-09-2006 20:03:22
Implementacion POO y UML Leonardo OOP 1 19-10-2005 15:51:13
Como puedo ver imagenes en Thumbnails? marcoev Gráficos 1 29-05-2003 21:06:36


La franja horaria es GMT +2. Ahora son las 10:14:15.


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