paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try using GetDefaultEditor instead of SelectEditor

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1981 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo 2011-09-21 19:32:46 +00:00
parent 8f8180c10e
commit c64b60c7fb
1 changed files with 33 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/jujiboutils/jujibo-utils/src/jdbgridcontrol.pas
View File

@ -20,7 +20,8 @@ type
doubleDbGridControl: TJDbGridDoubleCtrl;
protected
{ Protected declarations }
procedure SelectEditor; override;
//procedure SelectEditor; override;
function GetDefaultEditor(Column: integer): TWinControl; override;
public
{ Public declarations }
constructor Create(TheOwner: TComponent); override;
@ -42,17 +43,39 @@ end;
{ TJDBGridControl }
procedure TJDBGridControl.SelectEditor;
//procedure TJDBGridControl.SelectEditor;
//begin
// inherited SelectEditor;
// if Editor <> nil then
// begin
// case SelectedField.DataType of
// ftSmallint, ftInteger: Editor := integerDbGridControl.Editor(Self);
// ftDate: Editor := dateDbGridControl.Editor(Self); // TODO: ftDateTime ftTime
// ftCurrency, ftFloat, ftBCD: Editor := doubleDbGridControl.Editor(Self);
// // TODO: strings?
// end;
// end;
//end;
function TJDBGridControl.GetDefaultEditor(Column: integer): TWinControl;
var
//aColumn: TColumn;
aField: TField;
begin
inherited SelectEditor;
if Editor <> nil then
Result := inherited GetDefaultEditor(Column);
if Result <> nil then
begin
case SelectedField.DataType of
ftSmallint, ftInteger: Editor := integerDbGridControl.Editor(Self);
ftDate: Editor := dateDbGridControl.Editor(Self); // TODO: ftDateTime ftTime
ftCurrency, ftFloat, ftBCD: Editor := doubleDbGridControl.Editor(Self);
// TODO: strings?
end;
//aColumn := Columns.Items[Column - 1];
aField:= GetFieldFromGridColumn(Column);
//if aColumn <> nil then
if aField <> nil then;
//case aColumn.Field.DataType of
case aField.DataType of
ftSmallint, ftInteger: Result := integerDbGridControl.Editor(Self);
ftDate: Result := dateDbGridControl.Editor(Self);
ftCurrency, ftFloat, ftBCD: Result := doubleDbGridControl.Editor(Self);
// TODO: ftDateTime and ftTime. strings?
end;
end;
end;
@ -60,7 +83,6 @@ constructor TJDBGridControl.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
dateDbGridControl := TJDbGridDateCtrl.Create;
SelectEditor;
integerDbGridControl := TJDbGridIntegerCtrl.Create;
doubleDbGridControl := TJDbGridDoubleCtrl.Create;
end;