paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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);
begin
if ASource=ATarget then exit;
FTargets.Exchange(ASource,ATarget);
if Assigned(FOnTargetsExchanged) then
FOnTargetsExchanged(Self,GetTarget(ASource),GetTarget(ATarget));
FTargets.Exchange(ASource,ATarget);
IncreaseChangeStamp;
end;

24
components/projectgroups/projectgroupeditor.pas
View File

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