Как зафиксировать один или несколько столбцов в TDBGrid 2

Автор: Nomadic

Звонит программер своей девушке в дверь, а она не открывает.
- Неустранимая ошибка по адресу Lenin st. 10/5/44 второй этаж, - подумал программер.

Это маленькая вставка в Ваш наследник от TCustomDBGrid, которая решает данную задачу.

// DBGRIDEX.PAS
// ----------------------------------------------------------------------------

destructor TDbGridEx.Destroy;
begin

  _HideColumnsValues.Free;
  _HideColumns.Free;

  inherited Destroy;
end;

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

constructor TDbGridEx.Create(Component: TComponent);
begin

  inherited Create(Component);

  FFreezeCols := ?;

  _HideColumnsValues := TList.Create;
  _HideColumns := TList.Create;
end;

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

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 708 • TDictionary Custom Sort 5 837 • Fast Watermark Sources 5 641 • 3D Designer 8 291 • Sik Screen Capture 5 961 • Patch Maker 6 421 • Айболит (remote control) 6 414 • ListBox Drag & Drop 5 272 • Доска для игры Реверси 94 638 • Графические эффекты 6 608 • Рисование по маске 5 688 • Перетаскивание изображений 4 793 • Canvas Drawing 5 166 • Рисование Луны 4 897 • Поворот изображения 4 442 • Рисование стержней 3 147 • Paint on Shape 2 391 • Генератор кроссвордов 3 259 • Головоломка Paletto 2 581 • Теорема Монжа об окружностях 3 358 • Пазл Numbrix 2 228 • Заборы и коммивояжеры 2 875 • Игра HIP 1 853 • Игра Go (Го) 1 766 • Симулятор лифта 2 097 • Программа укладки плитки 1 832 • Генератор лабиринта 2 267 • Проверка числового ввода 1 957 • HEX View 2 257 • Физический маятник 1 936