From 0e57b96673aba87e62819b132c43b03a25f6cad5 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 21 Apr 2009 10:14:32 +0000
Subject: [PATCH] IDE: About from: Copy fpc version to clipboard too (issue
 #13546)

git-svn-id: trunk@19546 -
---
 ide/aboutfrm.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ide/aboutfrm.pas b/ide/aboutfrm.pas
index 39c0850d73..6c182c393e 100644
--- a/ide/aboutfrm.pas
+++ b/ide/aboutfrm.pas
@@ -196,8 +196,8 @@ end;
 
 procedure TAboutForm.miVerToClipboardClick(Sender: TObject);
 begin
-  Clipboard.AsText := 'v' + LazarusVersionStr + ' r' + LazarusRevisionStr +
-      ' ' + PlatformLabel.Caption;
+  Clipboard.AsText := 'Lazarus ' + LazarusVersionStr + ' r' + LazarusRevisionStr +
+    ' FPC ' + {$I %FPCVERSION%} + ' ' + PlatformLabel.Caption;
 end;
 
 procedure TAboutForm.NotebookPageChanged(Sender: TObject);
@@ -235,6 +235,7 @@ procedure TAboutForm.LoadContributors;
 var
   ContributorsFileName: string;
 begin
+  ContributorsPage.ControlStyle := ContributorsPage.ControlStyle - [csOpaque];
   Contributors := TScrollingText.Create(ContributorsPage);
   Contributors.Parent := ContributorsPage;
   Contributors.Align:=alClient;