Clear UrlEdit when showing AnchorDialog form

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2307 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2012-02-22 12:20:54 +00:00
parent 67bf2fc1f7
commit 3218aa8573
1 changed files with 1 additions and 0 deletions
--- a/applications/lazedit/anchordlgform.pp
+++ b/applications/lazedit/anchordlgform.pp
@ -78,6 +78,7 @@ end;
 procedure TAnchorDlgForm.FormShow(Sender: TObject);
 begin
  ActiveControl := DescrEdit;
+  UrlEdit.Text := '';
 end;

 function TAnchorDlgForm.GetAnchorType: TAnchorType;