pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Make text in license form read-only.

Browse Source 
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
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
applications/lazstats/source/forms/misc/licenseunit.lfm
View File

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