Class TrDBCtrlGridEx

Unit

rDBCtrlGridEx

Declaration

type TrDBCtrlGridEx = class(TWinControl)

Description

modified TDBCtrlGrid with some new function, ready for displaying inside of ScrollBox with smooth scrolling, scrollbar can be disabled, new function for drawing in panel is added

Hierarchy

• TWinControl
• TrDBCtrlGridEx

Overview

Methods

	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
	procedure DoKey(Key: TDBCtrlGrid2Key);
	function ExecuteAction(Action: TBasicAction): Boolean; override;
	procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
	procedure GetTabOrderList(List: TList); override;
	procedure KeyDown(var Key: Word; Shift: TShiftState); override;
	procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
	function UpdateAction(Action: TBasicAction): Boolean; override;

Properties

	property Canvas: TCanvas read FCanvas;
	property EditMode: Boolean read GetEditMode write SetEditMode;
	property PanelCount: Integer read FPanelCount;
	property PanelIndex: Integer read FPanelIndex write SetPanelIndex;
	property Align;
	property AllowDelete: Boolean read FAllowDelete write FAllowDelete default True;
	property AllowInsert: Boolean read FAllowInsert write FAllowInsert default True;
	property Anchors;
	property ColCount: Integer read FColCount write SetColCount;
	property Color;
	property Constraints;
	property DataSource: TDataSource read GetDataSource write SetDataSource;
	property DragCursor;
	property DragMode;
	property Enabled;
	property Font;
	property Orientation: TDBCtrlGrid2Orientation read FOrientation write SetOrientation default goVertical;
	property PanelBorder: TDBCtrlGrid2Border read FPanelBorder write SetPanelBorder default gbRaised;
	property PanelHeight: Integer read FPanelHeight write SetPanelHeight;
	property PanelWidth: Integer read FPanelWidth write SetPanelWidth;
	property ParentColor;
	property ParentFont;
	property ParentShowHint;
	property PopupMenu;
	property TabOrder;
	property TabStop default True;
	property RowCount: Integer read FRowCount write SetRowCount;
	property SelectedColor: TColor read FSelectedColor write SetSelectedColor stored FSelColorChanged default clWindow;
	property ShowFocus: Boolean read FShowFocus write FShowFocus default True;
	property ShowHint;
	property Visible;
	property OnClick;
	property OnDblClick;
	property OnDragDrop;
	property OnDragOver;
	property OnEndDrag;
	property OnEnter;
	property OnExit;
	property OnKeyDown;
	property OnKeyPress;
	property OnKeyUp;
	property OnMouseDown;
	property OnMouseMove;
	property OnMouseUp;
	property OnPaintPanel: TPaintPanelEvent read FOnPaintPanel write FOnPaintPanel;
	property OnPaintPanelBackground: TPaintPanelBackgroundEvent read FOnPaintPanelBackground write FOnPaintPanelBackground;
	property OnStartDrag;
	property ScrollBars: TScrollBarsEx read FScrollBars write SetScrollBars;

Description

Methods

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

	procedure DoKey(Key: TDBCtrlGrid2Key);

	function ExecuteAction(Action: TBasicAction): Boolean; override;

	procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;

	procedure GetTabOrderList(List: TList); override;

	procedure KeyDown(var Key: Word; Shift: TShiftState); override;

	procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;

	function UpdateAction(Action: TBasicAction): Boolean; override;

Properties

	property Canvas: TCanvas read FCanvas;

	property EditMode: Boolean read GetEditMode write SetEditMode;

	property PanelCount: Integer read FPanelCount;

	property PanelIndex: Integer read FPanelIndex write SetPanelIndex;

	property Align;

	property AllowDelete: Boolean read FAllowDelete write FAllowDelete default True;

	property AllowInsert: Boolean read FAllowInsert write FAllowInsert default True;

	property Anchors;

	property ColCount: Integer read FColCount write SetColCount;

	property Color;

	property Constraints;

	property DataSource: TDataSource read GetDataSource write SetDataSource;

	property DragCursor;

	property DragMode;

	property Enabled;

	property Font;

	property Orientation: TDBCtrlGrid2Orientation read FOrientation write SetOrientation default goVertical;

	property PanelBorder: TDBCtrlGrid2Border read FPanelBorder write SetPanelBorder default gbRaised;

	property PanelHeight: Integer read FPanelHeight write SetPanelHeight;

	property PanelWidth: Integer read FPanelWidth write SetPanelWidth;

	property ParentColor;

	property ParentFont;

	property ParentShowHint;

	property PopupMenu;

	property TabOrder;

	property TabStop default True;

	property RowCount: Integer read FRowCount write SetRowCount;

	property SelectedColor: TColor read FSelectedColor write SetSelectedColor stored FSelColorChanged default clWindow;

	property ShowFocus: Boolean read FShowFocus write FShowFocus default True;

	property ShowHint;

	property Visible;

	property OnClick;

	property OnDblClick;

	property OnDragDrop;

	property OnDragOver;

	property OnEndDrag;

	property OnEnter;

	property OnExit;

	property OnKeyDown;

	property OnKeyPress;

	property OnKeyUp;

	property OnMouseDown;

	property OnMouseMove;

	property OnMouseUp;

	property OnPaintPanel: TPaintPanelEvent read FOnPaintPanel write FOnPaintPanel;

	property OnPaintPanelBackground: TPaintPanelBackgroundEvent read FOnPaintPanelBackground write FOnPaintPanelBackground;

	property OnStartDrag;

	property ScrollBars: TScrollBarsEx read FScrollBars write SetScrollBars;