Feld in Stringgrid färben

[Hansa]

Geht das immer noch nicht ? Das hier (steht im OnDrawCell) zeichnet alle Zellen in denen 1 steht weiß auf dunkelblau :

Delphi-Quellcode:

      if ACol = 1 then begin
        if IntoStr (Cells [ACol,ARow] = 1 then begin
          canvas.Font.Size:= 8;
          canvas.Font.Color:= clwhite;
          canvas.brush.Color := clNavy;
          canvas.TextOut(rect.Left,rect.bottom-canvas.Textheight('X')-1,
                         Cells [ACol,ARow]);
        end;
      end

Und das geht definitiv. Die Bedingung "= 1" lässt sich ja wohl leicht anpassen. 8)