paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 01:46:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: added system names to line-endings submenu of the source editor

Browse Source 
git-svn-id: trunk@23425 -
This commit is contained in:
dmitry 2010-01-12 07:18:47 +00:00
parent 660f7ad34d
commit 02f1dca712
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -4948,9 +4948,9 @@ begin
DiskLineEnding:=StringReplace(StringReplace(DiskLineEnding,#13,'CR',[rfReplaceAll]),#10,'LF',[rfReplaceAll]); DiskLineEnding:=StringReplace(StringReplace(DiskLineEnding,#13,'CR',[rfReplaceAll]),#10,'LF',[rfReplaceAll]);
//DebugLn(['TSourceNotebook.UpdateEncodingMenuItems ',Encoding]); //DebugLn(['TSourceNotebook.UpdateEncodingMenuItems ',Encoding]);
List:=TStringList.Create; List:=TStringList.Create;
List.add('LF'); List.add('LF (Unix)');
List.add('CR'); List.add('CR');
List.add('CRLF'); List.add('CRLF (DOS/Win)');
for i:=0 to List.Count-1 do begin for i:=0 to List.Count-1 do begin
CurName:='LineEnding'+IntToStr(i); CurName:='LineEnding'+IntToStr(i);
CurLineEnding:=List[i]; CurLineEnding:=List[i];