Fix wrong PageIndex of data tab in printer implementation. Plus: Enable printing columns list on table editor. Fixes issue #1684.

This commit is contained in:
Ansgar Becker
2010-02-11 23:46:46 +00:00
parent f22fa996ba
commit 07308d66c9

View File

@@ -76,10 +76,12 @@ begin
else list := Mainform.ListCommandStats;
end;
1: list := Mainform.ListTables;
2: list := Mainform.DataGrid;
else list := Mainform.QueryGrid;
2: if Assigned(Mainform.TableEditor) and Mainform.TableEditor.Visible then
list := Mainform.TableEditor.listColumns;
else list := Mainform.ActiveGrid;
end;
list.Print(Printer, chkPrintHeader.Checked);
if Assigned(list) then
list.Print(Printer, chkPrintHeader.Checked);
Screen.Cursor := crDefault;
end;