I've managed to modify Grids.pas (SaveToCSVStream, line 10452) for the headers:

* for i := 0 to ColCount-1 do begin*
* c := ColumnFromGridColumn(i);*
* if c=nil then*
* HeaderL.Add(Cells[i, 0])*
* else*
* if c.Visible then*
* HeaderL.Add(c.Title.Caption);*
* end;*

But the other "IF" for the data did not work:

* for i:=StartRow to RowCount-1 do begin*
* c := ColumnFromGridColumn(i);*
* if c nil then*
* if not c.Visible then Continue;*
* Rows[i].StrictDelimiter := False; //force quoting of strings that contain whitespace or Delimiter*
* Rows[i].Delimiter:=ADelimiter;*
* Lines.Add(Rows[i].DelimitedText);*
* end;*

Any ideas?

Ok, the second "for" is about the Rows, not the Columns (duh). And the "Rows[i]" does not know about visibility.
Maybe a hand-made FOR to create the line is needed?

2012/10/15 Alexsander Rosa

Please try this one:
- adds soVisibleOnly to SaveOptions
- with soVisibleOnly it checks the visibility
- without soVisibleOnly it works as before

No, you must create a patch.
http://wiki.lazarus.freepascal.org/Creating_A_Patch

It helps to look at your changes and (possibly) apply them.

Juha

Patch attached.

2012/10/15 Juha Manninen