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

Package editor: formatting

Browse Source 
git-svn-id: trunk@45738 -
This commit is contained in:
juha 2014-06-30 14:34:57 +00:00
parent a00d920533
commit c05639fe6e
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/packageeditor.pas
View File

@ -2281,8 +2281,7 @@ begin
end; end;
end; end;
function TPackageEditorForm.CanUpdate(Flag: TPEFlag; Immediately: boolean function TPackageEditorForm.CanUpdate(Flag: TPEFlag; Immediately: boolean): boolean;
): boolean;
begin begin
Result:=false; Result:=false;
if csDestroying in ComponentState then exit; if csDestroying in ComponentState then exit;
@ -2583,13 +2582,11 @@ begin
ApplyDependencyButton.Visible:=aVisible; ApplyDependencyButton.Visible:=aVisible;
// 'RegisterProc' of files (supports multi selection) // 'RegisterProc' of files (supports multi selection)
SetCheckBox(CallRegisterProcCheckBox,OnlyFilesWithUnitsSelected, SetCheckBox(CallRegisterProcCheckBox,OnlyFilesWithUnitsSelected, SelHasRegisterProc);
SelHasRegisterProc);
CallRegisterProcCheckBox.Enabled:=(not LazPackage.ReadOnly); CallRegisterProcCheckBox.Enabled:=(not LazPackage.ReadOnly);
// 'Add to uses' of files (supports multi selection) // 'Add to uses' of files (supports multi selection)
SetCheckBox(AddToUsesPkgSectionCheckBox,OnlyFilesWithUnitsSelected, SetCheckBox(AddToUsesPkgSectionCheckBox,OnlyFilesWithUnitsSelected, SelAddToUsesPkgSection);
SelAddToUsesPkgSection);
AddToUsesPkgSectionCheckBox.Enabled:=(not LazPackage.ReadOnly); AddToUsesPkgSectionCheckBox.Enabled:=(not LazPackage.ReadOnly);
// disable i18n for lfm (supports multi selection) // disable i18n for lfm (supports multi selection)