1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

procedure sg9green(sender:tobject);
var n, k : integer;
begin
  k := 1; gr := true;
  repeat
    n := 3;
    repeat
      if form1.stringgrid9.cells[n,k] <> '' then gr := false;  inc(n);
    until not gr or (n = form1.stringgrid9.colcount-2);
    if not gr then
    begin
      form1.stringgrid9.cells[0,k] := form1.stringgrid9.cells[0,k]+' ';
      gr := true;
    end;
    inc(k);
  until not gr or (k = form1.stringgrid9.rowcount-1);
end;

procedure TForm1.stringgrid9DrawCell(Sender: TObject; aCol, aRow: Longint; Rect: TRect; State: TGridDrawState);
begin
  sg9green(self); //if gr = true then showmessage('1') else showmessage('0');
  with Tstringgrid(Sender), Canvas do
  begin
    //if gr = true then showmessage('1') else showmessage('0');  //if gdfixed in state then exit;
    if acol > 2 then
    begin
      if cells[acol, arow] <> '' then  brush.color := clgray
      else  brush.color := clwindow;
      fillrect(rect);
      textout(rect.left+2, rect.top+2, cells[acol, arow]);
    end;
    if arow = 0 then
    begin
      brush.color := clbtnface; fillrect(rect);
      textout(rect.left+2, rect.top+2, cells[acol, arow]);
    end;
    if (acol = 0) and (arow > 0) and gr then
    begin
      brush.color := clred;
      textout(rect.left+2, rect.top+2, cells[acol, arow]);   gr := false;
    end;
    if (acol = 0) and (arow > 0) and not gr then
    begin
      brush.color := clbtnface;
      textout(rect.left+2, rect.top+2, cells[acol, arow]);   gr := true;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure Tfrm.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  inherited;
  if (ARow >= sgArtNr.FixedRows) and (ACol >= sgArtNr.FixedCols) then begin
blabla
    else if (ACol in ZahlenCols) then with Sender as TStringGrid do begin
      if (ACol = 1) then begin
            canvas.Font.Name := 'Arial';
            canvas.Font.Size:=8;
            canvas.Font.Color:=clwhite;
            canvas.brush.Color := clBlack;
            canvas.TextOut(rect.Left,
                           rect.bottom-canvas.Textheight('TEST')-1,
                           ' TEST ');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with StringGrid1 do
    begin
      rowcount:=30;
      colcount:=24;
      FixedRows:=1;
      FixedCols:=3;
    end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);

  function ZeileIstLeer(Grid:TStringGrid;Zeile:integer):boolean;
  Var i:integer;
    begin
      result:=true;
      with grid do
        begin
          for i:=FixedCols to ColCount-1 do
            begin
              //evtl noch ein trim mit rtein, damit Leerzeichen nicht unerkannt bleiben
              if cells[i,Zeile]<>'' then
                begin
                  result:=false;
                  break;
                end;
            end;
        end;
    end;

begin
  //keine fixierten Zellen
  if gdfixed in state then exit;
  with sender as TStringGrid do
    begin
      //Farben entsprechend setzen
      if ZeileIstLeer(Sender as TStringGrid,arow) then
        begin
          //quote: wenn in einer (jeder) Zeile (> 1) alle Zellen (> 3) leer sind,
          //z.B. die zweite Zelle dieser (jeder) Zeile grün gefärbt wird??
          if not(odd(acol)) then canvas.Brush.color:=clgreen
                            else canvas.Brush.color:=clwindow;
        end
       else
        begin
          //sonst ganz normal zeichnen
          if gdselected in state then
            begin
              canvas.Brush.Color:=clHighlight;
              canvas.Font.Color :=clHighlightText;
            end
           else
            begin
              canvas.Brush.Color:=clWindow;
              canvas.Font.Color :=clWindowText;
            end;
        end;
      //Hintergrund färben und Text ausgeben
      canvas.FillRect(rect);
      canvas.TextOut(rect.left+2,rect.Top+2,cells[acol,arow]);
    end;
end;

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;const Value: string);
begin
  //Zelle hat sich gändert, ganzes Grid bzw ganze Zeile neu zeichnen
  //(sender as TStringGrid).repaint;
  with sender as TStringGrid do
    begin
      rows[arow]:=rows[arow];
    end;
end;