fixed wrong 'hints'

2.10/Source/About.dfm

@@ -1866,7 +1866,7 @@ object AboutForm: TAboutForm
   object Label1: TLabel
     Left = 120
     Top = 8
-    Width = 131
+    Width = 137
     Height = 36
     Caption = 'Apophysis'
     Font.Charset = ANSI_CHARSET
@@ -1877,22 +1877,22 @@ object AboutForm: TAboutForm
     ParentFont = False
   end
   object Label2: TLabel
-    Left = 120
-    Top = 48
+    Left = 260
+    Top = 24
     Width = 65
     Height = 13
     Caption = 'Version 2.03b'
   end
   object Label3: TLabel
     Left = 120
-    Top = 172
+    Top = 164
     Width = 166
     Height = 13
     Caption = 'This application was created using:'
   end
   object Label4: TLabel
     Left = 120
-    Top = 84
+    Top = 72
     Width = 123
     Height = 13
     Cursor = crHandPoint
@@ -1908,21 +1908,21 @@ object AboutForm: TAboutForm
   end
   object Label10: TLabel
     Left = 120
-    Top = 244
+    Top = 236
     Width = 178
     Height = 13
     Caption = 'flame - cosmic recursive fractal flames'
   end
   object Label11: TLabel
     Left = 120
-    Top = 260
+    Top = 252
     Width = 178
     Height = 13
     Caption = 'Copyright '#169' 1992-2005  Scott Draves'
   end
   object lblFlamecom: TLabel
     Left = 120
-    Top = 276
+    Top = 268
     Width = 79
     Height = 13
     Cursor = crHandPoint
@@ -1946,8 +1946,8 @@ object AboutForm: TAboutForm
   end
   object Bevel1: TBevel
     Left = 120
-    Top = 232
-    Width = 193
+    Top = 224
+    Width = 209
     Height = 10
     Shape = bsBottomLine
   end
@@ -1968,14 +1968,14 @@ object AboutForm: TAboutForm
   end
   object Label6: TLabel
     Left = 120
-    Top = 104
+    Top = 92
     Width = 86
     Height = 13
     Caption = 'Copyright '#169' 2005 '
   end
   object Label7: TLabel
     Left = 140
-    Top = 120
+    Top = 108
     Width = 115
     Height = 13
     Cursor = crHandPoint
@@ -1991,7 +1991,7 @@ object AboutForm: TAboutForm
   end
   object Label8: TLabel
     Left = 140
-    Top = 136
+    Top = 124
     Width = 96
     Height = 13
     Cursor = crHandPoint
@@ -2007,25 +2007,25 @@ object AboutForm: TAboutForm
   end
   object Label9: TLabel
     Left = 140
-    Top = 152
+    Top = 140
     Width = 70
     Height = 13
     Caption = 'Ronald Hordijk'
   end
   object Label12: TLabel
     Left = 120
-    Top = 68
+    Top = 56
     Width = 190
     Height = 13
     Caption = 'Copyright '#169' 2001-2004 Mark Townsend'
   end
   object Label13: TLabel
     Left = 120
-    Top = 188
+    Top = 180
     Width = 69
     Height = 13
     Cursor = crHandPoint
-    Hint = 'http://www.apophysis.org'
+    Hint = 'http://www.tmssoftware.com/'
     Caption = 'Scripter Studio'
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBlue
@@ -2033,15 +2033,15 @@ object AboutForm: TAboutForm
     Font.Name = 'MS Sans Serif'
     Font.Style = [fsUnderline]
     ParentFont = False
-    OnClick = Label13Click
+    OnClick = DevelopersClick
   end
   object Label14: TLabel
     Left = 120
-    Top = 204
+    Top = 196
     Width = 55
     Height = 13
     Cursor = crHandPoint
-    Hint = 'http://www.apophysis.org'
+    Hint = 'http://www.destructor.de/'
     Caption = 'XML Parser'
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBlue
@@ -2049,15 +2049,15 @@ object AboutForm: TAboutForm
     Font.Name = 'MS Sans Serif'
     Font.Style = [fsUnderline]
     ParentFont = False
-    OnClick = Label14Click
+    OnClick = DevelopersClick
   end
   object Label15: TLabel
     Left = 120
-    Top = 220
+    Top = 212
     Width = 175
     Height = 13
     Cursor = crHandPoint
-    Hint = 'http://www.apophysis.org'
+    Hint = 'http://pngdelphi.sourceforge.net/'
     Caption = 'Portable Network Graphics for Delphi'
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBlue
@@ -2065,20 +2065,20 @@ object AboutForm: TAboutForm
     Font.Name = 'MS Sans Serif'
     Font.Style = [fsUnderline]
     ParentFont = False
-    OnClick = Label15Click
+    OnClick = DevelopersClick
   end
   object Bevel2: TBevel
     Left = 116
-    Top = 57
-    Width = 193
+    Top = 41
+    Width = 213
     Height = 10
     Shape = bsBottomLine
   end
   object Bevel3: TBevel
     Left = 120
-    Top = 158
-    Width = 193
-    Height = 10
+    Top = 150
+    Width = 209
+    Height = 11
     Shape = bsBottomLine
   end
   object btnOK: TButton

2.10/Source/About.pas

@@ -47,9 +47,6 @@ type
     Label15: TLabel;
     Bevel2: TBevel;
     Bevel3: TBevel;
-    procedure Label15Click(Sender: TObject);
-    procedure Label14Click(Sender: TObject);
-    procedure Label13Click(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
     procedure Label4Click(Sender: TObject);
     procedure lblFlamecomClick(Sender: TObject);
@@ -109,22 +106,4 @@ begin
     nil, nil, SW_SHOWNORMAL);
 end;
 
-procedure TAboutForm.Label13Click(Sender: TObject);
-begin
-  ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://www.tmssoftware.com/'),
-    nil, nil, SW_SHOWNORMAL);
-end;
-
-procedure TAboutForm.Label14Click(Sender: TObject);
-begin
-  ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://www.destructor.de/'),
-    nil, nil, SW_SHOWNORMAL);
-end;
-
-procedure TAboutForm.Label15Click(Sender: TObject);
-begin
-  ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://pngdelphi.sourceforge.net/'),
-    nil, nil, SW_SHOWNORMAL);
-end;
-
 end.