Советы по Delphi. Версия 1.4.3 от 1.1.2001

// ----------------------------------------------------------------------------

procedure TDbGridEx.KeyDown(var Key: Word; Shift: TShiftState);

begin

 if (Key = VK_LEFT) then ColBeforeEnter(-1);

 if (Key = VK_RIGHT) then ColBeforeEnter(1);

 inherited;

end;

// ----------------------------------------------------------------------------

procedure TDbGridEx.SetFreezeColor(AColor : TColor);

begin

 InvalidateRow(0);

end;

// ----------------------------------------------------------------------------

procedure TDbGridEx.SetFreezeCols(AFreezeCols : Integer);

begin

 FFreezeCols := AFreezeCols;

 InvalidateRow(0);

end;

// ----------------------------------------------------------------------------

procedure TDbGridEx.ColEnter;

begin

 ColBeforeEnter(0);

 if Assigned(OnColEnter) then OnColEnter(Self);

end;

// ----------------------------------------------------------------------------

procedure TDbGridEx.ColBeforeEnter(ADelta : Integer);

var nIndex : Integer;

 function ReadWidth : Integer;

 var i : Integer;

 begin

  i := _HideColumns.IndexOf(Columns[nIndex]);

  if i = -1 then result := 120

  else result := Integer(_HideColumnsValues[i]);

 end;

 procedure SaveWidth;

 var i : Integer;

 begin

  i := _HideColumns.IndexOf(Columns[nIndex]);

  if i <> - 1 then begin

   _HideColumnsValues[i] := Pointer(Columns[nIndex].Width);

  end else begin

   _HideColumns.Add(Columns[nIndex]);

   _HideColumnsValues.Add(Pointer(Columns[nIndex].Width));

  end;

 end;

begin

 for nIndex := 0 to Columns.Count - 1 do begin

  if (Columns[nIndex].Width = 0)  then begin

   if (nIndex + 1 <= FreezeCols) or (nIndex >= SelectedIndex + ADelta) then

    Columns[nIndex].Width := ReadWidth;

  end else begin

   SaveWidth;

   if (nIndex + 1 > FreezeCols) and (nIndex < SelectedIndex + ADelta) and

    (nIndex + 1 < Columns.Count) and (FreezeCols > 0) then

    Columns[nIndex].Width := 0;

  end;

 end;

end;

Dbgrid с цветными ячейками IV

Nomadic советует:

Hапример, так:

DefaultDrawing:=False;

….

procedure TfrmCard.GridDrawColumnCell(Sender: TObject; constRect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);

var

 Index : Integer;

 Marked, Selected: Boolean;

begin

 Marked := False;

 if (dgMultiSelect in Grid.Options) and THackDBGrid(Grid).Datalink.Active then

 Marked:=Grid.SelectedRows.Find(THackDBGrid(Grid).Datalink.Datasource.Dataset.Bookmark, Index);

 Selected := THackDBGrid(Grid).Datalink.Active and (Grid.Row-1 = THackDBGrid(Grid).Datalink.ActiveRecord);

 if Marked then begin

  Grid.Canvas.Brush.Color:=$DFEFDF;

  Grid.Canvas.Font.Color :=clBlack;

 end;

 if Selected then begin

  Grid.Canvas.Brush.Color:=$FFFBF0;

  Grid.Canvas.Font.Color :=clBlack;

  if Marked then Grid.Canvas.Brush.Color:=$EFE3DF; { $8F8A30 }

 end;