From d46605f9c2e787a9d1bb4796d810939b3cb764db Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 18 May 2015 21:32:38 +0000
Subject: [PATCH] lcl: stringgrid: on paste in non editing cell call
 OnValidateEntry and OnEditingDone if compiled with
 -dEnableGridPasteValidateEntry

git-svn-id: trunk@49092 -
---
 lcl/grids.pas | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index f158740617..913dc0896c 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -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;