Class TImpGridInplaceEdit (unit Impstringgrid) |
Inherits from
TInplaceEdit
Published declarations
constructor Create(Owner: TComponent);
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);
property ActiveList : TWinControl
property EditStyle : TEditStyle
property PickList : TPopupListbox
property DataList: TDBLookupListBox read FDataList;
FActiveList : TWinControl;
FButtonWidth : Integer;
FEditStyle : TEditStyle;
FLookupSource: TDatasource;
FListVisible : Boolean;
FPickList : TPopupListbox;
FDataList: TDBLookupListBox;
FPressed : Boolean;
FTracking : Boolean;
constructor Create(Owner: TComponent);
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);
property ActiveList : TWinControl
property EditStyle : TEditStyle
property PickList : TPopupListbox
property DataList: TDBLookupListBox read FDataList;
FActiveList : TWinControl;
FButtonWidth : Integer;
FEditStyle : TEditStyle;
FLookupSource: TDatasource;
FListVisible : Boolean;
FPickList : TPopupListbox;
FDataList: TDBLookupListBox;
FPressed : Boolean;
FTracking : Boolean;