paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:55:58 +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 begin
// first compile all lazarus components (LCL, SynEdit, CodeTools, ...) // first compile all lazarus components (LCL, SynEdit, CodeTools, ...)
SourceNotebook.ClearErrorLines; SourceNotebook.ClearErrorLines;
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts, try
EnvironmentOptions.ExternalTools,MacroList, Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
'',Flags+[blfWithoutIDE]); EnvironmentOptions.ExternalTools,MacroList,
'',Flags+[blfWithoutIDE]);
if Result<>mrOk then exit;
// prepare static auto install packages // prepare static auto install packages
PkgOptions:=''; PkgOptions:='';
{$IFDEF EnablePkgs} {$IFDEF EnablePkgs}
if (blfWithStaticPackages in Flags) if (blfWithStaticPackages in Flags)
or MiscellaneousOptions.BuildLazOpts.WithStaticPackages then begin or MiscellaneousOptions.BuildLazOpts.WithStaticPackages then begin
// compile auto install static packages // compile auto install static packages
Result:=PkgBoss.DoCompileAutoInstallPackages([]); 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; if Result<>mrOk then exit;
finally
// create uses addition for IDE DoCheckFilesOnDisk;
Result:=PkgBoss.DoSaveAutoInstallConfig;
if Result<>mrOk then exit;
// create inherited compiler options
PkgOptions:=PkgBoss.DoGetIDEInstallPackageOptions;
end; end;
{$ENDIF}
SourceNotebook.ClearErrorLines;
Result:=BuildLazarus(MiscellaneousOptions.BuildLazOpts,
EnvironmentOptions.ExternalTools,MacroList,
PkgOptions,Flags+[blfOnlyIDE]);
DoCheckFilesOnDisk;
end; end;
function TMainIDE.DoConvertDFMtoLFM: TModalResult; function TMainIDE.DoConvertDFMtoLFM: TModalResult;
@ -8632,6 +8637,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.547 2003/05/01 10:40:06 mattias
open special files for lpi files open special files for lpi files