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

lcl: stringgrid: on paste in non editing cell call OnValidateEntry and OnEditingDone if compiled with -dEnableGridPasteValidateEntry

Browse Source 
git-svn-id: trunk@49092 -
This commit is contained in:
mattias 2015-05-18 21:32:38 +00:00
parent 7780f32ee7
commit d46605f9c2
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/grids.pas
View File

@ -10631,6 +10631,10 @@ var
Inc(P);
end;
end;
var
aCol: Integer;
aRow: Integer;
NewValue: String;
begin
L := TStringList.Create;
SubL := TStringList.Create;
@ -10644,11 +10648,23 @@ begin
CollectCols(L[j]);
for i:=0 to SubL.Count-1 do
if (i+StartCol<ColCount) and (not GetColumnReadonly(i+StartCol)) then
Cells[i + StartCol, j + StartRow] := SubL[i];
begin
aCol := i+StartCol;
aRow := j+StartRow;
NewValue := SubL[i];
{$IFDEF EnableGridPasteValidateEntry}
if not ValidateEntry(aCol,aRow,Cells[aCol,aRow],NewValue) then
break;
{$ENDIF}
Cells[aCol, aRow] := NewValue;
end;
end;
finally
SubL.Free;
L.Free;
{$IFDEF EnableGridPasteValidateEntry}
EditingDone;
{$ENDIF}
end;
end;