Stringgrid Felder bei Formcreate färben

[Lucifer]

hm also ich meinte wie man es wegmachen kann
im attachment liegt ein screenshot davon was ich meine.

[mkinzler]

Schalte DefaultDrawing ab.

[Lucifer]

Super hatt geklappt vielen Dank

Hab da noch ein Problem:

Delphi-Quellcode:

  
  map:array[0..9,0..9] of integer =   ((-1,-1,-1,-1,-1,-1,-1,-1,-1,-1),   //0
                                       (-1, 0, 0, 0, 0, 0, 0, 0 ,0,-1),   //1
                                       (-1, 0, 0, 0, 0, 0, 0, 0, 0,-1),   //2
                                       (-1, 0,-1,-1, 0, 0, 0, 0, 0,-1),   //3
                                       (-1, 0,-1, 0, 0, 0, 0, 0, 0,-1),   //4
                                       (-1, 0, 0, 0, 2, 0, 0, 0, 0,-1),   //5
                                       (-1, 0, 0, 0, 0,-1,-1,-1, 0,-1),   //6
                                       (-1, 0,-1,-1,-1, 0, 0, 0, 0,-1),   //7
                                       (-1, 0, 0, 0, 0, 0, 0,-1, 0,-1),   //8
                                       (-1,-1,-1,-1,-1,-1,-1,-1,-1,-1));   //9

So sieht meine Map Array aus.

Aber irgendwie zeichnet er das Feld auf die Stringgrid um 90 grad gedreht.
Im Attachment kann man es nachschauen.

Delphi-Quellcode:

procedure TfrmMapMv.sgMapDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i,j:integer;
begin


      if(map[ACol,ARow]=-1)then
      begin
        sgMap.Canvas.Brush.Color:=clred;
        sgMap.Canvas.FillRect(Rect);
      end;
      if(map[ACol,ARow]=0)then
      begin
        sgMap.Canvas.Brush.Color:=clgreen;
        sgMap.Canvas.FillRect(Rect);
      end;
      if(map[ACol,ARow]=2)then
      begin
        sgMap.Canvas.Brush.Color:=clblue;
        sgMap.Canvas.FillRect(Rect);
      end;



end;

so sieht der OnDrawCell aus

[mkinzler]

Tausche mal die Dimensionen