Files
lazarus-ccr/components/onguard/examples/fixnaf/fixnaf1.lfm

167 lines
3.2 KiB
Plaintext

object MainFrm: TMainFrm
Left = 373
Height = 216
Top = 235
Width = 342
HorzScrollBar.Page = 341
HorzScrollBar.Range = 325
VertScrollBar.Page = 215
VertScrollBar.Range = 169
ActiveControl = AccessCodeEd
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Fix Network Access File'
Font.Color = clText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
OnCreate = FormCreate
Position = poScreenCenter
object GroupBox1: TGroupBox
Left = 8
Height = 96
Top = 8
Width = 315
Caption = 'File Settings'
TabOrder = 0
object Label4: TLabel
Left = 8
Height = 18
Top = 48
Width = 38
Caption = 'C&ode:'
Color = clNone
ParentColor = False
end
object Label5: TLabel
Left = 6
Height = 18
Top = 17
Width = 52
Caption = '&Filename:'
Color = clNone
ParentColor = False
end
object AccessCodeEd: TEdit
Left = 64
Height = 21
Top = 44
Width = 245
OnChange = AccessCodeEdChange
TabOrder = 1
end
object FileNamePn: TPanel
Left = 64
Height = 21
Top = 16
Width = 245
Alignment = taLeftJustify
BevelOuter = bvLowered
BorderWidth = 2
TabOrder = 0
end
end
object UpdateBt: TButton
Left = 8
Height = 25
Top = 176
Width = 75
BorderSpacing.InnerBorder = 4
Caption = '&Update'
OnClick = UpdateBtClick
TabOrder = 2
end
object CreateBt: TButton
Left = 88
Height = 25
Top = 176
Width = 75
BorderSpacing.InnerBorder = 4
Caption = '&Create'
Enabled = False
OnClick = CreateBtClick
TabOrder = 3
end
object ResetBt: TButton
Left = 168
Height = 25
Top = 176
Width = 75
BorderSpacing.InnerBorder = 4
Caption = '&Reset'
OnClick = ResetBtClick
TabOrder = 4
end
object GroupBox2: TGroupBox
Left = 8
Height = 65
Top = 104
Width = 319
Caption = 'Access Slots'
TabOrder = 1
object Label1: TLabel
Left = 8
Height = 18
Top = 20
Width = 38
Caption = 'Total:'
Color = clNone
ParentColor = False
end
object Label2: TLabel
Left = 94
Height = 18
Top = 20
Width = 46
Caption = 'Locked:'
Color = clNone
ParentColor = False
end
object Label3: TLabel
Left = 182
Height = 18
Top = 20
Width = 49
Caption = 'Invalid:'
Color = clNone
ParentColor = False
end
object TotalSlotsLb: TLabel
Left = 54
Height = 18
Top = 20
Width = 6
Caption = '0'
Color = clNone
ParentColor = False
end
object LockedSlotsLb: TLabel
Left = 156
Height = 18
Top = 20
Width = 6
Caption = '0'
Color = clNone
ParentColor = False
end
object InvalidSlotsLb: TLabel
Left = 248
Height = 18
Top = 20
Width = 6
Caption = '0'
Color = clNone
ParentColor = False
end
end
object DeleteBt: TButton
Left = 248
Height = 25
Top = 176
Width = 75
BorderSpacing.InnerBorder = 4
Caption = '&Delete'
OnClick = DeleteBtClick
TabOrder = 5
end
end