Do not use the new inplace editor for numeric columns, instead use VT's default editor again.

This commit is contained in:
Ansgar Becker
2008-11-25 19:25:38 +00:00
parent c9fe77894a
commit f685567d12

View File

@ -6286,10 +6286,12 @@ var
SetEditor: TSetEditorLink; SetEditor: TSetEditorLink;
InplaceEditor: TInplaceEditorLink; InplaceEditor: TInplaceEditorLink;
begin begin
if if FDataGridResult.Columns[Column].IsText then begin
(FDataGridResult.Columns[Column].IsText and prefEnableTextEditor) or InplaceEditor := TInplaceEditorLink.Create(Sender as TVirtualStringTree);
(FDataGridResult.Columns[Column].IsBinary and prefEnableBinaryEditor) InplaceEditor.MaxLength := FDataGridResult.Columns[Column].MaxLength;
then begin InplaceEditor.ButtonVisible := true;
EditLink := InplaceEditor;
end else if FDataGridResult.Columns[Column].IsBinary and prefEnableBinaryEditor then begin
MemoEditor := TMemoEditorLink.Create; MemoEditor := TMemoEditorLink.Create;
MemoEditor.MaxLength := FDataGridResult.Columns[Column].MaxLength; MemoEditor.MaxLength := FDataGridResult.Columns[Column].MaxLength;
EditLink := MemoEditor; EditLink := MemoEditor;
@ -6305,12 +6307,8 @@ begin
SetEditor := TSetEditorLink.Create; SetEditor := TSetEditorLink.Create;
SetEditor.ValueList := FDataGridResult.Columns[Column].ValueList; SetEditor.ValueList := FDataGridResult.Columns[Column].ValueList;
EditLink := SetEditor; EditLink := SetEditor;
end else begin end else
InplaceEditor := TInplaceEditorLink.Create(Sender as TVirtualStringTree); EditLink := TStringEditLink.Create;
InplaceEditor.MaxLength := FDataGridResult.Columns[Column].MaxLength;
InplaceEditor.ButtonVisible := true;
EditLink := InplaceEditor;
end;
end; end;