Ver Mensaje Individual
  #1  
Antiguo 20-12-2010
elcigarra elcigarra is offline
Miembro
 
Registrado: may 2005
Posts: 269
Reputación: 19
elcigarra Va por buen camino
grafico de base en un TImage

Estimados quiero hacer un diagrama animado sobre un fondo estable par lo cual puse un gráfico de base en un TImage, el cual pretendo tomar en una variable TBitmap dibujarle el gráfico y plantarlo en el TImage que se muestra en la interfase.

Simplificadamente algo así:
ImageBase será la imagen con el gráfico de base
ImageResultado la que ve el usuario

Código Delphi [-]
procedure dibujardiagrama
var
  imagenauxiliar:TBitmap
begin
imagenauxiliar := ImageBase.Picture.Bitmap;
// ... acá los cálculos que sean para que cambie cada vez que llame el  procedimiento
imagenauxiliar.canvas.Fillrect(rect(etc...)); // esto no importa... son solo trazos
ImageResultado.Picture.Bitmap := aimagenauxiliar;
end;

El problema es que ImageBase también se le dibujan los trazos que supuestamente solo dibujo a imagenauxiliar, entonces la próxima vez que llamo al procedimiento imagebase está cambiada

Alguien sabe como evitar esto?
Responder Con Cita