paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:56:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: correctly open URL in About Dialog and "Reporting a bug" menu item

Browse Source 
git-svn-id: trunk@22018 -
This commit is contained in:
paul 2009-10-04 06:13:05 +00:00
parent e5a1d233e4
commit af8d456d33
5 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/aboutfrm.lfm
View File

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

2
ide/aboutfrm.lrs
View File

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

12
ide/aboutfrm.pas
View File

@ -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);

2
ide/helpmanager.pas
View File

@ -658,7 +658,7 @@ end;
procedure TIDEHelpManager.mnuHelpReportBugClicked(Sender: TObject);
begin
ShowHelpOrError(lisReportingBugURL, lisMenuReportingBug, 'text/html');
OpenURL(lisReportingBugURL);
end;
procedure TIDEHelpManager.RegisterIDEHelpDatabases;

18
ide/lazarus.lpi
View File

@ -40,7 +40,7 @@
<PackageName Value="SynEdit"/>
</Item4>
</RequiredPackages>
<Units Count="49">
<Units Count="51">
<Unit0>
<Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/>
@ -374,6 +374,22 @@
<IsPartOfProject Value="True"/>
<UnitName Value="CustomFormEditor"/>
</Unit48>
<Unit49>
<Filename Value="aboutfrm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="AboutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="AboutFrm"/>
</Unit49>
<Unit50>
<Filename Value="helpmanager.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="HelpSelectorDialog"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="HelpManager"/>
</Unit50>
</Units>
</ProjectOptions>
<CompilerOptions>