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

IDE: show about text in paragraphs

Browse Source 
git-svn-id: trunk@11094 -
This commit is contained in:
vincents 2007-05-07 07:56:01 +00:00
parent d0c8b02aab
commit 44b95915d1
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/aboutfrm.pas
View File

@ -100,10 +100,12 @@ begin
end; end;
procedure TAboutForm.AboutFormCreate(Sender:TObject); procedure TAboutForm.AboutFormCreate(Sender:TObject);
const
DoubleLineEnding = LineEnding + LineEnding;
{The compiler generated date string is always of the form y/m/d. {The compiler generated date string is always of the form y/m/d.
This function gives it a string respresentation according to the This function gives it a string respresentation according to the
shortdateformat} shortdateformat}
function GetLocalizedBuildDate(): string; function GetLocalizedBuildDate(): string;
var var
BuildDate: string; BuildDate: string;
@ -136,11 +138,11 @@ begin
Constraints.MinWidth:= 600; Constraints.MinWidth:= 600;
Constraints.MinHeight:= 300; Constraints.MinHeight:= 300;
AboutMemo.Lines.Text:=Format(lisAboutLazarusMsg,[LineEnding,LineEnding,LineEnding]) AboutMemo.Lines.Text:=
+LineEnding+LineEnding Format(lisAboutLazarusMsg,[DoubleLineEnding,DoubleLineEnding,DoubleLineEnding])
+DoubleLineEnding
+'Official: http://sourceforge.net/projects/lazarus/'+LineEnding +'Official: http://sourceforge.net/projects/lazarus/'+LineEnding
+'Tutorials: http://lazarus-ccr.sourceforge.net'+LineEnding +'Tutorials: http://lazarus-ccr.sourceforge.net'+LineEnding;
;
LoadContributors; LoadContributors;
LoadAcknowledgements; LoadAcknowledgements;
CloseButton.Caption:=lisClose; CloseButton.Caption:=lisClose;