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

OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-17 16:28:47 +00:00
parent 36eff03740
commit a9c3a3022c
152 changed files with 6033 additions and 3578 deletions
Download Patch File Download Diff File Expand all files Collapse all files

127
components/onguard/examples/exdtreg/exdtregu.lfm
View File

@ -5,94 +5,129 @@ object Form1: TForm1
Width = 484
HorzScrollBar.Page = 483
VertScrollBar.Page = 308
AutoSize = True
BorderStyle = bsDialog
Caption = 'Date Code Example'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 309
ClientWidth = 484
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
Left = 8
Height = 13
Top = 262
Width = 35
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 249
Width = 32
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Label1: TLabel
Left = 240
Height = 13
Top = 14
Width = 77
AnchorSideLeft.Control = CodeBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 181
Height = 15
Top = 17
Width = 72
BorderSpacing.Left = 80
Caption = 'Current code:'
Color = clNone
ParentColor = False
end
object CodeLbl: TLabel
Left = 328
Height = 13
Top = 14
Width = 113
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 265
Height = 15
Top = 17
Width = 96
BorderSpacing.Left = 12
Caption = '0000000000000000'
Color = clNone
ParentColor = False
end
object CodeBtn: TButton
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 25
Top = 8
Top = 12
Width = 89
BorderSpacing.Around = 12
BorderSpacing.InnerBorder = 4
Caption = 'Enter Code'
OnClick = CodeBtnClick
TabOrder = 0
end
object Memo1: TMemo
Left = 8
Height = 209
Top = 40
Width = 465
Color = clBtnFace
Lines.Strings = (
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
'the code is either the incorrect type or that none has been entered. '
''
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
'say that the code is invalid.'
''
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
'the proper "Date" code). '
''
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
'will cause the TOgDateCode component to report that the code is invalid.'
)
ReadOnly = True
TabOrder = 1
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 400
Height = 25
Top = 256
Top = 244
Width = 75
Anchors = [akTop]
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
TabOrder = 1
end
object RemoveBtn: TButton
Left = 288
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 299
Height = 25
Top = 256
Top = 244
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 3
TabOrder = 2
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 165
Top = 49
Width = 460
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Date" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgDateCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideRight.Control = Memo1
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 229
Width = 460
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgDateCode1: TOgDateCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
left = 16
top = 216
Left = 168
Top = 192
end
end