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);
imagenauxiliar.canvas.Fillrect(rect(etc...)); 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