Schiffe versenken, Platzierung

[fui-tak]

Das müsste dann so gehen:

Delphi-Quellcode:

begin
      with sender as TDrawgrid do
        begin
          if not(arr2[acol,arow] = '*')  //wenn hier kein * ist, dann wird ... clRed ausgeführt
            then canvas.brush.color := clred
            else canvas.brush.color := clwhite;
           canvas.fillrect(rect);
        end;
end;