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

project groups: fixed exchanging nodes

Browse Source 
git-svn-id: trunk@50461 -
This commit is contained in:
mattias 2015-11-21 11:05:17 +00:00
parent 29d28c3919
commit 344cf16a5e
2 changed files with 8 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/projectgroups/projectgroup.pp
View File

@ -719,9 +719,9 @@ end;
procedure TIDEProjectGroup.ExchangeTargets(ASource, ATarget: Integer); procedure TIDEProjectGroup.ExchangeTargets(ASource, ATarget: Integer);
begin begin
if ASource=ATarget then exit; if ASource=ATarget then exit;
FTargets.Exchange(ASource,ATarget);
if Assigned(FOnTargetsExchanged) then if Assigned(FOnTargetsExchanged) then
FOnTargetsExchanged(Self,GetTarget(ASource),GetTarget(ATarget)); FOnTargetsExchanged(Self,GetTarget(ASource),GetTarget(ATarget));
FTargets.Exchange(ASource,ATarget);
IncreaseChangeStamp; IncreaseChangeStamp;
end; end;

26
components/projectgroups/projectgroupeditor.pas
View File

@ -684,29 +684,17 @@ end;
procedure TProjectGroupEditorForm.OnTargetExchanged(Sender: TObject; Target1, procedure TProjectGroupEditorForm.OnTargetExchanged(Sender: TObject; Target1,
Target2: TPGCompileTarget); Target2: TPGCompileTarget);
Var var
S,N1,N2: TTreeNode; N1, N2: TTreeNode;
ND1,ND2: TNodeData; OldIndex: Integer;
NT1,NT2: TCaption;
begin begin
N1:=FindTVNodeOfTarget( Target1); N1:=FindTVNodeOfTarget(Target1);
N2:=FindTVNodeOfTarget(Target2); N2:=FindTVNodeOfTarget(Target2);
If (N1=Nil) or (N2=Nil) then If (N1=Nil) or (N2=Nil) then
exit; exit;
ND1:=TNodeData(N1.Data); OldIndex:=N1.Index;
if TVPG.Selected=N1 then N1.Index:=N2.Index;
S:=N2 N2.Index:=OldIndex;
else if TVPG.Selected=N2 then
S:=N1
else
S:=Nil;
NT1:=N1.Text;
ND2:=TNodeData(N2.Data);
NT2:=N2.Text;
InitTVNode(N1,NT2,ND2);
InitTVNode(N2,NT1,ND1);
if (S<>Nil) then
TVPG.Selected:=S;
end; end;
procedure TProjectGroupEditorForm.AProjectGroupSaveExecute(Sender: TObject); procedure TProjectGroupEditorForm.AProjectGroupSaveExecute(Sender: TObject);