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

SynrEdit: lfm highlighter, clean up, issue #0024700

Browse Source 
git-svn-id: trunk@42151 -
This commit is contained in:
martin 2013-07-20 11:06:18 +00:00
parent ebabff748c
commit 1ecadffa73
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synhighlighterlfm.pas
View File

@ -176,9 +176,6 @@ function LoadLFMFile2Strings(const AFile: string; AStrings: TStrings;
var WasText: boolean): integer; var WasText: boolean): integer;
var var
Src, Dest: TStream; Src, Dest: TStream;
{$IFDEF SYN_COMPILER_5_UP}
origFormat: TStreamOriginalFormat;
{$ENDIF}
begin begin
Result := 0; Result := 0;
WasText := FALSE; WasText := FALSE;
@ -188,13 +185,7 @@ begin
try try
Dest := TMemoryStream.Create; Dest := TMemoryStream.Create;
try try
{$IFDEF SYN_COMPILER_5_UP}
origFormat := sofUnknown; //riceball 2000-11-17
ObjectResourceToText(Src, Dest, origFormat);
WasText := origFormat = sofText;
{$ELSE}
ObjectResourceToText(Src, Dest); ObjectResourceToText(Src, Dest);
{$ENDIF}
Dest.Seek(0, soFromBeginning); Dest.Seek(0, soFromBeginning);
AStrings.LoadFromStream(Dest); AStrings.LoadFromStream(Dest);
finally finally