pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxDBGrid: fix updown editor in grid cell with null values

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4080 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-04-09 12:38:05 +00:00
parent 389c4646f5
commit eff8bcad61
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/rx/trunk/rxdbgrid.pas
View File

@ -1237,12 +1237,14 @@ begin
begin begin
if not (F.DataSet.State in dsEditModes) then if not (F.DataSet.State in dsEditModes) then
F.DataSet.Edit; F.DataSet.Edit;
if F.IsNull then
F.Value:=0;
F.Value:=F.Value - 1; F.Value:=F.Value - 1;
Msg.LclMsg.msg:=GM_SETVALUE; Msg.LclMsg.msg:=GM_SETVALUE;
Msg.Grid:=Col.Grid; Msg.Grid:=Col.Grid;
{ Msg.Col:=FCol;
Msg.Row:=FRow;}
Msg.Value:=F.DisplayText; Msg.Value:=F.DisplayText;
TRxDBGrid(Col.Grid).Editor.Dispatch(Msg); TRxDBGrid(Col.Grid).Editor.Dispatch(Msg);
@ -1263,15 +1265,15 @@ begin
begin begin
if not (F.DataSet.State in dsEditModes) then if not (F.DataSet.State in dsEditModes) then
F.DataSet.Edit; F.DataSet.Edit;
if F.IsNull then
F.Value:=0;
F.Value:=F.Value + 1; F.Value:=F.Value + 1;
Msg.LclMsg.msg:=GM_SETVALUE; Msg.LclMsg.msg:=GM_SETVALUE;
Msg.Grid:=Col.Grid; Msg.Grid:=Col.Grid;
{ Msg.Col:=FCol;
Msg.Row:=FRow;}
Msg.Value:=F.DisplayText; Msg.Value:=F.DisplayText;
TRxDBGrid(Col.Grid).Editor.Dispatch(Msg); TRxDBGrid(Col.Grid).Editor.Dispatch(Msg);
end; end;
end; end;