Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-07-2007
xaguilars xaguilars is offline
Miembro
 
Registrado: jul 2007
Posts: 22
Poder: 0
xaguilars Va por buen camino
Borrar la imagen de un TImage

Una vez estuve haciendo una base de datos que contenía una imagen que tenía la opcion de borrado, pero no sabía como borrar la imagen después de haber añadido una antes, ya que el objeto parece que no tiene nada para hacer esa tarea... Pero es tan fácil como poner .Picture a nil.
Código Delphi [-]
function ClearImage (Image:TImage):boolean;
begin
  If Image.Picture=nil then
  begin
    result:=false;
    exit;
  end;
  Image.Picture:=nil;
  result:=true;
end;
Responder Con Cita
  #2  
Antiguo 29-07-2007
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 18
MaMu Va por buen camino
No es lo mismo que hacer

Código Delphi [-]
procedure LiberaImage(Image:TImage);
begin
Image.Picture:=nil
Image.Repaint;
end;

Saludos
Responder Con Cita
  #3  
Antiguo 01-09-2007
Avatar de casacham
casacham casacham is offline
Miembro
 
Registrado: abr 2006
Ubicación: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 184
Poder: 18
casacham Va por buen camino
Le respondo a MAMU, no es lo mismo, desde ya que xaguilars esta haciendo una funcion, que le devuelve TRUE o FALSE segun se haya borrado algo relamento o no del TImage. Lo tuyo MAMU es un procedimiento. Hasta donde yo conozco TImage no tiene la propiedad RESULT. Por mi parte puedo contribuir con este procedimiento.
A la TTAble, TADOTable o tabla que se les ocurra, en el evento AfterScroll coloquen el siguiente codigo
Código:
procedure TForm1.IBTable1AfterScroll(DataSet: TDataSet);
begin
    IF IBTable1_FotoCara.IsNull THEN Image1.Picture.Assign(Nil);
end;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 23:55:04.


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