Class TImpGridInplaceEdit (unit Impstringgrid)

Inherits from

TInplaceEdit

Published declarations

Constructors


constructor Create(Owner: TComponent);



Functions

procedure BoundsChanged;

FLookupSource := TDataSource.

procedure CloseUp(Accept: Boolean);


procedure DoDropDownKeys(var Key: Word; Shift: TShiftState);

with TImpStringGrid(Grid) do

procedure DropDown;


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

else FPickList.

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PaintWindow(DC: HDC);


procedure UpdateContents;


procedure WndProc(var Message: TMessage);


procedure CMCancelMode(var Message: TCMCancelMode);

if Assigned(Column.

procedure ListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetEditStyle(Value: TEditStyle);

esEllipsis

procedure StopTracking;

cbsNone, cbsEllipsis, or read only field

procedure TrackButton(X,Y: Integer);


procedure WMCancelMode(var Message: TMessage);


procedure WMKillFocus(var Message: TMessage);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


procedure WMPaint(var Message: TWMPaint);


procedure WMSetCursor(var Message: TWMSetCursor);


Properties

property ActiveList : TWinControl


property EditStyle : TEditStyle


property PickList : TPopupListbox

property DataList: TDBLookupListBox read FDataList;

Events

Variables

FActiveList : TWinControl;


FButtonWidth : Integer;


FEditStyle : TEditStyle;

FLookupSource: TDatasource;

FListVisible : Boolean;


FPickList : TPopupListbox;

FDataList: TDBLookupListBox;

FPressed : Boolean;


FTracking : Boolean;



Constructors


constructor Create(Owner: TComponent);


Functions


procedure BoundsChanged;

FLookupSource := TDataSource.Create(Self);


procedure CloseUp(Accept: Boolean);


procedure DoDropDownKeys(var Key: Word; Shift: TShiftState);

with TImpStringGrid(Grid) do


procedure DropDown;


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

else FPickList.ItemIndex := FPickList.Items.IndexOf(Column.Field.Value);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PaintWindow(DC: HDC);


procedure UpdateContents;


procedure WndProc(var Message: TMessage);


procedure CMCancelMode(var Message: TCMCancelMode);

if Assigned(Column.Field) then with Column.Field do begin { Show the dropdown button only if the field is editable } { if FieldKind = fkLookup then begin MasterField := Dataset.FieldByName(KeyFields); { Column.DefaultReadonly will always be True for a lookup field. Test if Column.ReadOnly has been assigned a value of True } { if Assigned(MasterField) and MasterField.CanModify and not ((cvReadOnly in Column.AssignedValues) and Column.ReadOnly) then with TCustomDBGrid(Grid) do if not ReadOnly and DataLink.Active and not Datalink.ReadOnly then NewStyle := esDataList end else if Assigned(Column.Picklist) and (Column.PickList.Count > 0) and not Column.Readonly then NewStyle := esPickList; end;


procedure ListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetEditStyle(Value: TEditStyle);

esEllipsis


procedure StopTracking;

cbsNone, cbsEllipsis, or read only field


procedure TrackButton(X,Y: Integer);


procedure WMCancelMode(var Message: TMessage);


procedure WMKillFocus(var Message: TMessage);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


procedure WMPaint(var Message: TWMPaint);


procedure WMSetCursor(var Message: TWMSetCursor);


Properties


property ActiveList : TWinControl


property EditStyle : TEditStyle


property PickList : TPopupListbox

property DataList: TDBLookupListBox read FDataList;


Events


Variables


FActiveList : TWinControl;


FButtonWidth : Integer;


FEditStyle : TEditStyle;

FLookupSource: TDatasource;


FListVisible : Boolean;


FPickList : TPopupListbox;

FDataList: TDBLookupListBox;


FPressed : Boolean;


FTracking : Boolean;