You've already forked lazarus-ccr
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:
@ -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
|
||||||
|
@ -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.
|
||||||
|
Reference in New Issue
Block a user