Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-12-2010
elcigarra elcigarra is offline
Miembro
 
Registrado: may 2005
Posts: 269
Poder: 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
  #2  
Antiguo 20-12-2010
elcigarra elcigarra is offline
Miembro
 
Registrado: may 2005
Posts: 269
Poder: 19
elcigarra Va por buen camino
Perdon, ya esta, nada que un momento de lucidez no arregle

Código Delphi [-]
procedure dibujardiagrama
var
  imagenauxiliar : TImage;
begin
imagenauxiliar.create(nil);
imagenauxiliar.width := ...
imagenauxiliar.Height := ...
imagenauxiliar.canvas.draw(0,0,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.canvas.draw(0,0,aimagenauxiliar.picture.bitmap);
end;

Es que hace tiempo no usaba graficos

Tal vez haya otra forma pero así funciona
Saludos
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
un grafico velezbunzl Gráficos 0 27-02-2009 07:31:52
Timage y Base de datos einarcito SQL 8 10-10-2008 21:07:29
como Hacer que un TImage siga a un Timage? j_flores3000 OOP 8 27-03-2008 19:47:50
Copiar Bitmap de un TImage a otro TImage quinqui Gráficos 2 24-01-2008 16:22:30
como combinar 2 Timage en un tercer Timage JefeNet Gráficos 10 02-09-2004 17:51:35


La franja horaria es GMT +2. Ahora son las 22:34:45.


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