Cerrar un TImage

[fasthorse]

Hola, mirad yo abro una imagen en un formulario a través de un TImage, y cuando quiero cerrarla a vista de usuario, q tengo q poner? yo es pongo por ejemplo si Imagen es el TImage; Imagen->Destroying;... pero así la sigo viendo y no se cómo puedo cerrarla...
AYUDAA POR FAVOR!!
Gracias.

[dec]

Hola,

Prueba con:

Image1.Picture = null;

Nota: creo que sería así en C++, en Delphi sería:

Código Delphi [-]
Image1.Picture := nil;

Echa un vistazo a este hilo.

[fasthorse]

Q va, tampoco se me cierra, bueno me da error, me dice que el símbolo null es desconocido. Puede ser porque lo tenga que definir antes no? pero como lo defino para que se me cierre luego la imagen?
Gracias

[[cHackAll]]

Image1->Picture->Assign(NULL);

[fasthorse]

Ahora no me da ningun error, pero sigo viendo la imagen después de darle a la opción de cerrar imagen, mirad tengo este código:


void __fastcall TForm1::ToolButton_CerrarImagen(TObject *Sender)
{
int resp;
resp = MessageDlg("¿Desea guardar " + Caption + " primero?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo << mbCancel, 0);

if(resp == mrYes)
GuardarImagen1Click(this);
Imagen->Picture->Assign(NULL);
//siendo Imagen un TImage dentro del formulario principal
.....
}

¿qué puedo hacer entonces?

[[escafandra]]

¿Que tal si pruebas esto?:

TPicture *VoidPicture = new TPicture;
Imagen->Picture->Assign(VoidPicture);

Asignas un TPicture vacio....

Saludos.

[fasthorse]

que va tampoco... no se , q cosa más rara,... seguiré probando... y si se os ocurre otra cosa...
Gracias por todo.

[[escafandra]]

¿Por que dices que no se cierra?
¿No habras volcado en el Canvas de tu formulario la imagen....?

En ese caso debes repintar el Canvas con una imagen nula....


Saludos.

[fasthorse]

No no, si ahí no utilizo ningún canvas ni nada, simplemente tengo un formulario Form1 y dentro de él tengo definido un Timagen, tb un botón para que, una vez abierta la imagen dentro del Form1 se me cierre, y eso es lo q no consigo. Me entiendes?
Entonces tu crees que tengo q pintar un canvas?? Es que creo que no te he entendido bien.
Un saludo.

[[escafandra]]

Borrado por repetición

[[escafandra]]

Pues no entiendo....
He probado un programita con un TImage y dos botones.
uno hace

Image1->Picture->Assign(NULL);

y el otro

TPicture *VoidPicture = new TPicture;
Imagen->Picture->Assign(VoidPicture);

Ambos cierran el TImage, es decir, se borra.

[[cHackAll]]

Muy cierto lo que dices escafandra, pero intenta no repetir tus posts. Hay un boton de "Editar" para realizar los cambios imprevistos, por favor úsalo.

[[escafandra]]

Empezado por cHackAll

Muy cierto lo que dices escafandra, pero intenta no repetir tus posts. Hay un boton de "Editar" para realizar los cambios imprevistos, por favor úsalo.

Ha sido un error mientras estaba editando el post para incluir un archivo... Me he dado cuente y no fue intencionado.

[fasthorse]

Si, a ti te sale, pero a mi no. Ainsss y no se por qué...lo tengo que abrir de alguna manera especial?? yo lo abro así:
if(cdAbrir->Execute()){
try{
Imagen->Picture->LoadFromFile(cdAbrir->FileName);
Caption= "Imagen-(" + cdAbrir->FileName + ")";
} catch(...) {
ShowMessage("No es posible cargar el archivo");
}
}
Vamos no se si tendrá que ver, pero no me sale... bueno seguiré probando, porque por algo será que no sale...
Muchas gracias.

[ucanneo]

Bueno... pues puedes probar solo con ocultarla

Image1->Hide();

ya luego cambairla solo cuando sea necesario, que igual no le pasa nada y es más recomendable ya que es más rápid si estas haciendo un programa con muchos gráficos (y por supuesto tienes una pc decente jejeje XD)

_______________________________________________________________


Pero si lo que quieres es "liberar" la imagen pues lo tienes que hacer desde el bitmap ya que este es el único que la puede liberar y dicho sea de paso "quitarla de la pantalla" (por cierto esto lo he sacado de la ayuda del builder y lo he probado)

Image1->Picture->Bitmap->FreeImage();

si lo haces desde otra propiedad esmuy posible que te de error




saludos

[fasthorse]

Oleee, ya lo conseguí!!! menos mal, creí que nunca me iba a funcionar!!!
Muchas gracias a tod@s por vuestra ayuda.
Saludos.