Set font size per Ctrl + mousewheel in any grid view.

This commit is contained in:
Ansgar Becker
2015-12-13 21:18:02 +00:00
parent b229ecc762
commit 263904382a
2 changed files with 36 additions and 13 deletions

View File

@ -348,18 +348,7 @@ begin
Mainform.SetupSynEditors;
// Set relevant properties in mainform
Mainform.DataGrid.Font.Name := comboDataFontName.Text;
Mainform.DataGrid.Font.Size := updownDataFontSize.Position;
FixVT(Mainform.DataGrid, updownGridRowsLineCount.Position);
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
Grid := QueryTab.ResultTabs[j].Grid;
Grid.Font.Name := comboDataFontName.Text;
Grid.Font.Size := updownDataFontSize.Position;
FixVT(Grid, updownGridRowsLineCount.Position);
end;
end;
MainForm.ApplyFontToGrids;
Mainform.LogToFile := chkLogToFile.Checked;
DatatypeCategories[dtcInteger].Color := FGridTextColors[dtcInteger];