feat: Use fully qualified table name in "Select Top x rows" action when a click on it is combined with Shift

https://www.heidisql.com/forum.php?t=45359

Author: ansgarbecker

source/main.pas

@@ -5134,6 +5134,7 @@ procedure TMainForm.actQueryTableExecute(Sender: TObject);
   Obj: TDBObject;
   Tab: TQueryTab;
   Conn: TDBConnection;
+  TableName: String;
 begin
   // Query table data
   Conn := ActiveConnection;
@@ -5146,7 +5147,11 @@ procedure TMainForm.actQueryTableExecute(Sender: TObject);
 
   for Obj in Objects do begin
     Tab := GetOrCreateEmptyQueryTab(True);
-    Tab.Memo.Text := Conn.ApplyLimitClause('SELECT', '* FROM '+Obj.QuotedName, AppSettings.ReadInt(asDatagridRowsPerStep), 0);
+    if KeyPressed(VK_SHIFT) then
+      TableName := Obj.QuotedDbAndTableName
+    else
+      TableName := Obj.QuotedName;
+    Tab.Memo.Text := Conn.ApplyLimitClause('SELECT', '* FROM '+TableName, AppSettings.ReadInt(asDatagridRowsPerStep), 0);
     SetTabCaption(Tab.TabSheet.TabIndex, Obj.Name);
     actExecuteQueryExecute(Sender);
   end;