paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 14:39:27 +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; fOptionsString: String;
FParsedOpts: TParsedCompilerOptions; FParsedOpts: TParsedCompilerOptions;
FStorePathDelim: TPathDelimSwitch; FStorePathDelim: TPathDelimSwitch;
fTargetFilename: string;
fXMLFile: String; fXMLFile: String;
FXMLConfig: TXMLConfig; FXMLConfig: TXMLConfig;
@ -552,7 +551,6 @@ type
fMsgFileName: String; // messages file name fMsgFileName: String; // messages file name
fCompilerMessages: TCompilerMessagesList; fCompilerMessages: TCompilerMessagesList;
procedure SetTargetFilename(const AValue: String);
protected protected
procedure SetBaseDirectory(const AValue: string); override; procedure SetBaseDirectory(const AValue: string); override;
procedure SetCompilerPath(const AValue: String); override; procedure SetCompilerPath(const AValue: String); override;
@ -568,6 +566,7 @@ type
procedure SetTargetCPU(const AValue: string); override; procedure SetTargetCPU(const AValue: string); override;
procedure SetTargetProc(const AValue: string); override; procedure SetTargetProc(const AValue: string); override;
procedure SetTargetOS(const AValue: string); override; procedure SetTargetOS(const AValue: string); override;
procedure SetTargetFilename(const AValue: String); override;
procedure SetModified(const AValue: boolean); override; procedure SetModified(const AValue: boolean); override;
protected protected
procedure LoadTheCompilerOptions(const Path: string); virtual; procedure LoadTheCompilerOptions(const Path: string); virtual;
@ -653,7 +652,6 @@ type
// Properties // Properties
property ParsedOpts: TParsedCompilerOptions read FParsedOpts; property ParsedOpts: TParsedCompilerOptions read FParsedOpts;
property BaseDirectory: string read FBaseDirectory write SetBaseDirectory; property BaseDirectory: string read FBaseDirectory write SetBaseDirectory;
property TargetFilename: String read fTargetFilename write SetTargetFilename;
property DefaultMakeOptionsFlags: TCompilerCmdLineOptions property DefaultMakeOptionsFlags: TCompilerCmdLineOptions
read FDefaultMakeOptionsFlags write SetDefaultMakeOptionsFlags; read FDefaultMakeOptionsFlags write SetDefaultMakeOptionsFlags;

3
ideintf/projectintf.pas
View File

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