tvplanit: In Aboutbox, replace font Ms Sans Serif by Default; make links clickable.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4694 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-08 19:14:13 +00:00
parent 4308a684f9
commit 6c36a9912a
2 changed files with 67 additions and 57 deletions

View File

@ -10,10 +10,11 @@ object frmAbout: TfrmAbout
ClientHeight = 312 ClientHeight = 312
ClientWidth = 471 ClientWidth = 471
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
OnActivate = FormActivate OnActivate = FormActivate
OnMouseMove = FormMouseMove OnMouseMove = FormMouseMove
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7'
object Bevel3: TBevel object Bevel3: TBevel
Left = 152 Left = 152
Height = 96 Height = 96
@ -30,110 +31,114 @@ object frmAbout: TfrmAbout
end end
object ProgramName: TLabel object ProgramName: TLabel
Left = 152 Left = 152
Height = 14 Height = 16
Top = 8 Top = 8
Width = 92 Width = 80
Caption = 'Visual PlanIt' Caption = 'Visual PlanIt'
Font.Height = -13 Font.Height = -13
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False
end end
object VisitUsLabel: TLabel object VisitUsLabel: TLabel
Left = 153 Left = 152
Height = 15 Height = 14
Top = 109 Top = 109
Width = 287 Width = 217
Caption = 'Visit the Visual PlanIt project on SourceForge' Caption = 'Visit the Visual PlanIt project on SourceForge'
ParentColor = False ParentColor = False
end end
object GeneralNewsgroupsLabel: TLabel object GeneralNewsgroupsLabel: TLabel
Left = 160 Left = 160
Height = 15 Height = 14
Top = 168 Top = 168
Width = 179 Width = 135
Caption = 'Visual PlanIt support groups' Caption = 'Visual PlanIt support groups'
ParentColor = False ParentColor = False
end end
object lblTurboLink: TLabel object lblTurboLink: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 161 Left = 161
Height = 13 Height = 14
Top = 125 Top = 125
Width = 232 Width = 193
Caption = 'http://sourceforge.net/projects/tpvplanit/' Caption = 'http://sourceforge.net/projects/tpvplanit/'
Font.Color = clBlue Font.Color = clBlue
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
Font.Style = [fsUnderline] Font.Style = [fsUnderline]
ParentColor = False ParentColor = False
ParentFont = False
OnClick = lblTurboLinkClick OnClick = lblTurboLinkClick
OnMouseMove = lblTurboLinkMouseMove OnMouseMove = lblTurboLinkMouseMove
end end
object lblHelp: TLabel object lblHelp: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 168 Left = 168
Height = 13 Height = 14
Top = 198 Top = 198
Width = 334 Width = 278
Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241880' Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241880'
Font.Color = clBlue Font.Color = clBlue
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
Font.Style = [fsUnderline] Font.Style = [fsUnderline]
ParentColor = False ParentColor = False
ParentFont = False
OnClick = lblHelpClick OnClick = lblHelpClick
OnMouseMove = lblTurboLinkMouseMove OnMouseMove = lblTurboLinkMouseMove
end end
object CopyrightLabel: TLabel object CopyrightLabel: TLabel
Left = 7 Left = 7
Height = 15 Height = 14
Top = 273 Top = 273
Width = 332 Width = 256
Caption = '(C) Copyright 2001, TurboPower Software Company.' Caption = '(C) Copyright 2001, TurboPower Software Company.'
ParentColor = False ParentColor = False
end end
object RightsReservedLabel: TLabel object RightsReservedLabel: TLabel
Left = 7 Left = 7
Height = 15 Height = 14
Top = 289 Top = 289
Width = 120 Width = 92
Caption = 'All rights reserved.' Caption = 'All rights reserved.'
ParentColor = False ParentColor = False
end end
object lblGeneralDiscussion: TLabel object lblGeneralDiscussion: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 168 Left = 168
Height = 13 Height = 14
Top = 230 Top = 230
Width = 334 Width = 278
Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241879' Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241879'
Font.Color = clBlue Font.Color = clBlue
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
Font.Style = [fsUnderline] Font.Style = [fsUnderline]
ParentColor = False ParentColor = False
ParentFont = False
OnClick = lblGeneralDiscussionClick OnClick = lblGeneralDiscussionClick
OnMouseMove = lblTurboLinkMouseMove OnMouseMove = lblTurboLinkMouseMove
end end
object Label2: TLabel object Label2: TLabel
Left = 168 Left = 168
Height = 15 Height = 14
Top = 186 Top = 186
Width = 34 Width = 24
Caption = 'Help:' Caption = 'Help:'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 168 Left = 168
Height = 15 Height = 14
Top = 217 Top = 217
Width = 127 Width = 97
Caption = 'General Discussion:' Caption = 'General Discussion:'
ParentColor = False ParentColor = False
end end
object Label1: TLabel object Label1: TLabel
Left = 160 Left = 152
Height = 49 Height = 49
Top = 40 Top = 40
Width = 265 Width = 265
@ -1283,7 +1288,6 @@ object frmAbout: TfrmAbout
E117E117E117E117E117E117E117E117E117E117E117E117E117E117E117E117 E117E117E117E117E117E117E117E117E117E117E117E117E117E117E117E117
E117E117E117E117E117E1FF9139 E117E117E117E117E117E1FF9139
} }
Transparent = False
end end
end end
object OKButton: TButton object OKButton: TButton

View File

@ -72,8 +72,6 @@ type
procedure OKButtonClick(Sender: TObject); procedure OKButtonClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure lblTurboLinkClick(Sender: TObject); procedure lblTurboLinkClick(Sender: TObject);
procedure lblFreeUpdateCenterClick(Sender: TObject);
procedure lblTurboPowerLiveClick(Sender: TObject);
procedure lblTurboLinkMouseMove(Sender: TObject; Shift: TShiftState; X, procedure lblTurboLinkMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
@ -113,6 +111,13 @@ uses
resourcestring resourcestring
cBrowserError = 'Unable to start web browser. Make sure you have it properly setup on your system.'; cBrowserError = 'Unable to start web browser. Make sure you have it properly setup on your system.';
const
TURBO_LINK_URL = 'http://sourceforge.net/projects/tpvplanit/';
HELP_URL = 'http://sourceforge.net/forum/forum.php?forum_id=241880';
NEWS_SPECIFIC_URL = 'news://news.turbopower.com/turbopower.public.support.visualplanit';
GENERAL_DISCUSSION_URL = 'http://sourceforge.net/forum/forum.php?forum_id=241879';
{*** TVpAboutProperty ***} {*** TVpAboutProperty ***}
function TVpAboutProperty.GetAttributes: TPropertyAttributes; function TVpAboutProperty.GetAttributes: TPropertyAttributes;
@ -141,13 +146,19 @@ end;
{=====} {=====}
procedure TfrmAbout.FormActivate(Sender: TObject); procedure TfrmAbout.FormActivate(Sender: TObject);
const
{$IFDEF LCL}
COPYRIGHT = '©';
{$ELSE}
COPYRIGHT = #169
{$ENDIF}
var var
Year, Junk: Word; Year, Junk: Word;
begin begin
ProgramName.Caption := VpProductName + ' ' + VpVersionStr; ProgramName.Caption := VpProductName + ' ' + VpVersionStr;
DecodeDate(Now, Year, junk, junk); DecodeDate(Now, Year, junk, junk);
CopyrightLabel.Caption := #169 + ' Copyright 2000 - ' + IntToStr(Year) CopyrightLabel.Caption := Format('%s Copyright 2000 - %d, TurboPower Software Company.',
+ ', TurboPower Software Company.'; [COPYRIGHT, Year]);
lblTurboLink.Cursor := crHandPoint; lblTurboLink.Cursor := crHandPoint;
lblHelp.Cursor := crHandPoint; lblHelp.Cursor := crHandPoint;
@ -157,23 +168,18 @@ end;
procedure TfrmAbout.lblTurboLinkClick(Sender: TObject); procedure TfrmAbout.lblTurboLinkClick(Sender: TObject);
begin begin
{$IFNDEF LCL} {$IFDEF LCL}
if ShellExecute(0, 'open', 'http://sourceforge.net/projects/tpvplanit/', if not OpenURL(TURBO_LINK_URL)
'', '', SW_SHOWNORMAL) <= 32 {$ELSE}
if ShellExecute(0, 'open', TURBO_LINK_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then then
ShowMessage(cBrowserError); ShowMessage(cBrowserError);
{$ENDIF}
end; end;
{=====} {=====}
procedure TfrmAbout.lblFreeUpdateCenterClick(Sender : TObject);
begin
end;
{=====} {=====}
procedure TfrmAbout.lblTurboPowerLiveClick(Sender : TObject);
begin
end;
{=====} {=====}
procedure TfrmAbout.lblTurboLinkMouseMove(Sender: TObject; procedure TfrmAbout.lblTurboLinkMouseMove(Sender: TObject;
@ -192,37 +198,37 @@ end;
procedure TfrmAbout.lblHelpClick(Sender: TObject); procedure TfrmAbout.lblHelpClick(Sender: TObject);
begin begin
{$IFNDEF LCL} {$IFDEF LCL}
if ShellExecute(0, 'open', if not OpenUrl(HELP_URL)
'http://sourceforge.net/forum/forum.php?forum_id=241880', '', '', {$ELSE}
SW_SHOWNORMAL) <= 32 if ShellExecute(0, 'open', HELP_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then then
ShowMessage(cBrowserError); ShowMessage(cBrowserError);
{$ENDIF}
end; end;
{=====} {=====}
procedure TfrmAbout.lblNewsSpecificClick(Sender: TObject); procedure TfrmAbout.lblNewsSpecificClick(Sender: TObject);
begin begin
{$IFNDEF LCL} {$IFDEF LCL}
if ShellExecute(0, 'open', if not OpenURL(NEWS_SPECIFIC_URL)
'news://news.turbopower.com/turbopower.public.support.visualplanit', {$ELSE}
'', '', SW_SHOWNORMAL) <= 32 if ShellExecute(0, 'open', NEWS_SPECIFIC_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then then
ShowMessage(cBrowserError); ShowMessage(cBrowserError);
{$ENDIF}
end; end;
{=====} {=====}
procedure TfrmAbout.lblGeneralDiscussionClick(Sender: TObject); procedure TfrmAbout.lblGeneralDiscussionClick(Sender: TObject);
begin begin
{$IFNDEF LCL} {$IFDEF LCL}
if ShellExecute(0, 'open', if not OpenURL(GENERAL_DISCUSSION_URL)
'http://sourceforge.net/forum/forum.php?forum_id=241879', '', '', {$ELSE}
SW_SHOWNORMAL) <= 32 if ShellExecute(0, 'open', GENERAL_DISCUSSION_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then then
ShowMessage(cBrowserError); ShowMessage(cBrowserError);
{$ENDIF}
end; end;
end. end.