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 @@ + + + + + + + + + + + + + + + +