forked from pool/peazip
25 lines
772 B
Diff
25 lines
772 B
Diff
|
From: Luigi Baldoni <aloisio@gmx.com>
|
||
|
Date: 2017-12-27 13:01:22 +0100
|
||
|
Subject: Make peazip compatible with lazarus 1.8.0
|
||
|
References: https://sourceforge.net/p/peazip/tickets/468
|
||
|
Upstream: submitted
|
||
|
|
||
|
The GetSelectedNodePath method has been deprecated since
|
||
|
svn r48302 2015-03-12.
|
||
|
Using the Path property as recommended in lcl/shellctrls.pas#L86
|
||
|
(lazarus source, same revision)
|
||
|
|
||
|
Index: peazip-6.5.0.src/peach.pas
|
||
|
===================================================================
|
||
|
--- peazip-6.5.0.src.orig/peach.pas
|
||
|
+++ peazip-6.5.0.src/peach.pas
|
||
|
@@ -56706,7 +56706,7 @@ var
|
||
|
begin
|
||
|
if fromtree=true then
|
||
|
begin
|
||
|
- s:=ShellTreeView1.GetSelectedNodePath;
|
||
|
+ s:=ShellTreeView1.Path;
|
||
|
if s='' then exit;
|
||
|
fun:='FILEBROWSER';
|
||
|
fun_status:=fun;
|