paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 01:42:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: reverted line-ending menu comments of the IDE.

Browse Source 
git-svn-id: trunk@23480 -
This commit is contained in:
dmitry 2010-01-18 06:55:51 +00:00
parent e621d5cbfb
commit 989a3cf5c2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -4950,12 +4950,14 @@ begin
DiskLineEnding:=StringReplace(StringReplace(DiskLineEnding,#13,'CR',[rfReplaceAll]),#10,'LF',[rfReplaceAll]);
//DebugLn(['TSourceNotebook.UpdateEncodingMenuItems ',Encoding]);
List:=TStringList.Create;
List.add('LF (Unix)');
List.add('LF');
List.add('CR');
List.add('CRLF (DOS/Win)');
List.add('CRLF');
for i:=0 to List.Count-1 do begin
CurName:='LineEnding'+IntToStr(i);
CurLineEnding:=List[i];
// warning! captions are later used as replacment for actuall LineEndings.
// This is note good practice to mix data and user interface.
CurCaption:=CurLineEnding;
if SrcEditSubMenuLineEnding.Count=i then begin
// add new item