Cita:
Empezado por Angel.Matilla
Tengo un formulario hecho en BCB 6 con un TImage que cargo a partir de una tabla de Firebird. Hasta ahí, ningún problema. Si la ficha tiene foto, la muestra. El problema viene cuando avanzo en la tabla; en este caso, si la nueva ficha no tiene foto que mostrar, el formulario no me limpia el TImage. Tengo puesto este código para cargar la imagen en el formulario:
Código:
TImage *Imagen = static_cast<TImage>(Source);
Imagen->Picture->Assign(NULL);
Imagen->Picture->Assign(qryTemp->FieldByName("Foto"));
y el query se carga a partir de una vista en FB y esto se ejecuta bien. ¿Qué puedo estar haciendo mal? |
Ese código debería limpiar el TImage, si es un Bitmap también debe limpiar así:
Código:
Imagen->Picture->Bitmap->Assign(NULL);
Dependiendo de si tienes un bucle que no permita leer los mensajes de Windows, quizás debas añadir:
Código:
Imagen->Update();
Saludos.