mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 18:58:12 +02:00
- added third tab into IDE about box for third-party projects
- added thirdparty.txt git-svn-id: trunk@11081 -
This commit is contained in:
parent
3a01836e01
commit
fe4c46785a
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -933,6 +933,7 @@ docs/images/cheetah1.png -text svneol=unset#image/png
|
||||
docs/images/laztitle.jpg -text svneol=unset#image/jpeg
|
||||
docs/index.html svneol=native#text/html
|
||||
docs/lazbuild.1 svneol=native#text/plain
|
||||
docs/thirdparty.txt svneol=native#text/plain
|
||||
docs/xml/README.txt svneol=native#text/plain
|
||||
docs/xml/find_cvs_fpdoc_files.pl -text svneol=native#application/x-perl
|
||||
docs/xml/lcl/actnlist.xml svneol=LF#text/xml eol=lf
|
||||
|
6
docs/thirdparty.txt
Normal file
6
docs/thirdparty.txt
Normal file
@ -0,0 +1,6 @@
|
||||
Lazarus is using folowing third party libraries and tools
|
||||
|
||||
Icon sets:
|
||||
|
||||
- Silk icon set 1.3 by Mark James (http://www.famfamfam.com/lab/icons/silk/)
|
||||
- Tango Icon Library (http://tango.freedesktop.org/Tango_Icon_Library)
|
@ -114,5 +114,16 @@ object AboutForm: TAboutForm
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object ThirdPartyPage: TPage
|
||||
Caption = 'Third party products'
|
||||
object ThirdPartyMemo: TMemo
|
||||
Height = 231
|
||||
Width = 385
|
||||
Align = alClient
|
||||
ReadOnly = True
|
||||
ScrollBars = ssAutoBoth
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
@ -1,5 +1,3 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TAboutForm','FORMDATA',[
|
||||
'TPF0'#10'TAboutForm'#9'AboutForm'#4'Left'#3'_'#1#6'Height'#3#14#1#3'Top'#3
|
||||
+#133#1#5'Width'#3'`'#2#18'HorzScrollBar.Page'#3'_'#2#18'VertScrollBar.Page'#3
|
||||
@ -35,5 +33,8 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
|
||||
+#7#8'alClient'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0
|
||||
+#0#0#0#5'TPage'#16'ContributorsPage'#7'Caption'#6#12'Contributors'#0#5'TMemo'
|
||||
+#16'ContributorsMemo'#6'Height'#3#231#0#5'Width'#3#129#1#5'Align'#7#8'alClie'
|
||||
+'nt'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#0#0
|
||||
+'nt'#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#5'T'
|
||||
+'Page'#14'ThirdPartyPage'#7'Caption'#6#20'Third party products'#0#5'TMemo'#14
|
||||
+'ThirdPartyMemo'#6'Height'#3#231#0#5'Width'#3#129#1#5'Align'#7#8'alClient'#8
|
||||
+'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#0#0
|
||||
]);
|
||||
|
@ -40,14 +40,17 @@ type
|
||||
PlatformLabel: TLabel;
|
||||
VersionLabel: TLABEL;
|
||||
ContributorsMemo:TMemo;
|
||||
ThirdPartyMemo:TMemo;
|
||||
RevisionLabel: TLabel;
|
||||
Notebook1:TNotebook;
|
||||
AboutPage:TPage;
|
||||
ContributorsPage:TPage;
|
||||
ThirdPartyPage:TPage;
|
||||
procedure AboutFormCreate(Sender:TObject);
|
||||
private
|
||||
FPixmap : TPixmap;
|
||||
procedure LoadContributors;
|
||||
procedure LoadThirdParty;
|
||||
public
|
||||
procedure Paint; override;
|
||||
constructor Create(TheOwner: TComponent); override;
|
||||
@ -139,6 +142,7 @@ begin
|
||||
+'Tutorials: http://lazarus-ccr.sourceforge.net'+LineEnding
|
||||
;
|
||||
LoadContributors;
|
||||
LoadThirdParty;
|
||||
CloseButton.Caption:=lisClose;
|
||||
end;
|
||||
|
||||
@ -156,6 +160,19 @@ begin
|
||||
ContributorsMemo.Text:=lisAboutNoContributors;
|
||||
end;
|
||||
|
||||
procedure TAboutForm.LoadThirdParty;
|
||||
var
|
||||
ThirdPartyFileName: string;
|
||||
begin
|
||||
ThirdPartyFileName:=
|
||||
AppendPathDelim(EnvironmentOptions.LazarusDirectory)
|
||||
+'docs'+PathDelim+'thirdparty.txt';
|
||||
if FileExists(ThirdPartyFileName) then
|
||||
ThirdPartyMemo.Lines.LoadFromFile(ThirdPartyFileName)
|
||||
else
|
||||
ThirdPartyMemo.Text:=lisAboutNoContributors;
|
||||
end;
|
||||
|
||||
procedure TAboutForm.Paint;
|
||||
begin
|
||||
inherited Paint;
|
||||
|
Loading…
Reference in New Issue
Block a user