Delphi - Region

 
Vista:

Region

Publicado por Gabriel Pizarro (8 intervenciones) el 07/08/2003 16:33:51
Buenas....la consulta es la siguiente: ¿Como puedo refrescar o repintar solo una porcion (recuadro) de por ejemplo un Image en un formulario?
LEs comento . Les comento que estoy tratando de resolver esto mediante funciones api como // IntersectClipRect(dc, 0,30, 50, 50); y InvalidateRect(self.Handle ,@rect,false); pero aun no tengo exito. Si alguien sabe como hacerlo... se agradece la aproximacion. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Region

Publicado por Gabriel (8 intervenciones) el 07/08/2003 18:37:24
por ahi si le interesa a alguien... pude resolverlo de la siguiente manera chau....
procedure TForm1.Button1Click(Sender: TObject);
var
Rect: TRect;
x,y:Integer;
begin
ImagenFuente.Picture.Bitmap.LoadFromFile('c:\Casca.bmp');

x:=150; //Posiciones cualquieras
y:=100;

bitblt(ImagenDestino.Canvas.Handle ,
x,
y,
ImagenFuente.Picture.Bitmap.Width ,
ImagenFuente.Picture.Bitmap.Height,
ImagenFuente.Picture.Bitmap.Canvas.Handle ,0,0,SRCCOPY);

rect.Left:=Imagendestino.Left + x;
rect.Top:=ImagenDestino.top + y;
rect.Right:=Imagendestino.Left + x + ImagenFuente.Picture.Bitmap.Width;
rect.Bottom:=Imagendestino.Top + y + ImagenFuente.Picture.Bitmap.Height;


InvalidateRect(imagenDestino.Parent.Handle, @Rect, true);

end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar