fix: quick filter prompts on numbers break WHERE clause through local formatting

Refs #2488

Author: ansgarbecker

source/main.pas

@@ -7497,6 +7497,7 @@ procedure TMainForm.QuickFilterClick(Sender: TObject);
   Item: TMenuItem;
   Conn: TDBConnection;
   ShiftKeyPressed: Boolean;
+  OldDataLocalNumberFormat: Boolean;
 begin
   // Set filter for "where..."-clause
   if (PageControlMain.ActivePage <> tabData) or (DataGrid.FocusedColumn = NoColumn) then
@@ -7519,7 +7520,10 @@ procedure TMainForm.QuickFilterClick(Sender: TObject);
           and (Conn.Parameters.NetTypeGroup = ngPgSQL) then begin
           Col := Col + '::text';
         end;
+        OldDataLocalNumberFormat := DataLocalNumberFormat;
+        DataLocalNumberFormat := False;
         Val := DataGrid.Text[DataGrid.FocusedNode, DataGrid.FocusedColumn];
+        DataLocalNumberFormat := OldDataLocalNumberFormat;
         if InputQuery(_('Specify filter-value...'), Act.Caption, Val) then begin
           if Act = actQuickFilterPrompt1 then
             Filter := Col + ' = ' + Conn.EscapeString(Val, TableCol.DataType)
@@ -12282,11 +12286,11 @@ procedure TMainForm.actCopyFormattedExecute(Sender: TObject);
     Exporter.Highlighter := SynMemo.Highlighter;
     Exporter.ExportAsText := False;
     Clipboard.Open;
-    Clipboard.TryAsText := SynMemo.SelText;
-    Exporter.ExportAll(Explode(SLineBreak, SynMemo.SelText));
-    Exporter.CopyToClipboard;
-    Clipboard.Close;
-  finally
+    Clipboard.TryAsText := SynMemo.SelText;
+    Exporter.ExportAll(Explode(SLineBreak, SynMemo.SelText));
+    Exporter.CopyToClipboard;
+    Clipboard.Close;
+  finally
     Exporter.Free;
   end;
 end;