TDrawGrid does not paint entire canvas
lazarus / 39-Graphics

----------------------------------------------------------------------
PatBayford · 2017-08-09 21:35

I have a converted Delhi application that uses TDrawGrid and
TImageList to produce an image on a from. In  general the drawing
works fine, however, if the user has to use the scrollbars, any
portion of the grid outside the original boundary appears blank,
including cells which were drawn correctly originally. Have I missed a
significant switch somewhere, or is this a bug?
This is the cell drawing code
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TJigsawGameMainForm.dgGameDrawCell(Sender: TObject; aCol,  aRow:
Integer; aRect: TRect; aState: TGridDrawState);var i: Integer;begin  i
:= Game.DrawGameCell(ACol, ARow, aRect, aState);  if (i > -1) then   
Game.PieceImages.Draw(Frame1_1.dgGame.Canvas,     
ACol*(Frame1_1.dgGame.DefaultColWidth),     
ARow*(Frame1_1.dgGame.DefaultRowHeight),i,True)  else  with
Frame1_1.dgGame.Canvas do  begin    Brush.Color := clWindow;   
FillRect(aRect);  end;end;