unit Fcdgrid;
interface
uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
 Forms, Dialogs, Grids, DBGrids, DBCtrls, DB, Menus;
type
 TFixedColDBGrid = class(TDBGrid)
 private
  FUserFixedCols: Integer;
 protected
  procedure LayoutChanged; override;
  procedure SetUserFixedCols(I: Integer);
 published
  property UserFixedCols: Integer read FUserFixedCols write SetUserFixedCols;
 end;
procedure Register;
implementation
procedure Register;
begin
 RegisterComponents('Data Controls', [TFixedColDBGrid]);
end;
procedure TFixedColDBGrid.LayoutChanged;
begin
 inherited LayoutChanged; { присваиваем FixedCols 1 если индикатор, иначе 0 }
 if ((inherited FixedCols + FUserFixedCols) < inherited ColCount) then
  inherited FixedCols := (FUserFixedCols + inherited FixedCols);
end;
procedure TFixedColDBGrid.SetUserFixedCols(I: Integer);
begin
 FUserFixedCols := I;
 LayoutChanged;
end;
end.