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

Fix: About Form, copy to clipboard text for git

Browse Source
This commit is contained in:
Martin 2021-09-14 15:43:45 +02:00
parent 2bb1f2ea36
commit 3475b86dc5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/aboutfrm.pas
View File

@ -228,7 +228,7 @@ end;
procedure TAboutForm.miVerToClipboardClick(Sender: TObject); procedure TAboutForm.miVerToClipboardClick(Sender: TObject);
begin begin
Clipboard.AsText := 'Lazarus ' + LazarusVersionStr + ' r' + LazarusRevisionStr + Clipboard.AsText := 'Lazarus ' + LazarusVersionStr + ' (rev ' + LazarusRevisionStr + ')' +
' FPC ' + {$I %FPCVERSION%} + ' ' + PlatformLabel.Caption; ' FPC ' + {$I %FPCVERSION%} + ' ' + PlatformLabel.Caption;
end; end;