CH: Added menus in project tree and a new hyperlink for the support email address

LuaEdit/About.dfm

@@ -4,7 +4,7 @@ object frmAbout: TfrmAbout
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = 'About LuaEdit'
-  ClientHeight = 289
+  ClientHeight = 305
   ClientWidth = 409
   Color = clWhite
   Font.Charset = DEFAULT_CHARSET
@@ -517,7 +517,7 @@ object frmAbout: TfrmAbout
   end
   object btnClose: TButton
     Left = 325
-    Top = 256
+    Top = 272
     Width = 75
     Height = 25
     Cancel = True
@@ -530,65 +530,65 @@ object frmAbout: TfrmAbout
     Left = 8
     Top = 104
     Width = 393
-    Height = 145
+    Height = 161
     Caption = 'Product Description'
     TabOrder = 1
     object lblVersion: TLabel
-      Left = 82
-      Top = 51
+      Left = 98
+      Top = 43
       Width = 15
       Height = 13
       Caption = '1.0'
     end
     object Label2: TLabel
-      Left = 16
-      Top = 51
+      Left = 32
+      Top = 43
       Width = 38
       Height = 13
       Caption = 'Version:'
     end
     object Label3: TLabel
-      Left = 82
-      Top = 34
+      Left = 98
+      Top = 26
       Width = 115
       Height = 13
       Caption = 'Jean-Fran'#231'ois Goulet  -  '
     end
     object Label5: TLabel
-      Left = 16
-      Top = 34
+      Left = 32
+      Top = 26
       Width = 34
       Height = 13
       Caption = 'Author:'
     end
     object Label6: TLabel
-      Left = 16
-      Top = 120
+      Left = 32
+      Top = 128
       Width = 145
       Height = 13
       Caption = 'Memory Available to Windows:'
     end
     object lblMemory: TLabel
-      Left = 168
-      Top = 120
+      Left = 184
+      Top = 128
       Width = 56
       Height = 13
       Caption = '523 520 KB'
     end
     object lblOS: TLabel
-      Left = 16
-      Top = 104
+      Left = 32
+      Top = 112
       Width = 114
       Height = 13
       Caption = 'Windows XP Build 2600'
     end
     object Label7: TLabel
-      Left = 198
-      Top = 34
-      Width = 108
+      Left = 214
+      Top = 26
+      Width = 82
       Height = 13
       Cursor = crHandPoint
-      Caption = 'hay0b29@hotmail.com'
+      Caption = 'gouletje@vif.com'
       DragCursor = crArrow
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clBlue
@@ -599,18 +599,40 @@ object frmAbout: TfrmAbout
       OnClick = Label7Click
     end
     object Label8: TLabel
-      Left = 16
-      Top = 68
+      Left = 32
+      Top = 60
       Width = 47
       Height = 13
       Caption = 'Copyright:'
     end
     object Label9: TLabel
-      Left = 82
-      Top = 68
+      Left = 98
+      Top = 60
       Width = 210
       Height = 13
       Caption = 'Copyright'#169' 2004-2005 Jean-Fran'#231'ois Goulet'
     end
+    object Label10: TLabel
+      Left = 32
+      Top = 80
+      Width = 40
+      Height = 13
+      Caption = 'Support:'
+    end
+    object Label1: TLabel
+      Left = 98
+      Top = 80
+      Width = 114
+      Height = 13
+      Cursor = crHandPoint
+      Caption = '[email protected]'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clBlue
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+      OnClick = Label1Click
+    end
   end
 end

LuaEdit/About.pas

@@ -22,11 +22,14 @@ type
     Label8: TLabel;
     Label9: TLabel;
     Image1: TImage;
+    Label10: TLabel;
+    Label1: TLabel;
     procedure imgLuaLogoClick(Sender: TObject);
     procedure btnCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure Label7Click(Sender: TObject);
     procedure Image1Click(Sender: TObject);
+    procedure Label1Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -76,7 +79,7 @@ end;
 
 procedure TfrmAbout.Label7Click(Sender: TObject);
 begin
-  ShellExecute(Self.Handle, 'open', 'mailto:hay0b29@hotmail.com?subject=About LuaEdit...', nil, nil, SW_SHOWNORMAL);
+  ShellExecute(Self.Handle, 'open', 'mailto:gouletje@vif.com?subject=About LuaEdit...', nil, nil, SW_SHOWNORMAL);
 end;
 
 procedure TfrmAbout.Image1Click(Sender: TObject);
@@ -84,4 +87,9 @@ begin
   ShellExecute(Self.Handle, 'open', 'http://luaedit.luaforge.net', nil, nil, SW_SHOWNORMAL);
 end;
 
+procedure TfrmAbout.Label1Click(Sender: TObject);
+begin
+  ShellExecute(Self.Handle, 'open', 'mailto:[email protected]?subject=LuaEdit Support...', nil, nil, SW_SHOWNORMAL);
+end;
+
 end.

LuaEdit/LuaEdit.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=2
 MinorVer=0
 Release=1
-Build=561
+Build=565
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Open Source
 FileDescription=IDE for Lua 5.0.2
-FileVersion=2.0.1.561
+FileVersion=2.0.1.565
 InternalName=LuaEdit
 LegalCopyright=LuaEdit Copyright 2004-2005 ©
 LegalTrademarks=