pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

*Remove usage of deprecated constant

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4663 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2016-05-22 21:50:39 +00:00
parent 1ca31d8e2b
commit c3def8796b
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview-new/branches/4.8/include/intf/win32/olemethods.inc
View File

@ -370,7 +370,7 @@ begin
end; end;
else else
if Format = CF_CSV then if Format = CF_CSV then
S := ContentToAnsi(Source, ListSeparator) + #0 S := ContentToAnsi(Source, DefaultFormatSettings.ListSeparator) + #0
else else
if (Format = CF_VRTF) or (Format = CF_VRTFNOOBJS) then if (Format = CF_VRTF) or (Format = CF_VRTFNOOBJS) then
S := ContentToRTF(Source) + #0 S := ContentToRTF(Source) + #0

2
components/virtualtreeview-new/trunk/include/intf/win32/olemethods.inc
View File

@ -370,7 +370,7 @@ begin
end; end;
else else
if Format = CF_CSV then if Format = CF_CSV then
S := ContentToAnsi(Source, ListSeparator) + #0 S := ContentToAnsi(Source, DefaultFormatSettings.ListSeparator) + #0
else else
if (Format = CF_VRTF) or (Format = CF_VRTFNOOBJS) then if (Format = CF_VRTF) or (Format = CF_VRTFNOOBJS) then
S := ContentToRTF(Source) + #0 S := ContentToRTF(Source) + #0