| Class TImpGridInplaceEdit (unit Impstringgrid) |
TInplaceEdit
Published declarations
| Constructors |
constructor Create(Owner: TComponent);| Functions |
procedure BoundsChanged;
procedure CloseUp(Accept: Boolean);
procedure DoDropDownKeys(var Key: Word; Shift: TShiftState);
procedure DropDown;
procedure KeyDown(var Key: Word; Shift: TShiftState);
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);
procedure ListMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SetEditStyle(Value: TEditStyle);
procedure StopTracking;
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| Events |
| Variables |
FActiveList : TWinControl;
FButtonWidth : Integer;
FEditStyle : TEditStyle;
FListVisible : Boolean;
FPickList : TPopupListbox;
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 : TPopupListboxproperty DataList: TDBLookupListBox read FDataList;
| Events |
| Variables |
FActiveList : TWinControl;
FButtonWidth : Integer;
FEditStyle : TEditStyle;FLookupSource: TDatasource;
FListVisible : Boolean;
FPickList : TPopupListbox;FDataList: TDBLookupListBox;
FPressed : Boolean;
FTracking : Boolean;