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

IDEIntf: compiler options: added TargetFilename

Browse Source 
git-svn-id: trunk@22008 -
This commit is contained in:
mattias 2009-10-03 22:34:05 +00:00
parent 7b6df74c2f
commit f5ce406aee
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/compileroptions.pp
View File

@ -536,7 +536,6 @@ type
fOptionsString: String;
FParsedOpts: TParsedCompilerOptions;
FStorePathDelim: TPathDelimSwitch;
fTargetFilename: string;
fXMLFile: String;
FXMLConfig: TXMLConfig;
@ -552,7 +551,6 @@ type
fMsgFileName: String; // messages file name
fCompilerMessages: TCompilerMessagesList;
procedure SetTargetFilename(const AValue: String);
protected
procedure SetBaseDirectory(const AValue: string); override;
procedure SetCompilerPath(const AValue: String); override;
@ -568,6 +566,7 @@ type
procedure SetTargetCPU(const AValue: string); override;
procedure SetTargetProc(const AValue: string); override;
procedure SetTargetOS(const AValue: string); override;
procedure SetTargetFilename(const AValue: String); override;
procedure SetModified(const AValue: boolean); override;
protected
procedure LoadTheCompilerOptions(const Path: string); virtual;
@ -653,7 +652,6 @@ type
// Properties
property ParsedOpts: TParsedCompilerOptions read FParsedOpts;
property BaseDirectory: string read FBaseDirectory write SetBaseDirectory;
property TargetFilename: String read fTargetFilename write SetTargetFilename;
property DefaultMakeOptionsFlags: TCompilerCmdLineOptions
read FDefaultMakeOptionsFlags write SetDefaultMakeOptionsFlags;

3
ideintf/projectintf.pas
View File

@ -281,6 +281,7 @@ type
FWin32GraphicApp: boolean;
FExecutableType: TCompilationExecutableType;
FUseExternalDbgSyms : Boolean;
fTargetFilename: string;
// Messages:
fShowErrors: Boolean;
@ -325,6 +326,7 @@ type
procedure SetTargetCPU(const AValue: string); virtual; abstract;
procedure SetTargetProc(const AValue: string); virtual; abstract;
procedure SetTargetOS(const AValue: string); virtual; abstract;
procedure SetTargetFilename(const AValue: String); virtual; abstract;
procedure SetModified(const AValue: boolean); virtual; abstract;
public
constructor Create(const TheOwner: TObject); virtual;
@ -395,6 +397,7 @@ type
property ExecutableType: TCompilationExecutableType
read FExecutableType write FExecutableType;
property UseExternalDbgSyms: Boolean read FUseExternalDbgSyms write FUseExternalDbgSyms;
property TargetFilename: String read fTargetFilename write SetTargetFilename;
// messages:
property ShowErrors: Boolean read fShowErrors write fShowErrors;