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

fixed changing menuitem separator and normal

Browse Source 
git-svn-id: trunk@2977 -
This commit is contained in:
mattias 2002-08-18 08:56:43 +00:00
parent c1b5795a39
commit 76ef25f6a6
1 changed files with 32 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
ide/main.pp
View File

@ -5678,33 +5678,38 @@ var
begin
// first compile all lazarus components (LCL, SynEdit, CodeTools, ...)
SourceNotebook.ClearErrorLines;
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
EnvironmentOptions.ExternalTools,MacroList,
'',Flags+[blfWithoutIDE]);
try
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
EnvironmentOptions.ExternalTools,MacroList,
'',Flags+[blfWithoutIDE]);
if Result<>mrOk then exit;
// prepare static auto install packages
PkgOptions:='';
{$IFDEF EnablePkgs}
if (blfWithStaticPackages in Flags)
or MiscellaneousOptions.BuildLazOpts.WithStaticPackages then begin
// compile auto install static packages
Result:=PkgBoss.DoCompileAutoInstallPackages([]);
// prepare static auto install packages
PkgOptions:='';
{$IFDEF EnablePkgs}
if (blfWithStaticPackages in Flags)
or MiscellaneousOptions.BuildLazOpts.WithStaticPackages then begin
// compile auto install static packages
Result:=PkgBoss.DoCompileAutoInstallPackages([]);
if Result<>mrOk then exit;
// create uses addition for IDE
Result:=PkgBoss.DoSaveAutoInstallConfig;
if Result<>mrOk then exit;
// create inherited compiler options
PkgOptions:=PkgBoss.DoGetIDEInstallPackageOptions;
end;
{$ENDIF}
SourceNotebook.ClearErrorLines;
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
EnvironmentOptions.ExternalTools,MacroList,
PkgOptions,Flags+[blfOnlyIDE]);
if Result<>mrOk then exit;
// create uses addition for IDE
Result:=PkgBoss.DoSaveAutoInstallConfig;
if Result<>mrOk then exit;
// create inherited compiler options
PkgOptions:=PkgBoss.DoGetIDEInstallPackageOptions;
finally
DoCheckFilesOnDisk;
end;
{$ENDIF}
SourceNotebook.ClearErrorLines;
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
EnvironmentOptions.ExternalTools,MacroList,
PkgOptions,Flags+[blfOnlyIDE]);
DoCheckFilesOnDisk;
end;
function TMainIDE.DoConvertDFMtoLFM: TModalResult;
@ -8632,6 +8637,9 @@ end.
{ =============================================================================
$Log$
Revision 1.548 2003/05/01 11:44:03 mattias
fixed changing menuitem separator and normal
Revision 1.547 2003/05/01 10:40:06 mattias
open special files for lpi files