From 2f728bb0d09084637eb84508c83e7cbe4f5f5e42 Mon Sep 17 00:00:00 2001
From: gbamber <gbamber@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 30 Jul 2014 05:24:57 +0000
Subject: [PATCH] Fixed error in SetDialogTitle

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3398 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/aboutcomponent/aboutcomponentunit.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/aboutcomponent/aboutcomponentunit.pas b/components/aboutcomponent/aboutcomponentunit.pas
index 4899b39db..178917648 100644
--- a/components/aboutcomponent/aboutcomponentunit.pas
+++ b/components/aboutcomponent/aboutcomponentunit.pas
@@ -190,7 +190,10 @@ begin
 end;
 procedure TAboutbox.SetDialogTitle(Const AValue:String);
 begin
-     fDialogTitle:=rs_About + ' ' + Avalue;
+  if AnsiContainsText(fDialogTitle, rs_About) then
+    fDialogTitle := AValue
+  else
+    fDialogTitle := rs_About + ' ' + Avalue;
 end;
 
 procedure TAboutbox.ShowDialog;