From c726dddd4ab1623549f0b381aeaee6e693b3bf5c Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Mon, 16 Feb 2009 19:22:46 +0000 Subject: [PATCH] Fix GridToXYZ actions for query grid - warned about a missing unique key although the query grid does no delayed loading. (Broken in r2236) --- source/helpers.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/helpers.pas b/source/helpers.pas index bd1f640c..cbaa56fc 100644 --- a/source/helpers.pas +++ b/source/helpers.pas @@ -793,7 +793,7 @@ var begin // Check for unique key in DataGrid here instead of doing that indirectly // by EnsureFullWidth in the loop below - if not Mainform.CheckUniqueKeyClause then + if (Grid = Mainform.DataGrid) and (not Mainform.CheckUniqueKeyClause) then Exit; MaxSize := GetRegValue(REGNAME_COPYMAXSIZE, DEFAULT_COPYMAXSIZE) * SIZE_MB; @@ -916,7 +916,7 @@ var begin // Check for unique key in DataGrid here instead of doing that indirectly // by EnsureFullWidth in the loop below - if not Mainform.CheckUniqueKeyClause then + if (Grid = Mainform.DataGrid) and (not Mainform.CheckUniqueKeyClause) then Exit; separator := esc2ascii(separator); @@ -1002,7 +1002,7 @@ var begin // Check for unique key in DataGrid here instead of doing that indirectly // by EnsureFullWidth in the loop below - if not Mainform.CheckUniqueKeyClause then + if (Grid = Mainform.DataGrid) and (not Mainform.CheckUniqueKeyClause) then Exit; MaxSize := GetRegValue(REGNAME_COPYMAXSIZE, DEFAULT_COPYMAXSIZE) * SIZE_MB; @@ -1078,7 +1078,7 @@ var begin // Check for unique key in DataGrid here instead of doing that indirectly // by EnsureFullWidth in the loop below - if not Mainform.CheckUniqueKeyClause then + if (Grid = Mainform.DataGrid) and (not Mainform.CheckUniqueKeyClause) then Exit; MaxSize := GetRegValue(REGNAME_COPYMAXSIZE, DEFAULT_COPYMAXSIZE) * SIZE_MB;