pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
master
lazarus-ccr/components/onguard/examples/nafmgr/nafmgr1.lfm

339 lines
9.0 KiB
Plaintext
Raw Permalink Blame History

object NafFrm: TNafFrm
Left = 307
Height = 223
Top = 291
Width = 355
HorzScrollBar.Page = 333
HorzScrollBar.Range = 325
VertScrollBar.Page = 231
VertScrollBar.Range = 177
ActiveControl = AccessCodeEd
AutoSize = True
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Network Access File Manager'
ClientHeight = 223
ClientWidth = 355
OnCreate = FormCreate
Position = poScreenCenter
ShowHint = True
LCLVersion = '2.3.0.0'
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = DeleteBt
AnchorSideRight.Side = asrBottom
Left = 12
Height = 90
Top = 12
Width = 324
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Bottom = 12
Caption = 'File Settings'
ClientHeight = 70
ClientWidth = 320
TabOrder = 0
object GenerateCodeSb: TSpeedButton
AnchorSideTop.Control = AccessCodeEd
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 285
Height = 23
Hint = 'Generate code'
Top = 4
Width = 23
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000008888888888888888800000008888880000088888800000008888
0088808008888000000088808088888800888000000088088880008888088000
0000880088000008880880000000808880098900808080000000808880089800
8880800000008008800898008800800000008088800989008880800000008808
8800000888088000000088080880008808088000000088808808888880888000
0000888800888080088880000000888888000008888880000000888888888888
888880000000
}
OnClick = GenerateCodeSbClick
end
object Label4: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = AccessCodeEd
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 8
Width = 31
BorderSpacing.Left = 12
Caption = 'C&ode:'
Color = clNone
ParentColor = False
end
object Label5: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = FileNameEd
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 41
Width = 51
BorderSpacing.Left = 12
Caption = '&Filename:'
Color = clNone
ParentColor = False
end
object FileNameEd: TEdit
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GenerateCodeSb
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BrowseBt
Left = 71
Height = 23
Top = 37
Width = 210
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 10
BorderSpacing.Right = 4
BorderSpacing.Bottom = 10
OnChange = FileNameEdChange
TabOrder = 1
end
object AccessCodeEd: TEdit
AnchorSideLeft.Control = FileNameEd
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GenerateCodeSb
Left = 71
Height = 23
Top = 4
Width = 210
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 4
OnChange = AccessCodeEdChange
TabOrder = 0
end
object BrowseBt: TSpeedButton
AnchorSideLeft.Control = FileNameEd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FileNameEd
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FileNameEd
AnchorSideBottom.Side = asrBottom
Left = 285
Height = 23
Hint = 'Browse for network access file'
Top = 37
Width = 23
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 12
BorderSpacing.InnerBorder = 4
Caption = '...'
OnClick = BrowseBtClick
end
end
object UpdateBt: TButton
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupBox2
AnchorSideTop.Side = asrBottom
Left = 12
Height = 25
Hint = 'Update the selected NAF using the specified code'
Top = 182
Width = 75
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Bottom = 12
BorderSpacing.InnerBorder = 4
Caption = '&Update'
Enabled = False
OnClick = UpdateBtClick
TabOrder = 2
end
object CreateBt: TButton
AnchorSideLeft.Control = UpdateBt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideTop.Side = asrBottom
Left = 95
Height = 25
Hint = 'Create teh NAF using the specified code'
Top = 182
Width = 75
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.InnerBorder = 4
Caption = '&Create'
Enabled = False
OnClick = CreateBtClick
TabOrder = 3
end
object ResetBt: TButton
AnchorSideLeft.Control = CreateBt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideTop.Side = asrBottom
Left = 178
Height = 25
Hint = 'Reset the specified NAF, removing invalid slots'
Top = 182
Width = 75
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.InnerBorder = 4
Caption = '&Reset'
Enabled = False
OnClick = ResetBtClick
TabOrder = 4
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DeleteBt
AnchorSideRight.Side = asrBottom
Left = 12
Height = 56
Top = 114
Width = 324
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 12
Caption = 'Access Slots'
ClientHeight = 36
ClientWidth = 320
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 24
Height = 15
Top = 8
Width = 28
BorderSpacing.Left = 24
BorderSpacing.Top = 8
Caption = 'Total:'
Color = clNone
ParentColor = False
end
object Label2: TLabel
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = Bevel1
Left = 115
Height = 15
Top = 8
Width = 41
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
Caption = 'Locked:'
Color = clNone
ParentColor = False
end
object Label3: TLabel
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = InvalidSlotsLb
Left = 244
Height = 15
Top = 8
Width = 38
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Invalid:'
Color = clNone
ParentColor = False
end
object TotalSlotsLb: TLabel
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
Left = 60
Height = 15
Top = 8
Width = 6
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '0'
Color = clNone
ParentColor = False
end
object LockedSlotsLb: TLabel
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
Left = 164
Height = 15
Top = 8
Width = 6
BorderSpacing.Top = 8
Caption = '0'
Color = clNone
ParentColor = False
end
object InvalidSlotsLb: TLabel
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 290
Height = 15
Top = 8
Width = 6
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 24
Caption = '0'
Color = clNone
ParentColor = False
end
object Bevel1: TBevel
AnchorSideLeft.Control = GroupBox2
AnchorSideLeft.Side = asrCenter
Left = 156
Height = 36
Top = 0
Width = 8
Shape = bsSpacer
end
end
object DeleteBt: TButton
AnchorSideLeft.Control = ResetBt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideTop.Side = asrBottom
Left = 261
Height = 25
Hint = 'Delete teh selected NAF'
Top = 182
Width = 75
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
BorderSpacing.InnerBorder = 4
Caption = '&Delete'
Enabled = False
OnClick = DeleteBtClick
TabOrder = 5
end
object OpenDg: TOpenDialog
Title = 'Otwórz istniej¹cy plik'
DefaultExt = '.naf'
Filter = 'Network Access Files (*.naf)|*.naf|All Files (*.*)|*.*'
FilterIndex = 0
Options = []
Left = 160
Top = 48
end
object OgMakeCodes1: TOgMakeCodes
Left = 136
Top = 288
end
end
Reference in New Issue View Git Blame Copy Permalink