paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 20:50:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed showing diff from SVNLogForm at certain revision number

Browse Source 
git-svn-id: trunk@17351 -
This commit is contained in:
darius 2008-11-12 09:17:28 +00:00
parent f212d742f5
commit 895de1efbd
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazsvnpkg/svnlogform.pas
View File

@ -263,15 +263,18 @@ procedure TSVNLogFrm.mnuShowDiffClick(Sender: TObject);
var
path: string;
i: integer;
revision: integer;
begin
{$note implement opening file in source editor}
if Assigned(SVNActionsListView.Selected) then
if Assigned(SVNActionsListView.Selected) and Assigned(LogListView.Selected) then
begin
debugln('TSVNLogFrm.mnuShowDiffClick Path=' ,SVNActionsListView.Selected.SubItems[0]);
revision := StrToInt(LogListView.Selected.Caption);
path := SVNActionsListView.Selected.SubItems[0];
Delete(path, 1, 1);
i := pos('/', path);
ShowSVNDiffFrm('-r PREV', RepositoryPath + Copy(path, i, length(path) - i + 1));
ShowSVNDiffFrm(Format('-r %d:%d', [revision - 1, revision]),
RepositoryPath + Copy(path, i, length(path) - i + 1));
end;
end;