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

Converter: use {$IFDEF FPC} instead of {$IFDEF LCL}

Browse Source 
git-svn-id: trunk@24266 -
This commit is contained in:
juha 2010-03-28 18:09:00 +00:00
parent 699d0d13ba
commit d25b0a5799
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/convcodetool.pas
View File

@ -222,7 +222,7 @@ begin
if (LclOnlyUnits.Count>0) or (DelphiOnlyUnits.Count>0) then begin
// Add LCL and Delphi sections for output.
nl:=fSrcCache.BeautifyCodeOptions.LineEnd;
s:='{$IFDEF LCL}'+nl+' ';
s:='{$IFDEF FPC}'+nl+' ';
for i:=0 to LclOnlyUnits.Count-1 do
s:=s+LclOnlyUnits[i]+', ';
s:=s+nl+'{$ELSE}'+nl+' ';
@ -261,7 +261,7 @@ begin
InsertPos:=CurPos.EndPos;
nl:=fSrcCache.BeautifyCodeOptions.LineEnd;
if fTarget=ctLazarusAndDelphi then
s:='{$IFDEF LCL}'+nl+' {$MODE Delphi}'+nl+'{$ENDIF}'
s:='{$IFDEF FPC}'+nl+' {$MODE Delphi}'+nl+'{$ENDIF}'
else
s:='{$MODE Delphi}';
fSrcCache.Replace(gtEmptyLine,gtEmptyLine,InsertPos,InsertPos,s);
@ -334,7 +334,7 @@ begin
begin
// Add IFDEF for .lfm and .dfm allowing Delphi to use .dfm.
nl:=fSrcCache.BeautifyCodeOptions.LineEnd;
s:='{$IFDEF LCL}'+nl+
s:='{$IFDEF FPC}'+nl+
' {$R *.lfm}'+nl+
'{$ELSE}'+nl+
' {$R *.dfm}'+nl+