KB10564 - I want to draw my own background but, for some reason, the drawing is always on the foreground?

My code is:

procedure TForm1.GISPaint(Sender: TObject); begin
; ;GIS.Canvas.Draw( 0, 0, Image1.Picture.Graphic );
; ;GIS.Draw ;
end;


In some circumstances the Draw is called more than once.

1) Test for GIS.InIncremental paint to avoid painting in incremental draw
2) Test for GIS.DrawMode <> gisDrawTop to avoid painting when only the topomost non-cached layers are drawn.

procedure TForm1.GISPaint(Sender: TObject); Begin
; ;if ( not GIS.InIncrementalPaint ) and ( GIS.DrawMode <> gisDrawTop ) then
; ; ;GIS.Canvas.Draw( 100, 100, Image1.Picture.Graphic );
; ;GIS.Draw ;
end;