paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 11:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: About from: Copy fpc version to clipboard too (issue #13546)

Browse Source 
git-svn-id: trunk@19546 -
This commit is contained in:
vincents 2009-04-21 10:14:32 +00:00
parent 4508822c25
commit 0e57b96673
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/aboutfrm.pas
View File

@ -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;