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