code cleanup : removed unused TPaintBoxes and constructor

fixed bug http://bugs.freepascal.org/view.php?id=12478 by checking against the bounds of TScrollingText.FLines

git-svn-id: trunk@17198 -

ide/aboutfrm.lfm

@@ -287,7 +287,7 @@ object AboutForm: TAboutForm
     Enabled = True
     OnPageChanged = NotebookPageChanged
     Options = []
-    PageIndex = 3
+    PageIndex = 2
     ParentFont = True
     ShowTabs = True
     TabOrder = 0
@@ -500,33 +500,9 @@ object AboutForm: TAboutForm
       ChildSizing.HorizontalSpacing = 0
       ChildSizing.VerticalSpacing = 0
       ChildSizing.ControlsPerLine = 0
-      ClientWidth = 385
-      ClientHeight = 261
       ImageIndex = -1
       ParentFont = True
       ParentShowHint = True
-      object ContributorsPaintBox: TPaintBox
-        Left = 0
-        Height = 261
-        Top = 0
-        Width = 385
-        HelpContext = 0
-        Align = alClient
-        BorderSpacing.Left = 0
-        BorderSpacing.Top = 0
-        BorderSpacing.Right = 0
-        BorderSpacing.Bottom = 0
-        BorderSpacing.Around = 0
-        BorderSpacing.CellAlignHorizontal = ccaFill
-        BorderSpacing.CellAlignVertical = ccaFill
-        DragCursor = crDrag
-        DragMode = dmManual
-        Enabled = True
-        ParentColor = True
-        ParentFont = True
-        ParentShowHint = True
-        Visible = True
-      end
     end
     object AcknowledgementsPage: TPage
       HelpContext = 0
@@ -536,33 +512,9 @@ object AboutForm: TAboutForm
       ChildSizing.HorizontalSpacing = 0
       ChildSizing.VerticalSpacing = 0
       ChildSizing.ControlsPerLine = 0
-      ClientWidth = 385
-      ClientHeight = 261
       ImageIndex = -1
       ParentFont = True
       ParentShowHint = True
-      object AcknowledgementsPaintBox: TPaintBox
-        Left = 0
-        Height = 261
-        Top = 0
-        Width = 385
-        HelpContext = 0
-        Align = alClient
-        BorderSpacing.Left = 0
-        BorderSpacing.Top = 0
-        BorderSpacing.Right = 0
-        BorderSpacing.Bottom = 0
-        BorderSpacing.Around = 0
-        BorderSpacing.CellAlignHorizontal = ccaFill
-        BorderSpacing.CellAlignVertical = ccaFill
-        DragCursor = crDrag
-        DragMode = dmManual
-        Enabled = True
-        ParentColor = True
-        ParentFont = True
-        ParentShowHint = True
-        Visible = True
-      end
     end
     object LogoPage: TPage
       HelpContext = 0

ide/aboutfrm.lrs

@@ -15,7 +15,7 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +'opupMenu'#7#10'PopupMenu1'#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBa'
   +'r'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'Window'
   +'State'#7#8'wsNormal'#0#6'TLabel'#12'VersionLabel'#4'Left'#2#14#6'Height'#2
-  +#14#3'Top'#2#6#5'Width'#2'3'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alig'
+  +#18#3'Top'#2#6#5'Width'#2'C'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alig'
   +'nment'#7#8'taCenter'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpac'
   +'ing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Bo'
   +'rderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
@@ -25,7 +25,7 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +'wHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11
   +'OptimalFill'#8#0#0#6'TLabel'#14'BuildDateLabel'#21'AnchorSideTop.Control'#7
   +#12'VersionLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#14#6'Heigh'
-  +'t'#2#14#3'Top'#2#20#5'Width'#2#28#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9
+  +'t'#2#18#3'Top'#2#24#5'Width'#2'$'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9
   +'Alignment'#7#8'taCenter'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Border'
   +'Spacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
   +'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
@@ -35,8 +35,8 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +'wHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11
   +'OptimalFill'#8#0#0#6'TLabel'#13'RevisionLabel'#22'AnchorSideLeft.Control'#7
   +#14'BuildDateLabel'#21'AnchorSideTop.Control'#7#15'FPCVersionLabel'#18'Ancho'
-  +'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#14#6'Height'#2#14#3'Top'#2'0'#5'Wid'
+  +'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#14#6'Height'#2#18#3'Top'#2'<'#5'Wid'
-  +'th'#2'B'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJ'
+  +'th'#2'V'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJ'
   +'ustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
   +#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
   +'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
@@ -46,7 +46,7 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'Optimal'
   +'Fill'#8#0#0#6'TLabel'#13'PlatformLabel'#22'AnchorSideLeft.Control'#7#14'Bui'
   +'ldDateLabel'#21'AnchorSideTop.Control'#7#13'RevisionLabel'#18'AnchorSideTop'
-  +'.Side'#7#9'asrBottom'#4'Left'#2#14#6'Height'#2#14#3'Top'#2'>'#5'Width'#2'B'
+  +'.Side'#7#9'asrBottom'#4'Left'#2#14#6'Height'#2#18#3'Top'#2'N'#5'Width'#2'Y'
   +#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8
   +'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderS'
   +'pacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
@@ -57,7 +57,7 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +'AccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8
   +#0#0#6'TImage'#6'Image1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSide'
   +'Top.Control'#7#13'PlatformLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'A'
-  +'nchorSideRight.Control'#7#8'Notebook'#4'Left'#2#6#6'Height'#2'q'#3'Top'#2'R'
+  +'nchorSideRight.Control'#7#8'Notebook'#4'Left'#2#6#6'Height'#2'q'#3'Top'#2'f'
   +#5'Width'#3#203#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'a'
   +'kTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'Bo'
   +'rderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2
@@ -67,7 +67,7 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +#9#12'Proportional'#9#7'Stretch'#8#11'Transparent'#8#7'Visible'#9#0#0#6'TLab'
   ,'el'#15'FPCVersionLabel'#22'AnchorSideLeft.Control'#7#14'BuildDateLabel'#21
   +'AnchorSideTop.Control'#7#14'BuildDateLabel'#18'AnchorSideTop.Side'#7#9'asrB'
-  +'ottom'#4'Left'#2#14#6'Height'#2#14#3'Top'#2'"'#5'Width'#2'P'#11'HelpContext'
+  +'ottom'#4'Left'#2#14#6'Height'#2#18#3'Top'#2'*'#5'Width'#2'j'#11'HelpContext'
   +#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18
   +'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2
   +#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.'
@@ -77,24 +77,24 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11
   +'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#7'TBitBtn'
   +#11'CloseButton'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom'
-  +'.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height'#2#26#3'Top'#3#13#1#5'Width'#2
+  +'.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height'#2'"'#3'Top'#3#5#1#5'Width'#2'H'
-  +'G'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBot'
+  +#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'
-  +'tom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19
+  +#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Bor'
-  +'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+  +'derSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'
-  +'nd'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
+  +#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellA'
-  +'ellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#6'&Close'#7'Default'
+  +'lignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#6'&Close'#7'Default'#8#7
-  +#8#7'Enabled'#9#4'Kind'#7#7'bkClose'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2
+  +'Enabled'#9#4'Kind'#7#7'bkClose'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255
-  +#255#11'ModalResult'#2#1#9'NumGlyphs'#2#0#10'ParentFont'#9#14'ParentShowHint'
+  +#11'ModalResult'#2#1#9'NumGlyphs'#2#0#10'ParentFont'#9#14'ParentShowHint'#9#7
-  +#9#7'Spacing'#2#3#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#9'TNotebook'
+  +'Spacing'#2#3#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#9'TNotebook'#8'N'
-  +#8'Notebook'#4'Left'#3#215#0#6'Height'#3'$'#1#3'Top'#2#6#5'Width'#3#133#1#11
+  +'otebook'#4'Left'#3#215#0#6'Height'#3'$'#1#3'Top'#2#6#5'Width'#3#133#1#11'He'
-  +'HelpContext'#2#0#7'TabStop'#9#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6
+  +'lpContext'#2#0#7'TabStop'#9#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'a'
-  +'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacin'
+  +'kLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing'
-  +'g.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Bord'
+  +'.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Borde'
-  +'erSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'B'
+  +'rSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bo'
-  +'orderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'D'
+  +'rderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'Dr'
-  +'ragMode'#7#8'dmManual'#7'Enabled'#9#13'OnPageChanged'#7#19'NotebookPageChan'
+  +'agMode'#7#8'dmManual'#7'Enabled'#9#13'OnPageChanged'#7#19'NotebookPageChang'
-  +'ged'#7'Options'#11#0#9'PageIndex'#2#3#10'ParentFont'#9#8'ShowTabs'#9#8'TabO'
+  +'ed'#7'Options'#11#0#9'PageIndex'#2#2#10'ParentFont'#9#8'ShowTabs'#9#8'TabOr'
-  +'rder'#2#0#0#5'TPage'#9'AboutPage'#11'HelpContext'#2#0#7'Caption'#6#5'About'
+  +'der'#2#0#0#5'TPage'#9'AboutPage'#11'HelpContext'#2#0#7'Caption'#6#5'About'
   +#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29
   +'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'C'
   +'hildSizing.ControlsPerLine'#2#0#11'ClientWidth'#3#129#1#12'ClientHeight'#3#5
@@ -165,41 +165,26 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +'Returns'#9#8'WantTabs'#8#0#0#0#5'TPage'#16'ContributorsPage'#11'HelpContext'
   +#2#0#7'Caption'#6#12'Contributors'#28'ChildSizing.LeftRightSpacing'#2#0#28'C'
   +'hildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'C'
-  +'hildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#11'Clie'
+  +'hildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#10'Imag'
-  +'ntWidth'#3#129#1#12'ClientHeight'#3#5#1#10'ImageIndex'#2#255#10'ParentFont'
+  +'eIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#0#5'TPage'#20'Acknowl'
-  +#9#14'ParentShowHint'#9#0#9'TPaintBox'#20'ContributorsPaintBox'#4'Left'#2#0#6
+  +'edgementsPage'#11'HelpContext'#2#0#7'Caption'#6#16'Acknowledgements'#28'Chi'
-  +'Height'#3#5#1#3'Top'#2#0#5'Width'#3#129#1#11'HelpContext'#2#0#5'Align'#7#8
+  +'ldSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'Chil'
-  +'alClient'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpa'
+  +'dSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Child'
-  +'cing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!'
+  +'Sizing.ControlsPerLine'#2#0#10'ImageIndex'#2#255#10'ParentFont'#9#14'Parent'
-  +'BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignV'
+  +'ShowHint'#9#0#0#5'TPage'#8'LogoPage'#11'HelpContext'#2#0#7'Caption'#6#8'Log'
-  +'ertical'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7
+  +'oPage'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'
-  +'Enabled'#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#7'Visibl'
+  +#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2
-  +'e'#9#0#0#0#5'TPage'#20'AcknowledgementsPage'#11'HelpContext'#2#0#7'Caption'
+  +#0#27'ChildSizing.ControlsPerLine'#2#0#11'ClientWidth'#3#129#1#12'ClientHeig'
-  +#6#16'Acknowledgements'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.'
+  +'ht'#3#5#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#6'TI'
-  +'TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.'
+  +'mage'#9'LogoImage'#4'Left'#2#0#6'Height'#3#5#1#3'Top'#2#0#5'Width'#3#129#1
-  +'VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#11'ClientWidth'#3
+  +#11'HelpContext'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#18'BorderSpacing.L'
-  +#129#1#12'ClientHeight'#3#5#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'Paren'
+  +'eft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpa'
-  +'tShowHint'#9#0#9'TPaintBox'#24'AcknowledgementsPaintBox'#4'Left'#2#0#6'Heig'
+  +'cing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHoriz'
-  +'ht'#3#5#1#3'Top'#2#0#5'Width'#3#129#1#11'HelpContext'#2#0#5'Align'#7#8'alCl'
+  +'ontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Cent'
-  +'ient'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing'
+  +'er'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14
-  +'.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Bord'
+  +'ParentShowHint'#9#12'Proportional'#8#7'Stretch'#8#11'Transparent'#8#7'Visib'
-  +'erSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVerti'
+  +'le'#9#0#0#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#2#18#3'top'#3#225#0#0#9
-  +'cal'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'En'
+  +'TMenuItem'#16'miVerToClipboard'#7'Caption'#6'%Copy version information to c'
-  +'abled'#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#7'Visible'
+  +'lipboard'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8#7'OnClick'#7#21'miVe'
-  +#9#0#0#0#5'TPage'#8'LogoPage'#11'HelpContext'#2#0#7'Caption'#6#8'LogoPage'#28
+  +'rToClipboardClick'#0#0#0#0
-  +'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'C'
-  +'hildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Ch'
-  +'ildSizing.ControlsPerLine'#2#0#11'ClientWidth'#3'}'#1#12'ClientHeight'#3#10
-  +#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#6'TImage'#9
-  +'LogoImage'#4'Left'#2#0#6'Height'#3#10#1#3'Top'#2#0#5'Width'#3'}'#1#11'HelpC'
-  +'ontext'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0
-  ,#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bott'
-  +'om'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7
-  +'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Center'#8#10'Dr'
-  +'agCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentShowH'
-  +'int'#9#12'Proportional'#8#7'Stretch'#8#11'Transparent'#8#7'Visible'#9#0#0#0
-  +#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#2#18#3'top'#3#225#0#0#9'TMenuItem'
-  +#16'miVerToClipboard'#7'Caption'#6'%Copy version information to clipboard'#12
-  +'RightJustify'#8#19'ShowAlwaysCheckable'#8#7'OnClick'#7#21'miVerToClipboardC'
-  +'lick'#0#0#0#0
 ]);

ide/aboutfrm.pas

@@ -75,8 +75,6 @@ type
     LogoImage: TImage;
     LogoPage: TPage;
     miVerToClipboard: TMenuItem;
-    AcknowledgementsPaintBox: TPaintBox;
-    ContributorsPaintBox: TPaintBox;
     OfficialLabel: TLabel;
     OfficialURLLabel: TLabel;
     PlatformLabel: TLabel;
@@ -100,8 +98,7 @@ type
     Contributors: TScrollingText;
     procedure LoadContributors;
     procedure LoadAcknowledgements;
- public
+  public
-    constructor Create(TheOwner: TComponent); override;
   end;
 
 function ShowAboutForm: TModalResult;
@@ -131,14 +128,6 @@ end;
 
 { TAboutForm }
 
-constructor TAboutForm.Create(TheOwner: TComponent);
-begin
-  inherited Create(TheOwner);
-
-  ContributorsPaintBox.ControlStyle:=ContributorsPaintBox.ControlStyle+[csOpaque];
-  AcknowledgementsPaintBox.ControlStyle:=AcknowledgementsPaintBox.ControlStyle+[csOpaque];
-end;
-
 procedure TAboutForm.AboutFormCreate(Sender:TObject);
 const
   DoubleLineEnding = LineEnding + LineEnding;
@@ -364,7 +353,10 @@ end;
 
 function TScrollingText.ActiveLineIsURL: boolean;
 begin
-  Result := Pos('http://', FLines[FActiveLine]) = 1;
+  if (FActiveLine > 0) and (FActiveLine < FLines.Count -1) then
+    Result := Pos('http://', FLines[FActiveLine]) = 1
+  else
+    Result := False;
 end;
 
 procedure TScrollingText.DoOnChangeBounds;