paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 20:09:10 +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
begin
if not AProject.ProjResources.Regenerate(AProject.MainFilename, True, False, '') then
IDEMessageDialog(lisCCOWarningCaption, AProject.ProjResources.Messages.
Text, mtWarning, [mbOk]);
IDEMessageDialog(lisCCOWarningCaption, AProject.ProjResources.Messages.Text,
mtWarning, [mbOk]);
end;
UpdateCaption;
AProject.DefineTemplates.AllChanged;
@ -5047,12 +5047,11 @@ end;
procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject);
begin
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
ShowDesignerForm(Screen.CustomFormsZOrdered[1]);
Exit;
end;
DoShowDesignerFormOfCurrentSrc;
ShowDesignerForm(Screen.CustomFormsZOrdered[1])
else
DoShowDesignerFormOfCurrentSrc;
end;
procedure TMainIDE.SelComponentPageButtonClick(Sender: TObject);