mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 08:59:32 +02:00
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 -
This commit is contained in:
darius
parent
8ef24288f3
commit
bf64fc10ff
@ -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
|
||||
|
||||
109
ide/aboutfrm.lrs
109
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'
|
||||
+'th'#2'B'#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#18#3'Top'#2'<'#5'Wid'
|
||||
+'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
|
||||
+'G'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBot'
|
||||
+'tom'#0#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.Arou'
|
||||
+'nd'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
|
||||
+'ellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#6'&Close'#7'Default'
|
||||
+#8#7'Enabled'#9#4'Kind'#7#7'bkClose'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2
|
||||
+#255#11'ModalResult'#2#1#9'NumGlyphs'#2#0#10'ParentFont'#9#14'ParentShowHint'
|
||||
+#9#7'Spacing'#2#3#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#9'TNotebook'
|
||||
+#8'Notebook'#4'Left'#3#215#0#6'Height'#3'$'#1#3'Top'#2#6#5'Width'#3#133#1#11
|
||||
+'HelpContext'#2#0#7'TabStop'#9#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6
|
||||
+'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacin'
|
||||
+'g.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Bord'
|
||||
+'erSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'B'
|
||||
+'orderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'D'
|
||||
+'ragMode'#7#8'dmManual'#7'Enabled'#9#13'OnPageChanged'#7#19'NotebookPageChan'
|
||||
+'ged'#7'Options'#11#0#9'PageIndex'#2#3#10'ParentFont'#9#8'ShowTabs'#9#8'TabO'
|
||||
+'rder'#2#0#0#5'TPage'#9'AboutPage'#11'HelpContext'#2#0#7'Caption'#6#5'About'
|
||||
+'.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height'#2'"'#3'Top'#3#5#1#5'Width'#2'H'
|
||||
+#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'
|
||||
+#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellA'
|
||||
+'lignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#6'&Close'#7'Default'#8#7
|
||||
+'Enabled'#9#4'Kind'#7#7'bkClose'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255
|
||||
+#11'ModalResult'#2#1#9'NumGlyphs'#2#0#10'ParentFont'#9#14'ParentShowHint'#9#7
|
||||
+'Spacing'#2#3#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#9'TNotebook'#8'N'
|
||||
+'otebook'#4'Left'#3#215#0#6'Height'#3'$'#1#3'Top'#2#6#5'Width'#3#133#1#11'He'
|
||||
+'lpContext'#2#0#7'TabStop'#9#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'a'
|
||||
+'kLeft'#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'Borde'
|
||||
+'rSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bo'
|
||||
+'rderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'Dr'
|
||||
+'agMode'#7#8'dmManual'#7'Enabled'#9#13'OnPageChanged'#7#19'NotebookPageChang'
|
||||
+'ed'#7'Options'#11#0#9'PageIndex'#2#2#10'ParentFont'#9#8'ShowTabs'#9#8'TabOr'
|
||||
+'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'
|
||||
+'ntWidth'#3#129#1#12'ClientHeight'#3#5#1#10'ImageIndex'#2#255#10'ParentFont'
|
||||
+#9#14'ParentShowHint'#9#0#9'TPaintBox'#20'ContributorsPaintBox'#4'Left'#2#0#6
|
||||
+'Height'#3#5#1#3'Top'#2#0#5'Width'#3#129#1#11'HelpContext'#2#0#5'Align'#7#8
|
||||
+'alClient'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpa'
|
||||
+'cing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!'
|
||||
+'BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignV'
|
||||
+'ertical'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7
|
||||
+'Enabled'#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#7'Visibl'
|
||||
+'e'#9#0#0#0#5'TPage'#20'AcknowledgementsPage'#11'HelpContext'#2#0#7'Caption'
|
||||
+#6#16'Acknowledgements'#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'ClientHeight'#3#5#1#10'ImageIndex'#2#255#10'ParentFont'#9#14'Paren'
|
||||
+'tShowHint'#9#0#9'TPaintBox'#24'AcknowledgementsPaintBox'#4'Left'#2#0#6'Heig'
|
||||
+'ht'#3#5#1#3'Top'#2#0#5'Width'#3#129#1#11'HelpContext'#2#0#5'Align'#7#8'alCl'
|
||||
+'ient'#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'!Bord'
|
||||
+'erSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVerti'
|
||||
+'cal'#7#7'ccaFill'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'En'
|
||||
+'abled'#9#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#7'Visible'
|
||||
+#9#0#0#0#5'TPage'#8'LogoPage'#11'HelpContext'#2#0#7'Caption'#6#8'LogoPage'#28
|
||||
+'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
|
||||
+'hildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#10'Imag'
|
||||
+'eIndex'#2#255#10'ParentFont'#9#14'ParentShowHint'#9#0#0#5'TPage'#20'Acknowl'
|
||||
+'edgementsPage'#11'HelpContext'#2#0#7'Caption'#6#16'Acknowledgements'#28'Chi'
|
||||
+'ldSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'Chil'
|
||||
+'dSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Child'
|
||||
+'Sizing.ControlsPerLine'#2#0#10'ImageIndex'#2#255#10'ParentFont'#9#14'Parent'
|
||||
+'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
|
||||
+#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'
|
||||
+'ontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#6'Cent'
|
||||
+'er'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14
|
||||
+'ParentShowHint'#9#12'Proportional'#8#7'Stretch'#8#11'Transparent'#8#7'Visib'
|
||||
+'le'#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 c'
|
||||
+'lipboard'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8#7'OnClick'#7#21'miVe'
|
||||
+'rToClipboardClick'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -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
|
||||
constructor Create(TheOwner: TComponent); override;
|
||||
public
|
||||
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;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user