Ver Mensaje Individual
  #19  
Antiguo 21-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Lo unico que de momento no consigo es que al hacer click sobre la miniatura me abra una ampliación de la misma.

En el form existe un TImage al que le asigno el valor del Blob de la tabla mediante un LoadFromStream en el evento AfterScroll del TIBDataSet.

No se si algo de esto me puede servir para pasar este valor desde el click en el DBImage.
Hola jafera.

Si lo que buscas es pasar la miniatura del DBImage al Image para verla ampliada allí, es muy sencillo:
Código Delphi [-]
procedure TForm1.DBImage1Click(Sender: TObject);
begin
  Image1.Picture.Assign(DBImage1.Picture);
end;
Para limpiar el TImage:
Código Delphi [-]
   Image1.Picture:= nil;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 21-03-2012 a las 19:56:59.
Responder Con Cita