Ir al contenido


Foto

Simulando un SMOTH SCROOLL

Comenzado por pcicom , may 13 2010 10:06

  • Por favor identifícate para responder
4 respuestas en este tema

#1 pcicom

pcicom

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 267 mensajes
  • LocationMéxico

Escrito 13 mayo 2010 - 10:06

Saludos amigos..

El dia de hoy me dio por hacer una simulacion del movimiento de imagenes como se hace ahora con los telefonos, donde se desliza en los equipos touch el dedo y se muestran en forma animada las imagenes y/o iconos de los programas..

Este es el avance que tengo..  ademas que ya siendo que me va a ser muy util..

Si alguien conoce un metodo MEJOR...  adelante con la colaboracion..

http://pcicom.net/da...SMOTHSCROOL.rar




  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.459 mensajes
  • LocationMéxico

Escrito 13 mayo 2010 - 10:47

Interesante amigo, solo que hay un detalle, no contiene la unit2.pas y la está pidiendo :)

Salud OS
  • 0

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.459 mensajes
  • LocationMéxico

Escrito 13 mayo 2010 - 10:51

Bueno, eliminé la Unit2 del proyecto y funcionó, ahora me dió un error que dice

---------------------------
Project1
---------------------------
List index out of bounds (13)
---------------------------
OK 
---------------------------

Salud OS
  • 0

#4 pcicom

pcicom

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 267 mensajes
  • LocationMéxico

Escrito 13 mayo 2010 - 11:35

Sorry,,      intentanto evitar un archivo mas grande erre con ese detalle del form2...  de hecho no lo utilizo..

hay que corregir la parte del sig. CODIGO que VALIDA que no se SOBREPASE el limite de imagenes a mostrar.



delphi
  1. procedure TForm1.sb1Change(Sender: TObject);
  2. vAR
  3.    I,J:integer;
  4. begin
  5.   j:= sb1.Position;
  6.   if j>=(sb1.Max-nMax) then exit;
  7.   For i:= 1 to nMax do
  8.   begin
  9. //         aFotos[i].picture:= nil;
  10.      aFotos[i].picture.loadfromfile(ListaFotos.Strings[j+1]);
  11.      inc(j);
  12.   end;
  13. end;



El form2 lo estaba UTILIZANDO porque pretendia abrir la IMAGEN en mayor tamaño tipo POLAROID...

Agregando el codigo para las imagenes



delphi
  1. Procedure TFORM1.Mostrar(Sender:Tobject);
  2. begin
  3.     showmessage('Abro FORM2 y Muestro IMAGEN en tipo POLAROID');
  4.     { form2 := TForm2.Create(Self);
  5.       form2.ShowModal;
  6.       form2.Free;
  7.     } 
  8. end;
  9.  
  10.  
  11.  
  12.         aFotos[?].onDbClick := Mostrar;



Estuve buscando algun CONTROL que exista y que realice esto y creo que los unicos son los TMS.. de DELPHI2010..11, 

La idea es no sobrecargar controles y/o componentes con el contenido de las imagenes, por eso uso solo x TIMAGE que unicamente carga las imagenes indicadas.

FALTA hacer el efecto de movimiento y deslizamiento ya que en esta primer pruebita si te fijas unicamente se cambian las imagenes encima de las otras.. 

En el efecto ORIGINAL  se mueve como MARQUEE..  entran y salen del area de imagenes..

YA LUEGO le SIGO...



  • 0

#5 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.459 mensajes
  • LocationMéxico

Escrito 14 mayo 2010 - 07:19

Muy bueno amigo, este proyecto tiene mucha tela de donde cortar :)

Salud OS
  • 0
Volver a Delphi


  1. Comunidad Delphiaccess
  2. → PROGRAMACIÓN
  3. → Delphi
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.