mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 05:59:28 +02:00
Applied patch from Zeljan
fixes issue: http://bugs.freepascal.org/view.php?id=12478 git-svn-id: trunk@17226 -
This commit is contained in:
parent
728dea85ce
commit
4424f0ec6c
@ -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
|
||||
|
110
ide/aboutfrm.lrs
110
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
|
||||
+#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'
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user