I'm still not sure how to iterate over the imagelist.
The code I have is...
index := ARow * grdPlayField.ColCount + ACol;
grdPlayField.Canvas.Brush.Color := clMaroon;
grdPlayField.Canvas.FillRect(Rect);
imlSpheres.Draw(grdPlayField.Canvas,Rect.Left,Rect .Top,index, True);
if (gdFocused in State) then
begin
grdPlayField.Canvas.DrawFocusRect(Rect);
end;
...It works for simply displaying the nine items on the grid in the appropriate cells, but I can't figure out how to tell Delphi to keep assigning the elements until the grid is full.
Bookmarks