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

fixed update on changing package usage options

Browse Source 
git-svn-id: trunk@4290 -
This commit is contained in:
mattias 2003-06-19 22:38:21 +00:00
parent d261f58365
commit 793a75ec15
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/custompanel.inc
View File

@ -36,8 +36,7 @@ begin
FBevelInner := bvNone;
FBevelWidth := 1;
FAlignment := taCenter;
Height := 41;
Width := 185;
SetInitialBounds(0,0,170,50);
Color:= clBackground;
ParentColor := True;
end;

3
packager/packagedefs.pas
View File

@ -1821,13 +1821,14 @@ begin
FMacros.OnSubstitution:=@OnMacroListSubstitution;
FCompilerOptions:=TPkgCompilerOptions.Create(Self);
FCompilerOptions.ParsedOpts.OnLocalSubstitute:=@SubstitutePkgMacro;
FCompilerOptions.ParsedOpts.InvalidateGraphOnChange:=true;
FCompilerOptions.DefaultMakeOptionsFlags:=[ccloNoLinkerOpts];
FUsageOptions:=TPkgAdditionalCompilerOptions.Create(Self);
FUsageOptions.ParsedOpts.OnLocalSubstitute:=@SubstitutePkgMacro;
FDefineTemplates:=TLazPackageDefineTemplates.Create(Self);
fPublishOptions:=TPublishPackageOptions.Create(Self);
Clear;
FCompilerOptions.ParsedOpts.InvalidateGraphOnChange:=true;
FUsageOptions.ParsedOpts.InvalidateGraphOnChange:=true;
end;
destructor TLazPackage.Destroy;

10
packager/pkgoptionsdlg.pas
View File

@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Buttons, LResources, ExtCtrls, StdCtrls,
Spin, Dialogs, PathEditorDlg, IDEProcs, IDEOptionDefs, LazarusIDEStrConsts,
BrokenDependenciesDlg, PackageDefs, PackageSystem;
BrokenDependenciesDlg, PackageDefs, PackageSystem, CompilerOptions;
type
TPackageOptionsDialog = class(TForm)
@ -394,10 +394,10 @@ begin
else LazPackage.AutoUpdate:=pupAsNeeded;
end;
with LazPackage.UsageOptions do begin
UnitPath:=UnitPathEdit.Text;
IncludePath:=IncludePathEdit.Text;
ObjectPath:=ObjectPathEdit.Text;
LibraryPath:=LibraryPathEdit.Text;
UnitPath:=TrimSearchPath(UnitPathEdit.Text,'');
IncludePath:=TrimSearchPath(IncludePathEdit.Text,'');
ObjectPath:=TrimSearchPath(ObjectPathEdit.Text,'');
LibraryPath:=TrimSearchPath(LibraryPathEdit.Text,'');
LinkerOptions:=LinkerOptionsMemo.Text;
CustomOptions:=CustomOptionsMemo.Text;
end;