paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:16:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix editing grid cell in custom column even when it's set readonly

Browse Source 
git-svn-id: trunk@22437 -
This commit is contained in:
jesus 2009-11-04 21:31:27 +00:00
parent 400a6e7478
commit 8de5601593
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -6300,7 +6300,7 @@ var
C: TGridColumn; C: TGridColumn;
begin begin
Result:=(goEditing in options); Result:=(goEditing in options);
if Result and (ACol>=0) and (ACol<FColumns.Count) then begin if Result and (ACol>=0) and (ACol<ColCount) then begin
C:=ColumnFromGridColumn(ACol); C:=ColumnFromGridColumn(ACol);
Result:=(C<>nil) and (not C.ReadOnly); Result:=(C<>nil) and (not C.ReadOnly);
end; end;