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

IDE: reset BuildTarget after project options

Browse Source 
git-svn-id: trunk@27623 -
This commit is contained in:
mattias 2010-10-08 16:51:29 +00:00
parent 3d26d69da8
commit 86d16f0a51
3 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/compileroptions.pp
View File

@ -548,6 +548,7 @@ type
procedure SetTargetProc(const AValue: string); override;
procedure SetTargetOS(const AValue: string); override;
procedure SetTargetFilename(const AValue: String); override;
procedure SetLCLWidgetType(const AValue: string); override;
procedure SetModified(const AValue: boolean); override;
protected
procedure ClearInheritedOptions;
@ -1220,6 +1221,14 @@ begin
IncreaseChangeStamp;
end;
procedure TBaseCompilerOptions.SetLCLWidgetType(const AValue: string);
begin
if LCLWidgetType=AValue then exit;
inherited SetLCLWidgetType(AValue);
if ParsedOpts.InvalidateParseOnChange then
IncreaseBuildMacroChangeStamp;
end;
function TBaseCompilerOptions.GetCompilerPath: String;
begin
Result:=ParsedOpts.UnparsedValues[pcosCompilerPath];

5
ide/main.pp
View File

@ -4269,8 +4269,7 @@ begin
end;
procedure TMainIDE.DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass = nil;
ACaption: String = '';
AOptionsFilter: TAbstractIDEOptionsClass = nil);
ACaption: String = ''; AOptionsFilter: TAbstractIDEOptionsClass = nil);
var
IDEOptionsDialog: TIDEOptionsDialog;
begin
@ -4296,6 +4295,8 @@ begin
end;
if IDEOptionsDialog.ShowModal = mrOk then begin
IDEOptionsDialog.WriteAll;
MainBuildBoss.SetBuildTarget(MainBuildBoss.GetTargetOS(false),
MainBuildBoss.GetTargetCPU(false),MainBuildBoss.GetLCLWidgetType(false));
UpdateHighlighters(True);
SourceEditorManager.ReloadEditorOptions;
if EnvironmentOptions.SingleTaskBarButton then

2
ideintf/projectintf.pas
View File

@ -140,7 +140,6 @@ type
procedure SetIncludeAssertionCode(const AValue: Boolean);
procedure SetInitConst(const AValue: Boolean);
procedure SetIOChecks(const AValue: Boolean);
procedure SetLCLWidgetType(const AValue: string);
procedure SetLinkSmart(const AValue: Boolean);
procedure SetOptLevel(const AValue: Integer);
procedure SetOverflowChecks(const AValue: Boolean);
@ -295,6 +294,7 @@ type
procedure SetTargetProc(const AValue: string); virtual; abstract;
procedure SetUnitOutputDir(const AValue: string); virtual; abstract;
procedure SetUnitPaths(const AValue: String); virtual; abstract;
procedure SetLCLWidgetType(const AValue: string); virtual;
public
constructor Create(const TheOwner: TObject); virtual;
destructor Destroy; override;