paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 20:19:10 +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

15
docs/acknowledgements.txt
View File

@ -4,26 +4,31 @@
#Component libraries: #Component libraries:
Windows XP Theme Manager Windows XP Theme Manager
http://www.soft-gems.net/ https://web.archive.org/web/20120105134619/http://www.soft-gems.net/
(Original site no longer available)
#Icon sets: #Icon sets:
Icons provided by Roland Hahn
https://www.rhsoft.de/
Silk icon set 1.3 by Mark James Silk icon set 1.3 by Mark James
http://www.famfamfam.com/lab/icons/silk/ https://github.com/legacy-icons/famfamfam-silk
(Original site http://www.famfamfam.com/lab/icons/silk/ no longer available)
Tango Icon Library Tango Icon Library
http://tango.freedesktop.org/Tango_Icon_Library http://tango.freedesktop.org/Tango_Icon_Library
Fugue Icons Fugue Icons
http://p.yusukekamiyamane.com/ https://p.yusukekamiyamane.com/
#RemObjects Pascal Script #RemObjects Pascal Script
Created by Carlo Kok / RemObjects Software Created by Carlo Kok / RemObjects Software
Fixed for Lazarus by Bogusіaw Brandys Fixed for Lazarus by Bogusіaw Brandys
http://www.remobjects.com/ps.aspx https://www.remobjects.com/ps.aspx
TDiff by Angus Johnson TDiff by Angus Johnson
Fixed for Freepascal by Rickard Johansson (RJ TextEd) 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]); Format(lisAboutLazarusMsg,[DoubleLineEnding,DoubleLineEnding,DoubleLineEnding]);
OfficialLabel.Caption := lisAboutOfficial; OfficialLabel.Caption := lisAboutOfficial;
OfficialURLLabel.Caption := 'http://www.lazarus-ide.org'; OfficialURLLabel.Caption := 'https://www.lazarus-ide.org';
DocumentationLabel.Caption := lisAboutDocumentation; DocumentationLabel.Caption := lisAboutDocumentation;
DocumentationURLLabel.Caption := 'http://wiki.lazarus.freepascal.org'; DocumentationURLLabel.Caption := 'https://wiki.freepascal.org';
LoadContributors; LoadContributors;
LoadAcknowledgements; LoadAcknowledgements;
@ -382,7 +382,7 @@ begin
else else
begin begin
//check for url //check for url
if Pos('http://', s) = 1 then if (Pos('http://', s) = 1) or (Pos('https://', s) = 1) then
begin begin
if i = FActiveLine then if i = FActiveLine then
begin begin
@ -408,7 +408,7 @@ end;
function TScrollingText.ActiveLineIsURL: boolean; function TScrollingText.ActiveLineIsURL: boolean;
begin begin
if (FActiveLine > 0) and (FActiveLine < FLines.Count) then 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 else
Result := False; Result := False;
end; end;