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:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (State * [gdSelected, gdFocused, gdFixed] = []) then
  begin
    // Hintergrund des Feldes Status einfärben
    if (Column.Field.FieldName='Status') then
    begin
      case Column.Field.AsInteger of
       0: DBGrid1.Canvas.Brush.Color := clYellow;
       5: DBGrid1.Canvas.Brush.Color := clGreen;
      10: DBGrid1.Canvas.Brush.Color := clBlue;
      end;
    end;

    // Schriftfarbe des Feldes EATyp setzen 
    if (Column.Field.FieldName='EATyp') then
    begin
      case Column.Field.AsInteger of
       0: DBGrid1.Canvas.font.Color := clYellow;
      10: DBGrid1.Canvas.font.Color := clGreen;
      20: DBGrid1.Canvas.font.Color := clRed;
      end;
      DBGrid1.Canvas.font.Style := DBGrid1.Canvas.font.Style + [fsBold];  // fett
    end;

    DBGrid1.Canvas.fillRect( rect );
  end;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  // Text ausgeben lassen
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

with DBGrid1.Canvas do begin
    if State = [gdSelected, gdFocused] then begin
       Brush.Color := clRed;
       Font.Color  := clWhite;
    end else begin
       Brush.Color := clWhite;
       Font.Color  := clRed;
    end;
    FillRect( Rect );
    TextOut( Rect.Left, Rect.Top, Column.Field.Text );
 end;                    

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

procedure TfrmMain.dbgMainTitleClick(Column: TColumn);
begin
  dmMain.tblTestFiles.DisableControls;
  dmMain.tblTestFiles.Active := False;
  try
    if boAufsteigend then
      dmMain.tblTestFiles.SQL.Text := 'Select * from KeyDefs Order by ' + Column.FieldName + '';
    else
      dmMain.tblTestFiles.SQL.Text := 'Select * from KeyDefs Order by ' + Column.FieldName + '' + ' DESC';
    boAufsteigend := not boAufsteigend;
  finally
    dmMain.tblTestFiles.Active   := True;
    dmMain.tblTestFiles.EnableControls;
  end;
end;