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

Converter: Use defines just like in Delphi when simulating Delphi7.

Browse Source 
git-svn-id: trunk@41545 -
This commit is contained in:
juha 2013-06-05 10:53:22 +00:00
parent a15d7330b6
commit 18dec06fdd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
converter/convertdelphi.pas
View File

@ -1245,7 +1245,10 @@ begin
Options.ObjectPath:=CleanProjectSearchPath(Options.ObjectPath);
Options.SrcPath:=CleanProjectSearchPath(Options.SrcPath);
if fSettings.DelphiDefine then begin
s:='-dDelphi7 -dVer150 -dCompiler6_Up';
// "Borland" and "Ver150" are defined by Delphi7.
// "Delphi7" and "Compiler6_Up" are defined by Jedi library based on other settings.
// They are needed because Jedi.inc undefines "Borland" when "FPC" is defined. Nuts.
s:='-dBorland -dVer150 -dDelphi7 -dCompiler6_Up';
Options.CustomOptions:=s;
IDEMessagesWindow.AddMsg(Format(lisConvDelphiAddedCustomOptionDefines, [s]), '', -1);
end;