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

IDE: Prevent crash when clicking button "Change Build Mode" and Cancel in dialog. BackupBuildModes is not called always. Issue #29292.

Browse Source 
git-svn-id: trunk@51087 -
This commit is contained in:
juha 2015-12-30 23:27:40 +00:00
parent 170279af46
commit 181b205220
2 changed files with 15 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/main.pp
View File

@ -4935,10 +4935,9 @@ end;
procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject);
begin
// code below cant be handled correctly by integrated IDE
if
(IDETabMaster = nil) and
(Screen.CustomFormZOrderCount > 1)
and Assigned(Screen.CustomFormsZOrdered[1].Designer) then begin
if (IDETabMaster = nil) and (Screen.CustomFormZOrderCount > 1)
and Assigned(Screen.CustomFormsZOrdered[1].Designer) then
begin
// previous active form was designer form
ShowDesignerForm(Screen.CustomFormsZOrdered[1]);
DoCallShowDesignerFormOfSourceHandler(lihtShowDesignerFormOfSource,
@ -6764,28 +6763,19 @@ begin
DoBuildProject(crCompile, []);
end;
procedure TMainIDE.DoCompilerOptionsAfterWrite(Sender: TObject; Restore: boolean
);
procedure TMainIDE.DoCompilerOptionsAfterWrite(Sender: TObject; Restore: boolean);
var
AProject: TProject;
aFilename: string;
begin
AProject:=(Sender as TProjectCompilerOptions).Project;
if not Restore then
begin
AProject.DefineTemplates.AllChanged;
end;
if Restore then
begin
AProject.RestoreBuildModes;
end;
IncreaseCompilerParseStamp;
MainBuildBoss.SetBuildTargetProject1(false);
if not Restore then
begin
AProject.RestoreBuildModes
else begin
AProject.DefineTemplates.AllChanged;
IncreaseCompilerParseStamp;
MainBuildBoss.SetBuildTargetProject1(false);
if AProject.UseAsDefault then
begin
// save as default

11
ide/project.pp
View File

@ -1041,7 +1041,6 @@ type
write SetAutoOpenDesignerFormsDisabled;
property Bookmarks: TProjectBookmarkList read FBookmarks write FBookmarks;
property BuildModes: TProjectBuildModes read FBuildModes;
property BuildModesBackup: TProjectBuildModes read FBuildModesBackup;
property SkipCheckLCLInterfaces: boolean read FSkipCheckLCLInterfaces
write SetSkipCheckLCLInterfaces;
property CompilerOptions: TProjectCompilerOptions read GetCompilerOptions;
@ -3403,7 +3402,7 @@ begin
{$IFDEF VerboseIDEModified}
debugln(['TProject.BackupBuildModes START=====================']);
{$ENDIF}
BuildModesBackup.Assign(BuildModes,true);
FBuildModesBackup.Assign(BuildModes,true);
{$IFDEF VerboseIDEModified}
debugln(['TProject.BackupBuildModes END===================== Modified=',Modified]);
{$ENDIF}
@ -3411,13 +3410,16 @@ end;
procedure TProject.RestoreBuildModes;
begin
if FBuildModesBackup.Count = 0 then Exit;
ActiveBuildMode:=nil;
BuildModes.Assign(BuildModesBackup,true);
BuildModes.Assign(FBuildModesBackup,true);
if (FActiveBuildModeBackup>=0) and (FActiveBuildModeBackup<BuildModes.Count)
then
ActiveBuildMode:=BuildModes[FActiveBuildModeBackup]
else
ActiveBuildMode:=BuildModes[0];
// Must be cleared for the next time because BackupBuildModes may not be called.
FBuildModesBackup.Clear;
end;
function TProject.GetTitle: string;
@ -7166,8 +7168,7 @@ begin
SharedMatrixOptions.SaveToXMLConfig(FXMLConfig, Path+'BuildModes/SharedMatrixOptions/',@IsSharedMode);
end;
function TProjectBuildModes.GetLazBuildModes(Index: integer
): TLazProjectBuildMode;
function TProjectBuildModes.GetLazBuildModes(Index: integer): TLazProjectBuildMode;
begin
Result:=TLazProjectBuildMode(fItems[Index]);
end;