paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 13:40:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package editor: multi change call Register proc

Browse Source 
git-svn-id: trunk@45444 -
This commit is contained in:
mattias 2014-06-10 11:13:06 +00:00
parent 1d522141ff
commit 4c3b656f3d
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packager/packageeditor.pas
View File

@ -25,7 +25,6 @@
ToDo:
- Multiselect
CallRegisterProcCheckBox,
DisableI18NForLFMCheckBox
replace GetCurrentDependency
replace GetCurrentFile
@ -1428,17 +1427,30 @@ end;
procedure TPackageEditorForm.CallRegisterProcCheckBoxChange(Sender: TObject);
var
CurFile: TPkgFile;
Removed: boolean;
i: Integer;
TVNode: TTreeNode;
NodeData: TPENodeData;
Item: TObject;
begin
if LazPackage=nil then exit;
CurFile:=GetCurrentFile(Removed);
if (CurFile=nil) then exit;
if CurFile.HasRegisterProc=CallRegisterProcCheckBox.Checked then exit;
CurFile.HasRegisterProc:=CallRegisterProcCheckBox.Checked;
if not Removed then begin
LazPackage.Modified:=true;
BeginUdate;
try
for i:=0 to ItemsTreeView.SelectionCount-1 do begin
TVNode:=ItemsTreeView.Selections[i];
if not GetNodeDataItem(TVNode,NodeData,Item) then continue;
if Item is TPkgFile then begin
CurFile:=TPkgFile(Item);
if not (CurFile.FileType in PkgFileUnitTypes) then continue;
if CurFile.HasRegisterProc=CallRegisterProcCheckBox.Checked then exit;
CurFile.HasRegisterProc:=CallRegisterProcCheckBox.Checked;
if not NodeData.Removed then
LazPackage.Modified:=true;
UpdateFiles;
end;
end;
finally
EndUpdate;
end;
UpdateFiles;
end;
procedure TPackageEditorForm.ChangeFileTypeMenuItemClick(Sender: TObject);