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

LCL, check range and readonly columns on pasting data into grid, from Tomasz Wieckowski, issue #18213

Browse Source 
git-svn-id: trunk@32504 -
This commit is contained in:
jesus 2011-09-24 18:21:59 +00:00
parent 230dedbde2
commit 6aa2dad49f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -9887,9 +9887,12 @@ begin
try try
L.Text := TheText; L.Text := TheText;
for j:=0 to L.Count-1 do begin for j:=0 to L.Count-1 do begin
if j+StartRow >= RowCount then
break;
CollectCols(L[j]); CollectCols(L[j]);
for i:=0 to SubL.Count-1 do for i:=0 to SubL.Count-1 do
Cells[i + StartCol, j + StartRow] := SubL[i]; if (i+StartCol<ColCount) and (not GetColumnReadonly(i+StartCol)) then
Cells[i + StartCol, j + StartRow] := SubL[i];
end; end;
finally finally
SubL.Free; SubL.Free;