залить форму картинкой

[NewLamer&Programer]

Аватар, вот это уже намного лучше, хотя я и не понял для чего там вычитание... только 2 проблемы: во 1 стала немного тормозить перемотка (по всей видимости из за перерисовок, а может мне просто кажется...), во 2 разделяющие линии стали белыми, надо как то закрасить черным... в общем сделал так

procedure TForm1.DGDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var xRect: TRect;
begin
xRect.Left:=0;
xRect.Top:=0;
xRect.Right:=Rect.Right-Rect.Left;
xRect.Bottom:=Rect.Bottom-Rect.Top;
DG.Canvas.CopyRect(Rect,bmp.Canvas,xRect);
DG.Canvas.Brush.Color:= clBlack;
DG.Canvas.FrameRect(Rect);
end;