From f685567d123f380808cc401f07b17f07ff7c74b9 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 25 Nov 2008 19:25:38 +0000 Subject: [PATCH] Do not use the new inplace editor for numeric columns, instead use VT's default editor again. --- source/childwin.pas | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/source/childwin.pas b/source/childwin.pas index b138e484..c41a9aa1 100644 --- a/source/childwin.pas +++ b/source/childwin.pas @@ -6286,10 +6286,12 @@ var SetEditor: TSetEditorLink; InplaceEditor: TInplaceEditorLink; begin - if - (FDataGridResult.Columns[Column].IsText and prefEnableTextEditor) or - (FDataGridResult.Columns[Column].IsBinary and prefEnableBinaryEditor) - then begin + if FDataGridResult.Columns[Column].IsText then begin + InplaceEditor := TInplaceEditorLink.Create(Sender as TVirtualStringTree); + InplaceEditor.MaxLength := FDataGridResult.Columns[Column].MaxLength; + InplaceEditor.ButtonVisible := true; + EditLink := InplaceEditor; + end else if FDataGridResult.Columns[Column].IsBinary and prefEnableBinaryEditor then begin MemoEditor := TMemoEditorLink.Create; MemoEditor.MaxLength := FDataGridResult.Columns[Column].MaxLength; EditLink := MemoEditor; @@ -6305,12 +6307,8 @@ begin SetEditor := TSetEditorLink.Create; SetEditor.ValueList := FDataGridResult.Columns[Column].ValueList; EditLink := SetEditor; - end else begin - InplaceEditor := TInplaceEditorLink.Create(Sender as TVirtualStringTree); - InplaceEditor.MaxLength := FDataGridResult.Columns[Column].MaxLength; - InplaceEditor.ButtonVisible := true; - EditLink := InplaceEditor; - end; + end else + EditLink := TStringEditLink.Create; end;