TurboPower OnGuard Code

200 lines (199 with data), 6.2 kB

object KeyMaintFrm: TKeyMaintFrm
  Left = 264
  Top = 169
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Key Maintenance'
  ClientHeight = 333
  ClientWidth = 464
  Position = poScreenCenter
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [dkDesktop, dkiPhone, dkiPad]
  
  Left = 264
  Top = 169
  DesignerMobile = False
  DesignerWidth = 0
  DesignerHeight = 0
  DesignerDeviceName = ''
  DesignerOrientation = 0
  DesignerOSVersion = ''
  object ProductsGb: TGroupBox
    Height = 173.000000000000000000
    Position.X = 6.000000000000000000
    Position.Y = 52.000000000000000000
    Text = 'Applications'
    Width = 454.000000000000000000
    TabOrder = 1
    object ProductsLb: TListBox
      Height = 148.000000000000000000
      Position.X = 8.000000000000000000
      Position.Y = 16.000000000000000000
      TabOrder = 0
      Width = 343.000000000000000000
      
      
      ItemHeight = 13.000000000000000000
      DefaultItemStyles.ItemStyle = ''
      DefaultItemStyles.GroupHeaderStyle = ''
      DefaultItemStyles.GroupFooterStyle = ''
    end
    object AddBtn: TButton
      Height = 25.000000000000000000
      Position.X = 357.000000000000000000
      Position.Y = 16.000000000000000000
      TabOrder = 1
      Text = 'Add...'
      Width = 90.000000000000000000
      
    end
    object DeleteBtn: TButton
      Height = 25.000000000000000000
      Position.X = 357.000000000000000000
      Position.Y = 112.000000000000000000
      TabOrder = 3
      Text = 'Delete'
      Width = 90.000000000000000000
      
    end
    object EditBtn: TButton
      Height = 25.000000000000000000
      Position.X = 357.000000000000000000
      Position.Y = 48.000000000000000000
      TabOrder = 2
      Text = 'Edit...'
      Width = 90.000000000000000000
      
    end
  end
  object OKBtn: TButton
    Default = True
    Height = 25.000000000000000000
    ModalResult = 1
    Position.X = 305.000000000000000000
    Position.Y = 304.000000000000000000
    TabOrder = 2
    Text = 'OK'
    Width = 75.000000000000000000
    WordWrap = True
  end
  object CancelBtn: TButton
    Height = 25.000000000000000000
    ModalResult = 2
    Position.X = 385.000000000000000000
    Position.Y = 304.000000000000000000
    TabOrder = 3
    Text = 'Cancel'
    Width = 75.000000000000000000
    WordWrap = True
  end
  object FileNameGb: TGroupBox
    Height = 47.000000000000000000
    Position.X = 7.000000000000000000
    Position.Y = 2.000000000000000000
    Text = 'File name'
    Width = 454.000000000000000000
    TabOrder = 0
    object OpenFileSb: TSpeedButton
      Height = 23.000000000000000000
      Position.X = 326.000000000000000000
      Position.Y = 15.000000000000000000
      StyleLookup = 'buttonstyle'
      Width = 23.000000000000000000
      WordWrap = True
      
    end
    object FileNameEd: TEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 0
      Position.X = 8.000000000000000000
      Position.Y = 16.000000000000000000
      Width = 315.000000000000000000
      Height = 21.000000000000000000
      KillFocusByReturn = False
    end
    object OpenBtn: TButton
      Height = 25.000000000000000000
      Position.X = 357.000000000000000000
      Position.Y = 14.000000000000000000
      TabOrder = 1
      Text = 'Open'
      Width = 90.000000000000000000
      WordWrap = True
      
    end
  end
  object GroupBox1: TGroupBox
    Height = 70.000000000000000000
    Position.X = 6.000000000000000000
    Position.Y = 228.000000000000000000
    Text = 'Key'
    Width = 454.000000000000000000
    TabOrder = 4
    object CopyBlockKeySb: TSpeedButton
      Height = 23.000000000000000000
      Position.X = 398.000000000000000000
      Position.Y = 15.000000000000000000
      StyleLookup = 'buttonstyle'
      Width = 23.000000000000000000
      WordWrap = True
      
    end
    object CopyByteKeySb: TSpeedButton
      Height = 23.000000000000000000
      Position.X = 398.000000000000000000
      Position.Y = 41.000000000000000000
      StyleLookup = 'buttonstyle'
      Width = 23.000000000000000000
      WordWrap = True
      
    end
    object KeyPasteSb: TSpeedButton
      Height = 23.000000000000000000
      Position.X = 425.000000000000000000
      Position.Y = 15.000000000000000000
      StyleLookup = 'buttonstyle'
      Width = 23.000000000000000000
      WordWrap = True
      
    end
    object SpeedButton1: TSpeedButton
      Height = 23.000000000000000000
      Position.X = 425.000000000000000000
      Position.Y = 41.000000000000000000
      StyleLookup = 'buttonstyle'
      Width = 23.000000000000000000
      WordWrap = True
      
    end
    object BlockKeyEd: TEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 0
      Position.X = 8.000000000000000000
      Position.Y = 16.000000000000000000
      Width = 388.000000000000000000
      Height = 21.000000000000000000
      KillFocusByReturn = False
    end
    object BytesKeyEd: TEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 1
      Position.X = 8.000000000000000000
      Position.Y = 41.000000000000000000
      Width = 388.000000000000000000
      Height = 21.000000000000000000
      KillFocusByReturn = False
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'ini'
    FileName = 
      'C:\projects\components\tp\onguard\OnGuard\examples\Delphi\RegDem' +
      'o\OnGuard.ini'
    Filter = 'INI Files (*.ini)|*.ini|All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofCreatePrompt]
    Title = 'Select Key Maintenance File'
    Left = 152
    Top = 304
  end
end