paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Update links in About form.

Browse Source 
(cherry picked from commit 706943c5f3)
This commit is contained in:
wp_xyz 2023-07-04 17:50:06 +02:00
parent cce2f1cc92
commit ebfffd86e5
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
docs/acknowledgements.txt
View File

@ -3,27 +3,32 @@
#Component libraries:
Windows XP Theme Manager
http://www.soft-gems.net/
Windows XP Theme Manager
https://web.archive.org/web/20120105134619/http://www.soft-gems.net/
(Original site no longer available)
#Icon sets:
Silk icon set 1.3 by Mark James
http://www.famfamfam.com/lab/icons/silk/
Icons provided by Roland Hahn
https://www.rhsoft.de/
Silk icon set 1.3 by Mark James
https://github.com/legacy-icons/famfamfam-silk
(Original site http://www.famfamfam.com/lab/icons/silk/ no longer available)
Tango Icon Library
http://tango.freedesktop.org/Tango_Icon_Library
Fugue Icons
http://p.yusukekamiyamane.com/
https://p.yusukekamiyamane.com/
#RemObjects Pascal Script
Created by Carlo Kok / RemObjects Software
Fixed for Lazarus by Bogusіaw Brandys
http://www.remobjects.com/ps.aspx
https://www.remobjects.com/ps.aspx
TDiff by Angus Johnson
Fixed for Freepascal by Rickard Johansson (RJ TextEd)
http://github.com/rickard67/TextDiff
https://github.com/rickard67/TextDiff

8
ide/aboutfrm.pas
View File

@ -194,9 +194,9 @@ begin
Format(lisAboutLazarusMsg,[DoubleLineEnding,DoubleLineEnding,DoubleLineEnding]);
OfficialLabel.Caption := lisAboutOfficial;
OfficialURLLabel.Caption := 'http://www.lazarus-ide.org';
OfficialURLLabel.Caption := 'https://www.lazarus-ide.org';
DocumentationLabel.Caption := lisAboutDocumentation;
DocumentationURLLabel.Caption := 'http://wiki.lazarus.freepascal.org';
DocumentationURLLabel.Caption := 'https://wiki.freepascal.org';
LoadContributors;
LoadAcknowledgements;
@ -382,7 +382,7 @@ begin
else
begin
//check for url
if Pos('http://', s) = 1 then
if (Pos('http://', s) = 1) or (Pos('https://', s) = 1) then
begin
if i = FActiveLine then
begin
@ -408,7 +408,7 @@ end;
function TScrollingText.ActiveLineIsURL: boolean;
begin
if (FActiveLine > 0) and (FActiveLine < FLines.Count) then
Result := Pos('http://', FLines[FActiveLine]) = 1
Result := (Pos('http://', FLines[FActiveLine]) = 1) or (Pos('https://', FLines[FActiveLine]) = 1)
else
Result := False;
end;