paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:41:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: formatting

Browse Source 
git-svn-id: trunk@47021 -
This commit is contained in:
juha 2014-11-28 15:04:13 +00:00
parent bedd8d3376
commit 3866cb4081
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/main.pp
View File

@ -5024,8 +5024,8 @@ begin
if AProject.ProjResources.Modified and (AProject.MainUnitID >= 0) then if AProject.ProjResources.Modified and (AProject.MainUnitID >= 0) then
begin begin
if not AProject.ProjResources.Regenerate(AProject.MainFilename, True, False, '') then if not AProject.ProjResources.Regenerate(AProject.MainFilename, True, False, '') then
IDEMessageDialog(lisCCOWarningCaption, AProject.ProjResources.Messages. IDEMessageDialog(lisCCOWarningCaption, AProject.ProjResources.Messages.Text,
Text, mtWarning, [mbOk]); mtWarning, [mbOk]);
end; end;
UpdateCaption; UpdateCaption;
AProject.DefineTemplates.AllChanged; AProject.DefineTemplates.AllChanged;
@ -5047,12 +5047,11 @@ end;
procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject); procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject);
begin begin
if (Screen.CustomFormZOrderCount > 1) if (Screen.CustomFormZOrderCount > 1)
and Assigned(Screen.CustomFormsZOrdered[1].Designer) then begin and Assigned(Screen.CustomFormsZOrdered[1].Designer) then
// previous active form was designer form // previous active form was designer form
ShowDesignerForm(Screen.CustomFormsZOrdered[1]); ShowDesignerForm(Screen.CustomFormsZOrdered[1])
Exit; else
end; DoShowDesignerFormOfCurrentSrc;
DoShowDesignerFormOfCurrentSrc;
end; end;
procedure TMainIDE.SelComponentPageButtonClick(Sender: TObject); procedure TMainIDE.SelComponentPageButtonClick(Sender: TObject);