diff --git a/ide/aboutfrm.lfm b/ide/aboutfrm.lfm
index 7d9e827981..f13b4bfed7 100644
--- a/ide/aboutfrm.lfm
+++ b/ide/aboutfrm.lfm
@@ -11,7 +11,7 @@ object AboutForm: TAboutForm
OnCreate = AboutFormCreate
PopupMenu = PopupMenu1
Position = poScreenCenter
- LCLVersion = '0.9.27'
+ LCLVersion = '0.9.29'
object VersionLabel: TLabel
Left = 14
Height = 14
diff --git a/ide/aboutfrm.lrs b/ide/aboutfrm.lrs
index a5ce764dc9..aa73bdd614 100644
--- a/ide/aboutfrm.lrs
+++ b/ide/aboutfrm.lrs
@@ -5,7 +5,7 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
+#132#1#5'Width'#3'`'#2#13'ActiveControl'#7#8'Notebook'#7'Caption'#6#13'About'
+' Lazarus'#12'ClientHeight'#3'-'#1#11'ClientWidth'#3'`'#2#7'OnClose'#7#9'For'
+'mClose'#8'OnCreate'#7#15'AboutFormCreate'#9'PopupMenu'#7#10'PopupMenu1'#8'P'
- +'osition'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#12'Ver'
+ +'osition'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#12'Ver'
+'sionLabel'#4'Left'#2#14#6'Height'#2#14#3'Top'#2#6#5'Width'#2'3'#9'Alignment'
+#7#8'taCenter'#7'Caption'#6#10'Version #:'#11'ParentColor'#8#0#0#6'TLabel'#14
+'BuildDateLabel'#21'AnchorSideTop.Control'#7#12'VersionLabel'#18'AnchorSideT'
diff --git a/ide/aboutfrm.pas b/ide/aboutfrm.pas
index dba4b16828..ccb4dc7727 100644
--- a/ide/aboutfrm.pas
+++ b/ide/aboutfrm.pas
@@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, FPCAdds, Forms, Controls, Graphics, Dialogs, LResources,
StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, EnvironmentOpts,
- Clipbrd, FileUtil, Menus, HelpIntfs, LCLProc;
+ Clipbrd, FileUtil, Menus, LCLProc;
type
@@ -210,11 +210,8 @@ end;
procedure TAboutForm.URLLabelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-var
- err: string;
begin
- if HelpIntfs.ShowHelp(TLabel(Sender).Caption, 'Lazarus', 'text/html', err) <> shrSuccess then
- ShowMessage(err);
+ OpenURL(TLabel(Sender).Caption);
end;
procedure TAboutForm.URLLabelMouseLeave(Sender: TObject);
@@ -377,14 +374,11 @@ end;
procedure TScrollingText.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
-var
- err: string;
begin
inherited MouseDown(Button, Shift, X, Y);
if ActiveLineIsURL then
- if HelpIntfs.ShowHelp(FLines[FActiveLine], 'Lazarus', 'text/html', err) <> shrSuccess then
- ShowMessage(err);
+ OpenURL(FLines[FActiveLine]);
end;
procedure TScrollingText.MouseMove(Shift: TShiftState; X, Y: Integer);
diff --git a/ide/helpmanager.pas b/ide/helpmanager.pas
index 4a0e62b76e..4447114252 100644
--- a/ide/helpmanager.pas
+++ b/ide/helpmanager.pas
@@ -658,7 +658,7 @@ end;
procedure TIDEHelpManager.mnuHelpReportBugClicked(Sender: TObject);
begin
- ShowHelpOrError(lisReportingBugURL, lisMenuReportingBug, 'text/html');
+ OpenURL(lisReportingBugURL);
end;
procedure TIDEHelpManager.RegisterIDEHelpDatabases;
diff --git a/ide/lazarus.lpi b/ide/lazarus.lpi
index 013e29b6ab..8da8fe2525 100644
--- a/ide/lazarus.lpi
+++ b/ide/lazarus.lpi
@@ -40,7 +40,7 @@
-
+
@@ -374,6 +374,22 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+