Include invisible mother query grid when applying custom font name + …

…size, so TResultTab.Create copies the updated values. See https://www.heidisql.com/forum.php?t=36177
HeidiSQL · May 4, 2020 · fdbac13 · fdbac13
1 parent 53d0316
commit fdbac13
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/source/main.pas b/source/main.pas
@@ -8186,6 +8186,10 @@ procedure TMainForm.ApplyFontToGrids;
   DataGrid.Font.Name := AppSettings.ReadString(asDataFontName);
   DataGrid.Font.Size := AppSettings.ReadInt(asDataFontSize);
   FixVT(Mainform.DataGrid, AppSettings.ReadInt(asGridRowLineCount));
+  // .. include invisible mother query grid
+  QueryGrid.Font.Name := AppSettings.ReadString(asDataFontName);
+  QueryGrid.Font.Size := AppSettings.ReadInt(asDataFontSize);
+  // .. and all chid query grids
   for i:=Mainform.tabQuery.PageIndex to Mainform.PageControlMain.PageCount-1 do begin
     QueryTab := Mainform.QueryTabs[i-Mainform.tabQuery.PageIndex];
     for j:=0 to QueryTab.ResultTabs.Count-1 do begin