enhance: increase supported table size and row limit for quick filter menu showing distinct values

Author: ansgarbecker

source/main.pas

@@ -8180,7 +8180,7 @@ procedure TMainForm.QFvaluesClick(Sender: TObject);
   ShowStatusMsg(_('Fetching distinct values ...'));
   DbObj := ActiveDbObj;
   Conn := DbObj.Connection;
-  MaxSize := SIZE_GB;
+  MaxSize := SIZE_GB*2;
   ColumnHasIndex := DataGridResult.ColIsKeyPart(ResultCol)
     or DataGridResult.ColIsUniqueKeyPart(ResultCol)
     or DataGridResult.ColIsPrimaryKeyPart(ResultCol);
@@ -8194,7 +8194,7 @@ procedure TMainForm.QFvaluesClick(Sender: TObject);
     if not SynMemoFilter.Text.Trim.IsEmpty then
       Query := Query + ' WHERE ' + SynMemoFilter.Text.Trim + CRLF;
     Query := Query + ' GROUP BY '+Conn.QuoteIdent(ColName)+' ORDER BY c DESC, '+Conn.QuoteIdent(ColName);
-    Data := Conn.GetResults(Conn.ApplyLimitClause('SELECT', Query, 30, 0));
+    Data := Conn.GetResults(Conn.ApplyLimitClause('SELECT', Query, 50, 0));
     for i:=0 to Data.RecordCount-1 do begin
       if QFvalues.Count > i then
         Item := QFvalues[i]