LazStats: Make text in license form read-only.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8792 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2023-04-17 22:14:11 +00:00
parent 7ce64ac4b8
commit fd7b0d8af9

View File

@ -7,7 +7,7 @@ object LicenseFrm: TLicenseFrm
ClientHeight = 347
ClientWidth = 637
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
LCLVersion = '2.3.0.0'
object Memo1: TMemo
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -51,6 +51,7 @@ object LicenseFrm: TLicenseFrm
'or text book examples for each procedure.'
)
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object Panel1: TPanel
@ -69,13 +70,14 @@ object LicenseFrm: TLicenseFrm
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Bevel2
Left = 239
Left = 227
Height = 25
Top = 1
Width = 63
Width = 75
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Accept'
Constraints.MinWidth = 75
ModalResult = 1
TabOrder = 0
end
@ -89,9 +91,10 @@ object LicenseFrm: TLicenseFrm
Left = 318
Height = 25
Top = 1
Width = 58
Width = 75
AutoSize = True
Caption = 'Reject'
Constraints.MinWidth = 75
ModalResult = 2
TabOrder = 1
end
@ -109,13 +112,14 @@ object LicenseFrm: TLicenseFrm
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 289
Left = 273
Height = 25
Top = 1
Width = 42
Width = 75
AutoSize = True
Cancel = True
Caption = 'OK'
Constraints.MinWidth = 75
Default = True
ModalResult = 1
TabOrder = 2