From 827245c127e6650aa7d4a6b22bf2ef60b48df955 Mon Sep 17 00:00:00 2001
From: gbamber <gbamber@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 29 Jul 2014 13:31:14 +0000
Subject: [PATCH] Fixed bug where Title repeated 'About'

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

diff --git a/components/poweredby/aboutpoweredbyunit.pas b/components/poweredby/aboutpoweredbyunit.pas
index 1b2ac52c3..5f977878a 100644
--- a/components/poweredby/aboutpoweredbyunit.pas
+++ b/components/poweredby/aboutpoweredbyunit.pas
@@ -185,7 +185,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;