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

fix RxDBGrid - AV in edit buttons if in DataSet not exists columns

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2509 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-09-07 14:12:36 +00:00
parent c9e610680b
commit 608708e249
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxdbgrid.pas
View File

@@ -3532,7 +3532,7 @@ begin
inherited DoEditorHide; inherited DoEditorHide;
R:=SelectedColumn as TRxColumn; R:=SelectedColumn as TRxColumn;
if Assigned(Editor) then if Assigned(Editor) and Assigned(R) then
for i:=0 to R.EditButtons.Count-1 do for i:=0 to R.EditButtons.Count-1 do
R.EditButtons[i].FButton.Visible:=false; R.EditButtons[i].FButton.Visible:=false;
end; end;
@@ -3546,7 +3546,7 @@ begin
R:=SelectedColumn as TRxColumn; R:=SelectedColumn as TRxColumn;
if Assigned(Editor) then if Assigned(Editor) and Assigned(R) then
begin begin
W:=0; W:=0;
for i:=0 to R.EditButtons.Count-1 do for i:=0 to R.EditButtons.Count-1 do