From 3be423d4edd1afae6478eab38e2cef2805f235e8 Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 13 May 2012 14:17:51 +0000
Subject: [PATCH] TPictureDlgForm.GetSrc: include value for default picture
 folder in result

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2432 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/lazedit/picturedlgform.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/applications/lazedit/picturedlgform.pp b/applications/lazedit/picturedlgform.pp
index 84b7b0f24..67c035d70 100644
--- a/applications/lazedit/picturedlgform.pp
+++ b/applications/lazedit/picturedlgform.pp
@@ -151,8 +151,13 @@ begin
 end;
 
 function TPictureDlgForm.GetSrc: String;
+var
+  S: String;
 begin
-  Result := UrlEscape(SrcEdit.Text);
+  S := Trim(DefFolderEdit.Text);
+  if (S <> '') then S := IncludeTrailingPathDelimiter(S);
+  S := S + SrcEdit.Text;
+  Result := UrlEscape(S);
 end;
 
 function TPictureDlgForm.GetTitle: String;