Applied patch from Zeljan

fixes issue: http://bugs.freepascal.org/view.php?id=12478

git-svn-id: trunk@17226 -
This commit is contained in:
darius 2008-11-04 22:56:14 +00:00
parent 728dea85ce
commit 4424f0ec6c
3 changed files with 96 additions and 87 deletions

View File

@ -38,9 +38,9 @@ object AboutForm: TAboutForm
WindowState = wsNormal
object VersionLabel: TLabel
Left = 14
Height = 18
Height = 17
Top = 6
Width = 67
Width = 73
HelpContext = 0
Align = alNone
Alignment = taCenter
@ -71,9 +71,9 @@ object AboutForm: TAboutForm
AnchorSideTop.Control = VersionLabel
AnchorSideTop.Side = asrBottom
Left = 14
Height = 18
Top = 24
Width = 36
Height = 17
Top = 23
Width = 40
HelpContext = 0
Align = alNone
Alignment = taCenter
@ -105,9 +105,9 @@ object AboutForm: TAboutForm
AnchorSideTop.Control = FPCVersionLabel
AnchorSideTop.Side = asrBottom
Left = 14
Height = 18
Top = 60
Width = 86
Height = 17
Top = 57
Width = 101
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
@ -139,9 +139,9 @@ object AboutForm: TAboutForm
AnchorSideTop.Control = RevisionLabel
AnchorSideTop.Side = asrBottom
Left = 14
Height = 18
Top = 78
Width = 89
Height = 17
Top = 74
Width = 101
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
@ -175,7 +175,7 @@ object AboutForm: TAboutForm
AnchorSideRight.Control = Notebook
Left = 6
Height = 113
Top = 102
Top = 97
Width = 203
HelpContext = 0
Align = alNone
@ -203,9 +203,9 @@ object AboutForm: TAboutForm
AnchorSideTop.Control = BuildDateLabel
AnchorSideTop.Side = asrBottom
Left = 14
Height = 18
Top = 42
Width = 106
Height = 17
Top = 40
Width = 127
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
@ -236,9 +236,9 @@ object AboutForm: TAboutForm
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 70
Height = 34
Top = 261
Width = 72
Height = 32
Top = 263
Width = 66
HelpContext = 0
Align = alNone
Anchors = [akLeft, akBottom]
@ -299,8 +299,8 @@ object AboutForm: TAboutForm
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientWidth = 385
ClientHeight = 261
ClientWidth = 389
ClientHeight = 292
ImageIndex = -1
ParentFont = True
ParentShowHint = True
@ -309,7 +309,7 @@ object AboutForm: TAboutForm
AnchorSideBottom.Control = DocumentationLabel
Left = 6
Height = 18
Top = 213
Top = 244
Width = 77
HelpContext = 0
Align = alNone
@ -344,7 +344,7 @@ object AboutForm: TAboutForm
AnchorSideBottom.Control = DocumentationLabel
Left = 89
Height = 18
Top = 213
Top = 244
Width = 102
HelpContext = 0
Align = alNone
@ -385,7 +385,7 @@ object AboutForm: TAboutForm
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 18
Top = 237
Top = 268
Width = 134
HelpContext = 0
Align = alNone
@ -421,7 +421,7 @@ object AboutForm: TAboutForm
AnchorSideBottom.Side = asrBottom
Left = 146
Height = 18
Top = 237
Top = 268
Width = 159
HelpContext = 0
Align = alNone
@ -463,9 +463,9 @@ object AboutForm: TAboutForm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = OfficialLabel
Left = 0
Height = 207
Height = 238
Top = 0
Width = 385
Width = 389
HelpContext = 0
Align = alNone
Alignment = taLeftJustify
@ -524,16 +524,16 @@ object AboutForm: TAboutForm
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientWidth = 385
ClientHeight = 261
ClientWidth = 389
ClientHeight = 292
ImageIndex = -1
ParentFont = True
ParentShowHint = True
object LogoImage: TImage
Left = 0
Height = 261
Height = 292
Top = 0
Width = 385
Width = 389
HelpContext = 0
Align = alClient
AutoSize = False

View File

@ -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
+#18#3'Top'#2#6#5'Width'#2'C'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alig'
+#17#3'Top'#2#6#5'Width'#2'I'#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#18#3'Top'#2#24#5'Width'#2'$'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9
+'t'#2#17#3'Top'#2#23#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#18#3'Top'#2'<'#5'Wid'
+'th'#2'V'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJ'
+'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#14#6'Height'#2#17#3'Top'#2'9'#5'Wid'
+'th'#2'e'#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#18#3'Top'#2'N'#5'Width'#2'Y'
+'.Side'#7#9'asrBottom'#4'Left'#2#14#6'Height'#2#17#3'Top'#2'J'#5'Width'#2'e'
+#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'f'
+'nchorSideRight.Control'#7#8'Notebook'#4'Left'#2#6#6'Height'#2'q'#3'Top'#2'a'
+#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#18#3'Top'#2'*'#5'Width'#2'j'#11'HelpContext'
+'ottom'#4'Left'#2#14#6'Height'#2#17#3'Top'#2'('#5'Width'#2''#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,7 +77,7 @@ 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'"'#3'Top'#3#5#1#5'Width'#2'H'
+'.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height'#2' '#3'Top'#3#7#1#5'Width'#2'B'
+#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'
+#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Bor'
+'derSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'
@ -97,48 +97,48 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
+'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
+#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#6'TLabel'#13
+'OfficialLabel'#22'AnchorSideLeft.Control'#7#9'AboutPage'#24'AnchorSideBotto'
+'m.Control'#7#18'DocumentationLabel'#4'Left'#2#6#6'Height'#2#18#3'Top'#3#213
+#0#5'Width'#2'M'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13
+'taLeftJustify'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'Borde'
+'rSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20
+'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellA'
+'lignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFil'
+'l'#7'Caption'#6#13'OfficialLabel'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8
+'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentC'
+'olor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transp'
+'arent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#16'Offi'
+'cialURLLabel'#22'AnchorSideLeft.Control'#7#13'OfficialLabel'#19'AnchorSideL'
+'eft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#18'DocumentationLab'
+'el'#4'Left'#2'Y'#6'Height'#2#18#3'Top'#3#213#0#5'Width'#2'f'#11'HelpContext'
+#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'#11#6'a'
+'kLeft'#8'akBottom'#0#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#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#16'OfficialURLLa'
+'bel'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#10'F'
+'ont.Color'#7#6'clBlue'#11'Font.Height'#2#0#10'Font.Style'#11#0#6'Layout'#7#5
+'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#8#14'ParentSho'
+'wHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11
+'OnMouseDown'#7#17'URLLabelMouseDown'#12'OnMouseEnter'#7#18'URLLabelMouseEnt'
+'er'#12'OnMouseLeave'#7#18'URLLabelMouseLeave'#11'OptimalFill'#8#0#0#6'TLabe'
+'l'#18'DocumentationLabel'#22'AnchorSideLeft.Control'#7#9'AboutPage'#24'Anch'
+'orSideBottom.Control'#7#9'AboutPage'#21'AnchorSideBottom.Side'#7#9'asrBotto'
+'m'#4'Left'#2#6#6'Height'#2#18#3'Top'#3#237#0#5'Width'#3#134#0#11'HelpContex'
+'t'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'#11#6
+'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpa'
,'cing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'B'
+'orderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#18'Documentation'
+'Label'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6
+'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9
+#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'W'
+'ordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#21'DocumentationURLLabel'#22'Anc'
+'horSideLeft.Control'#7#18'DocumentationLabel'#19'AnchorSideLeft.Side'#7#9'a'
+'srBottom'#24'AnchorSideBottom.Control'#7#9'AboutPage'#21'AnchorSideBottom.S'
+'ide'#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#18#3'Top'#3#237#0#5'Width'#3
+'hildSizing.ControlsPerLine'#2#0#11'ClientWidth'#3#133#1#12'ClientHeight'#3
+'$'#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#6'TLabel'
+#13'OfficialLabel'#22'AnchorSideLeft.Control'#7#9'AboutPage'#24'AnchorSideBo'
+'ttom.Control'#7#18'DocumentationLabel'#4'Left'#2#6#6'Height'#2#18#3'Top'#3
+#244#0#5'Width'#2'M'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7
+#13'taLeftJustify'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'Bo'
+'rderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0
+#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.Ce'
+'llAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'cca'
+'Fill'#7'Caption'#6#13'OfficialLabel'#10'DragCursor'#7#6'crDrag'#8'DragMode'
+#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'Par'
+'entColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Tr'
+'ansparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#16
+'OfficialURLLabel'#22'AnchorSideLeft.Control'#7#13'OfficialLabel'#19'AnchorS'
+'ideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#18'Documentatio'
+'nLabel'#4'Left'#2'Y'#6'Height'#2#18#3'Top'#3#244#0#5'Width'#2'f'#11'HelpCon'
+'text'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'
+#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Bord'
+'erSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
+#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
+'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#16'Officia'
+'lURLLabel'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9
+#10'Font.Color'#7#6'clBlue'#11'Font.Height'#2#0#10'Font.Style'#11#0#6'Layout'
+#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#8#14'Paren'
+'tShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'
+#8#11'OnMouseDown'#7#17'URLLabelMouseDown'#12'OnMouseEnter'#7#18'URLLabelMou'
+'seEnter'#12'OnMouseLeave'#7#18'URLLabelMouseLeave'#11'OptimalFill'#8#0#0#6
+'TLabel'#18'DocumentationLabel'#22'AnchorSideLeft.Control'#7#9'AboutPage'#24
+'AnchorSideBottom.Control'#7#9'AboutPage'#21'AnchorSideBottom.Side'#7#9'asrB'
+'ottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#3#12#1#5'Width'#3#134#0#11'HelpCon'
+'text'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'
+#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Bord'
,'erSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
+#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
+'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#18'Documen'
+'tationLabel'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'
+#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'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#6'TLabel'#21'DocumentationURLLabel'#22'An'
+'chorSideLeft.Control'#7#18'DocumentationLabel'#19'AnchorSideLeft.Side'#7#9
+'asrBottom'#24'AnchorSideBottom.Control'#7#9'AboutPage'#21'AnchorSideBottom.'
+'Side'#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#18#3'Top'#3#12#1#5'Width'#3
+#159#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJust'
+'ify'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.L'
+'eft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpa'
@ -153,8 +153,8 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
+#11'OptimalFill'#8#0#0#5'TMemo'#9'AboutMemo'#22'AnchorSideLeft.Control'#7#9
+'AboutPage'#21'AnchorSideTop.Control'#7#9'AboutPage'#23'AnchorSideRight.Cont'
+'rol'#7#9'AboutPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBo'
+'ttom.Control'#7#13'OfficialLabel'#4'Left'#2#0#6'Height'#3#207#0#3'Top'#2#0#5
+'Width'#3#129#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13't'
+'ttom.Control'#7#13'OfficialLabel'#4'Left'#2#0#6'Height'#3#238#0#3'Top'#2#0#5
+'Width'#3#133#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13't'
+'aLeftJustify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#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.'
@ -174,9 +174,9 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
+'ShowHint'#9#0#0#5'TPage'#8'LogoPage'#11'HelpContext'#2#0#7'Caption'#6#8'Log'
+'oPage'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'
+#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2
+#0#27'ChildSizing.ControlsPerLine'#2#0#11'ClientWidth'#3#129#1#12'ClientHeig'
+'ht'#3#5#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#6'TI'
+'mage'#9'LogoImage'#4'Left'#2#0#6'Height'#3#5#1#3'Top'#2#0#5'Width'#3#129#1
+#0#27'ChildSizing.ControlsPerLine'#2#0#11'ClientWidth'#3#133#1#12'ClientHeig'
+'ht'#3'$'#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#6'T'
+'Image'#9'LogoImage'#4'Left'#2#0#6'Height'#3'$'#1#3'Top'#2#0#5'Width'#3#133#1
+#11'HelpContext'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#18'BorderSpacing.L'
+'eft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpa'
+'cing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHoriz'

View File

@ -50,6 +50,7 @@ type
procedure DoTimer(Sender: TObject);
procedure SetActive(const AValue: boolean);
procedure Initialise;
procedure DrawScrollingText(Sender: TObject);
protected
procedure DoOnChangeBounds; override;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
@ -285,6 +286,12 @@ begin
FOffset := FBuffer.Height;
end;
procedure TScrollingText.DrawScrollingText(Sender: TObject);
begin
if Active then
Canvas.Draw(0,0,FBuffer);
end;
procedure TScrollingText.DoTimer(Sender: TObject);
var
w: integer;
@ -347,8 +354,7 @@ begin
//start showing the list from the start
if FStartLine > FLines.Count - 1 then
FOffset := FBuffer.Height;
Canvas.Draw(0,0,FBuffer);
Repaint;
end;
function TScrollingText.ActiveLineIsURL: boolean;
@ -395,6 +401,9 @@ constructor TScrollingText.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csOpaque];
OnPaint := @DrawScrollingText;
FLines := TStringList.Create;
FTimer := TTimer.Create(nil);
FTimer.OnTimer:=@DoTimer;