diff --git a/components/lazsvnpkg/svnstatusform.pas b/components/lazsvnpkg/svnstatusform.pas index af2ea99f80..91348e4624 100644 --- a/components/lazsvnpkg/svnstatusform.pas +++ b/components/lazsvnpkg/svnstatusform.pas @@ -49,11 +49,12 @@ type FRepositoryPath: string; { private declarations } SVNStatus: TSVNStatus; + procedure SetRepositoryPath(const AValue: string); procedure UpdateFilesListView(Data: PtrInt); procedure ChangeCursor(ACursor: TCursor); public { public declarations } - property RepositoryPath: string read FRepositoryPath write FrepositoryPath; + property RepositoryPath: string read FRepositoryPath write SetRepositoryPath; end; procedure ShowSVNStatusFrm(ARepoPath: string); @@ -162,6 +163,7 @@ procedure TSVNStatusFrm.UpdateFilesListView(Data: PtrInt); var i: integer; StatusItem : PSVNStatusItem; + Path: string; begin SVNFileListView.BeginUpdate; SVNFileListView.Clear; @@ -178,7 +180,10 @@ begin Checked := StatusItem^.Checked; //path - SubItems.Add(StatusItem^.Path); + Path := StatusItem^.Path; + if pos(RepositoryPath, Path) = 1 then + System.Delete(Path, 1, Length(RepositoryPath) - 1); + SubItems.Add(Path); //extension SubItems.Add(StatusItem^.Extension); @@ -212,6 +217,11 @@ begin ChangeCursor(crDefault); end; +procedure TSVNStatusFrm.SetRepositoryPath(const AValue: string); +begin + FRepositoryPath := AppendPathDelim(AValue); +end; + procedure TSVNStatusFrm.ChangeCursor(ACursor: TCursor); begin SVNCommitMsgMemo.Cursor := ACursor;