Simplify code and remove remaining debug output

This commit is contained in:
Ansgar Becker
2009-01-19 23:53:07 +00:00
parent 1fae914af7
commit 327450e9fd

View File

@ -2240,14 +2240,9 @@ begin
if g = nil then begin messagebeep(MB_ICONASTERISK); exit; end;
Screen.Cursor := crHourGlass;
showstatus('Saving contents to file...');
if g = DataGrid then begin
EnsureFullWidth(g, g.FocusedColumn, g.FocusedNode);
IsBinary := FDataGridResult.Columns[DataGrid.FocusedColumn].IsBinary;
end else begin
IsBinary := FQueryGridResult.Columns[QueryGrid.FocusedColumn].IsBinary;
end;
IsBinary := ActiveData.Columns[g.FocusedColumn].IsBinary;
Content := g.Text[g.FocusedNode, g.FocusedColumn];
logsql(g.Name);
GetTempPath(MAX_PATH, tmppath);
filename := tmppath;