tvplanit: Add Lazarus urls to AboutBox.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5070 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpabout.lfm

@@ -1,93 +1,29 @@
 object frmAbout: TfrmAbout
   Left = 282
-  Height = 312
+  Height = 325
   Top = 205
-  Width = 561
+  Width = 605
   HorzScrollBar.Page = 470
   VertScrollBar.Page = 311
   BorderStyle = bsDialog
   Caption = 'About Visual PlanIt'
-  ClientHeight = 312
-  ClientWidth = 561
+  ClientHeight = 325
+  ClientWidth = 605
   OnActivate = FormActivate
-  OnMouseMove = FormMouseMove
   Position = poScreenCenter
   LCLVersion = '1.7'
-  object Bevel3: TBevel
-    Left = 152
-    Height = 96
-    Top = 160
-    Width = 403
-    Anchors = [akTop, akLeft, akRight]
-    Shape = bsFrame
-    OnMouseMove = lblLinkMouseMove
-  end
   object Bevel2: TBevel
     Left = 6
-    Height = 17
-    Top = 265
-    Width = 549
+    Height = 9
+    Top = 272
+    Width = 593
     Anchors = [akTop, akLeft, akRight]
     Shape = bsTopLine
   end
-  object ProgramName: TLabel
-    Left = 152
-    Height = 16
-    Top = 8
-    Width = 80
-    Caption = 'Visual PlanIt'
-    Font.Height = -13
-    Font.Name = 'Default'
-    Font.Style = [fsBold]
-    ParentColor = False
-    ParentFont = False
-  end
-  object VisitUsLabel: TLabel
-    Left = 152
-    Height = 15
-    Top = 104
-    Width = 235
-    Caption = 'Visit the Visual PlanIt project on SourceForge'
-    ParentColor = False
-  end
-  object GeneralNewsgroupsLabel: TLabel
-    Left = 160
-    Height = 15
-    Top = 168
-    Width = 148
-    Caption = 'Visual PlanIt support groups'
-    ParentColor = False
-  end
-  object lblTurboLink: TLabel
-    Cursor = crHandPoint
-    Left = 161
-    Height = 15
-    Top = 120
-    Width = 222
-    Caption = 'http://sourceforge.net/projects/tpvplanit/'
-    Font.Color = clBlue
-    ParentColor = False
-    ParentFont = False
-    OnClick = lblLinkClick
-    OnMouseMove = lblLinkMouseMove
-  end
-  object lblHelp: TLabel
-    Cursor = crHandPoint
-    Left = 168
-    Height = 15
-    Top = 198
-    Width = 315
-    Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241880'
-    Font.Color = clBlue
-    ParentColor = False
-    ParentFont = False
-    OnClick = lblLinkClick
-    OnMouseMove = lblLinkMouseMove
-  end
   object CopyrightLabel: TLabel
     Left = 7
     Height = 15
-    Top = 273
+    Top = 280
     Width = 277
     Caption = '(C) Copyright 2001, TurboPower Software Company.'
     ParentColor = False
@@ -95,51 +31,11 @@ object frmAbout: TfrmAbout
   object RightsReservedLabel: TLabel
     Left = 7
     Height = 15
-    Top = 289
+    Top = 296
     Width = 97
     Caption = 'All rights reserved.'
     ParentColor = False
   end
-  object lblGeneralDiscussion: TLabel
-    Cursor = crHandPoint
-    Left = 168
-    Height = 15
-    Top = 230
-    Width = 315
-    Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241879'
-    Font.Color = clBlue
-    ParentColor = False
-    ParentFont = False
-    OnClick = lblLinkClick
-    OnMouseMove = lblLinkMouseMove
-  end
-  object Label2: TLabel
-    Left = 168
-    Height = 15
-    Top = 186
-    Width = 28
-    Caption = 'Help:'
-    ParentColor = False
-  end
-  object Label3: TLabel
-    Left = 168
-    Height = 15
-    Top = 217
-    Width = 102
-    Caption = 'General Discussion:'
-    ParentColor = False
-  end
-  object Label1: TLabel
-    Left = 152
-    Height = 58
-    Top = 40
-    Width = 395
-    Anchors = [akTop, akLeft, akRight]
-    AutoSize = False
-    Caption = 'Visual PlanIt was released under the Mozilla 1.1 license in January, 2003. The project is hosted on SourceForge at sourceforge.net/projects/tpvplanit.'
-    ParentColor = False
-    WordWrap = True
-  end
   object Panel1: TPanel
     Left = 6
     Height = 251
@@ -1284,9 +1180,9 @@ object frmAbout: TfrmAbout
     end
   end
   object OKButton: TButton
-    Left = 475
+    Left = 519
     Height = 25
-    Top = 277
+    Top = 284
     Width = 75
     Anchors = [akTop, akRight]
     Cancel = True
@@ -1294,4 +1190,207 @@ object frmAbout: TfrmAbout
     ModalResult = 1
     TabOrder = 1
   end
+  object Panel2: TPanel
+    Left = 153
+    Height = 248
+    Top = 8
+    Width = 441
+    Anchors = [akTop, akLeft, akRight]
+    BevelOuter = bvNone
+    ClientHeight = 248
+    ClientWidth = 441
+    TabOrder = 2
+    object ProgramName: TLabel
+      Left = 0
+      Height = 16
+      Top = 0
+      Width = 441
+      Align = alTop
+      Caption = 'Visual PlanIt'
+      Font.Height = -13
+      Font.Name = 'Default'
+      Font.Style = [fsBold]
+      ParentColor = False
+      ParentFont = False
+    end
+    object Bevel1: TBevel
+      Left = 0
+      Height = 8
+      Top = 16
+      Width = 441
+      Align = alTop
+      Shape = bsSpacer
+    end
+    object Label1: TLabel
+      Left = 0
+      Height = 30
+      Top = 24
+      Width = 441
+      Align = alTop
+      Caption = 'Visual PlanIt was released under the Mozilla 1.1 license in January, 2003. The project is hosted on SourceForge at'
+      ParentColor = False
+      WordWrap = True
+    end
+    object lblTurboLink: TLabel
+      Cursor = crHandPoint
+      Left = 0
+      Height = 15
+      Top = 54
+      Width = 441
+      Align = alTop
+      Caption = 'http://sourceforge.net/projects/tpvplanit/'
+      Font.Color = clBlue
+      ParentColor = False
+      ParentFont = False
+      OnClick = lblLinkClick
+      OnMouseEnter = lblLinkMouseEnter
+      OnMouseLeave = lblLinkMouseLeave
+    end
+    object Bevel4: TBevel
+      Left = 0
+      Height = 8
+      Top = 69
+      Width = 441
+      Align = alTop
+      Shape = bsSpacer
+    end
+    object Label4: TLabel
+      Left = 0
+      Height = 15
+      Top = 77
+      Width = 441
+      Align = alTop
+      Caption = 'The Lazarus port is hosted at'
+      ParentColor = False
+      WordWrap = True
+    end
+    object lblLazPortLink: TLabel
+      Cursor = crHandPoint
+      Left = 0
+      Height = 15
+      Top = 92
+      Width = 441
+      Align = alTop
+      Caption = 'http://sourceforge.net/p/lazarus-ccr/svn/HEAD/tree/components/tvplanit/'
+      Font.Color = clBlue
+      ParentColor = False
+      ParentFont = False
+      OnClick = lblLinkClick
+      OnMouseEnter = lblLinkMouseEnter
+      OnMouseLeave = lblLinkMouseLeave
+    end
+    object Panel3: TPanel
+      Left = 0
+      Height = 133
+      Top = 115
+      Width = 441
+      Align = alBottom
+      BorderSpacing.Top = 4
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      ClientHeight = 133
+      ClientWidth = 441
+      TabOrder = 0
+      object GeneralNewsgroupsLabel: TLabel
+        Left = 6
+        Height = 15
+        Top = 6
+        Width = 429
+        Align = alTop
+        BorderSpacing.Left = 4
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 4
+        Caption = 'Visual PlanIt support groups'
+        ParentColor = False
+        ParentFont = False
+      end
+      object Label2: TLabel
+        Left = 18
+        Height = 15
+        Top = 25
+        Width = 417
+        Align = alTop
+        BorderSpacing.Left = 16
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 4
+        Caption = 'Help:'
+        ParentColor = False
+      end
+      object lblHelp: TLabel
+        Cursor = crHandPoint
+        Left = 18
+        Height = 15
+        Top = 40
+        Width = 417
+        Align = alTop
+        BorderSpacing.Left = 16
+        BorderSpacing.Right = 4
+        Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241880'
+        Font.Color = clBlue
+        ParentColor = False
+        ParentFont = False
+        OnClick = lblLinkClick
+        OnMouseEnter = lblLinkMouseEnter
+        OnMouseLeave = lblLinkMouseLeave
+      end
+      object Label3: TLabel
+        Left = 18
+        Height = 15
+        Top = 59
+        Width = 417
+        Align = alTop
+        BorderSpacing.Left = 16
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 4
+        Caption = 'General discussion:'
+        ParentColor = False
+      end
+      object lblGeneralDiscussion: TLabel
+        Cursor = crHandPoint
+        Left = 18
+        Height = 15
+        Top = 74
+        Width = 417
+        Align = alTop
+        BorderSpacing.Left = 16
+        BorderSpacing.Right = 4
+        Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241879'
+        Font.Color = clBlue
+        ParentColor = False
+        ParentFont = False
+        OnClick = lblLinkClick
+        OnMouseEnter = lblLinkMouseEnter
+        OnMouseLeave = lblLinkMouseLeave
+      end
+      object Label5: TLabel
+        Left = 18
+        Height = 15
+        Top = 93
+        Width = 417
+        Align = alTop
+        BorderSpacing.Left = 16
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 4
+        Caption = 'Lazarus port:'
+        ParentColor = False
+      end
+      object lblLazForumLink: TLabel
+        Cursor = crHandPoint
+        Left = 18
+        Height = 15
+        Top = 108
+        Width = 421
+        Align = alTop
+        BorderSpacing.Left = 16
+        BorderSpacing.Bottom = 4
+        Caption = 'http://forum.lazarus.freepascal.org/'
+        Font.Color = clBlue
+        ParentColor = False
+        ParentFont = False
+        OnClick = lblLinkClick
+        OnMouseEnter = lblLinkMouseEnter
+        OnMouseLeave = lblLinkMouseLeave
+      end
+    end
+  end
 end

components/tvplanit/source/vpabout.pas

@@ -54,25 +54,31 @@ type
 
   { TfrmAbout }
   TfrmAbout = class(TForm)
+    Bevel1: TBevel;
     Bevel2: TBevel;
+    Bevel4: TBevel;
+    Label4: TLabel;
+    Label5: TLabel;
+    lblLazForumLink: TLabel;
+    lblLazPortLink: TLabel;
     Panel1: TPanel;
     Image1: TImage;
+    Panel2: TPanel;
+    Panel3: TPanel;
     ProgramName: TLabel;
-    VisitUsLabel: TLabel;
     GeneralNewsgroupsLabel: TLabel;
     lblTurboLink: TLabel;
     lblHelp: TLabel;
     CopyrightLabel: TLabel;
     RightsReservedLabel: TLabel;
     OKButton: TButton;
-    Bevel3: TBevel;
     lblGeneralDiscussion: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label1: TLabel;
     procedure FormActivate(Sender: TObject);
-    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
-    procedure lblLinkMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
+    procedure lblLinkMouseEnter(Sender: TObject);
+    procedure lblLinkMouseLeave(Sender: TObject);
     procedure lblLinkClick(Sender: TObject);
   private
     { Private declarations }
@@ -108,6 +114,8 @@ const
   HELP_URL = 'http://sourceforge.net/forum/forum.php?forum_id=241880';
   {%H-}NEWS_SPECIFIC_URL = 'news://news.turbopower.com/turbopower.public.support.visualplanit';
   GENERAL_DISCUSSION_URL = 'http://sourceforge.net/forum/forum.php?forum_id=241879';
+  LAZARUS_PORT_URL = 'http://sourceforge.net/p/lazarus-ccr/svn/HEAD/tree/components/tvplanit';
+  LAZARUS_FORUM_URL = 'http://forum.lazarus.freepascal.org';
 
 
 {*** TVpAboutProperty ***}
@@ -149,13 +157,18 @@ begin
   lblTurboLink.Cursor := crHandPoint;
   lblHelp.Cursor := crHandPoint;
   lblGeneralDiscussion.Cursor := crHandPoint;
+  lblLazPortLink.Cursor := crHandPoint;
+  lblLazForumLink.Cursor := crHandpoint;
 end;
 
-procedure TfrmAbout.FormMouseMove(Sender: TObject; Shift: TShiftState;
-  X, Y: Integer);
+procedure TfrmAbout.lblLinkMouseEnter(Sender: TObject);
 begin
-  Unused(Shift, X, Y);
-  lblTurboLink.Font.Style := [];
+  (Sender as TLabel).Font.Style := [fsUnderline];
+end;
+
+procedure TfrmAbout.lblLinkMouseLeave(Sender: TObject);
+begin
+  (Sender as TLabel).Font.Style := [];
 end;
 
 procedure TfrmAbout.lblLinkClick(Sender: TObject);
@@ -163,10 +176,22 @@ var
   url: String;
 begin
   //  if Sender = lblNewsSpecific then url := NEWS_SPECIFIC_URL else
-  if Sender = lblHelp then url := HELP_URL else
-  if Sender = lblGeneralDiscussion then url := GENERAL_DISCUSSION_URL else
-  if Sender = lblTurboLink then url := TURBO_LINK_URL else
-  exit;
+  if Sender = lblHelp then
+    url := HELP_URL
+  else
+  if Sender = lblGeneralDiscussion then
+    url := GENERAL_DISCUSSION_URL
+  else
+  if Sender = lblTurboLink then
+    url := TURBO_LINK_URL
+  else
+  if Sender = lblLazPortLink then
+    url := LAZARUS_PORT_URL
+  else
+  if Sender = lblLazForumLink then
+    url := LAZARUS_FORUM_URL
+  else
+    exit;
 {$IFDEF LCL}
   if not OpenUrl(url)
 {$ELSE}
@@ -176,13 +201,5 @@ begin
     ShowMessage(RSBrowserError);
 end;
 
-procedure TfrmAbout.lblLinkMouseMove(Sender: TObject;
-  Shift: TShiftState; X, Y: Integer);
-begin
-  Unused(Shift, X, Y);
-  TLabel(Sender).Font.Style := [fsUnderline];
-end;
-
-
 end.