paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TPictureDlgForm.GetSrc: include value for default picture folder in result

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2432 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart 2012-05-13 14:17:51 +00:00
parent 38ac510e85
commit 3be423d4ed
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
applications/lazedit/picturedlgform.pp
View File

@ -151,8 +151,13 @@ begin
end; end;
function TPictureDlgForm.GetSrc: String; function TPictureDlgForm.GetSrc: String;
var
S: String;
begin begin
Result := UrlEscape(SrcEdit.Text); S := Trim(DefFolderEdit.Text);
if (S <> '') then S := IncludeTrailingPathDelimiter(S);
S := S + SrcEdit.Text;
Result := UrlEscape(S);
end; end;
function TPictureDlgForm.GetTitle: String; function TPictureDlgForm.GetTitle: String;