*Remove usage of deprecated constant

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4663 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2016-05-22 21:50:39 +00:00
parent 1ca31d8e2b
commit c3def8796b
2 changed files with 2 additions and 2 deletions
--- a/components/virtualtreeview-new/trunk/include/intf/win32/olemethods.inc
+++ b/components/virtualtreeview-new/trunk/include/intf/win32/olemethods.inc
@ -370,7 +370,7 @@ begin
      end;
  else
    if Format = CF_CSV then
-      S := ContentToAnsi(Source, ListSeparator) + #0
+      S := ContentToAnsi(Source, DefaultFormatSettings.ListSeparator) + #0
    else
      if (Format = CF_VRTF) or (Format = CF_VRTFNOOBJS) then
        S := ContentToRTF(Source) + #0