Кам при прокрутке зафиксировать левое поле сетки? |
Previous Top Next |
Code: |
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. |
©Drkb::03069
Взято с http://delphiworld.narod.ru