TurboPower OnGuard Code

542 lines (541 with data), 17.9 kB

object CodeGenerateFrm: TCodeGenerateFrm
  Left = 247
  Top = 137
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Code Generation'
  ClientHeight = 419
  ClientWidth = 464
  Position = poScreenCenter
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [dkDesktop, dkiPhone, dkiPad]
  
  
  Left = 247
  Top = 137
  DesignerMobile = False
  DesignerWidth = 0
  DesignerHeight = 0
  DesignerDeviceName = ''
  DesignerOrientation = 0
  DesignerOSVersion = ''
  object GenerateGb: TGroupBox
    Height = 49.000000000000000000
    Position.X = 4.000000000000000000
    Position.Y = 332.000000000000000000
    Text = 'Generate Code'
    Width = 457.000000000000000000
    TabOrder = 2
    object RegCodeCopySb: TSpeedButton
      Height = 23.000000000000000000
      Position.X = 422.000000000000000000
      Position.Y = 17.000000000000000000
      StyleLookup = 'buttonstyle'
      Width = 23.000000000000000000
      WordWrap = True
      
    end
    object GenerateBtn: TButton
      Default = True
      Height = 25.000000000000000000
      Position.X = 8.000000000000000000
      Position.Y = 16.000000000000000000
      TabOrder = 0
      Text = 'Generate'
      Width = 77.000000000000000000
      
    end
    object RegCodeEd: TEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 1
      ReadOnly = True
      Position.X = 96.000000000000000000
      Position.Y = 18.000000000000000000
      Width = 323.000000000000000000
      Height = 21.000000000000000000
      KillFocusByReturn = False
      
    end
  end
  object OKBtn: TButton
    Height = 25.000000000000000000
    ModalResult = 1
    Position.X = 307.000000000000000000
    Position.Y = 389.000000000000000000
    TabOrder = 3
    Text = 'OK'
    Width = 75.000000000000000000
    WordWrap = True
    
  end
  object CancelBtn: TButton
    Height = 25.000000000000000000
    ModalResult = 2
    Position.X = 386.000000000000000000
    Position.Y = 389.000000000000000000
    TabOrder = 0
    Text = 'Cancel'
    Width = 75.000000000000000000
    WordWrap = True
  end
  object GroupBox1: TGroupBox
    Height = 193.000000000000000000
    Position.X = 4.000000000000000000
    Position.Y = 136.000000000000000000
    Text = 'Key used to encode'
    Width = 457.000000000000000000
    TabOrder = 1
    object Label5: TLabel
      AutoSize = True
      Height = 19.000000000000000000
      Position.X = 12.000000000000000000
      Position.Y = 148.000000000000000000
      Text = 'Key:'
      Width = 24.000000000000000000
      WordWrap = False
    end
    object GenerateKeySb: TSpeedButton
      Height = 23.000000000000000000
      Position.X = 426.000000000000000000
      Position.Y = 163.000000000000000000
      StyleLookup = 'buttonstyle'
      Width = 23.000000000000000000
      WordWrap = True
      
    end
    object Label1: TLabel
      AutoSize = True
      Height = 19.000000000000000000
      Position.X = 8.000000000000000000
      Position.Y = 107.000000000000000000
      Text = 'Modifier:'
      Width = 48.000000000000000000
      WordWrap = False
    end
    object UniqueModifierCb: TCheckBox
      Height = 17.000000000000000000
      Position.X = 304.000000000000000000
      Position.Y = 16.000000000000000000
      TabOrder = 3
      Text = 'Unique modifier'
      Width = 105.000000000000000000
      
    end
    object MachineModifierCb: TCheckBox
      Height = 17.000000000000000000
      Position.X = 152.000000000000000000
      Position.Y = 16.000000000000000000
      TabOrder = 1
      Text = 'Machine modifier'
      Width = 105.000000000000000000
      
    end
    object DateModifierCb: TCheckBox
      Height = 17.000000000000000000
      Position.X = 16.000000000000000000
      Position.Y = 48.000000000000000000
      TabOrder = 2
      Text = 'Date modifier'
      Width = 105.000000000000000000
      
    end
    object NoModifierCb: TCheckBox
      Height = 17.000000000000000000
      IsChecked = True
      Position.X = 16.000000000000000000
      Position.Y = 16.000000000000000000
      TabOrder = 0
      Text = 'No modifier'
      Width = 105.000000000000000000
      
    end
    object ModifierEd: TEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 4
      ReadOnly = True
      Position.X = 8.000000000000000000
      Position.Y = 124.000000000000000000
      Width = 169.000000000000000000
      Height = 21.000000000000000000
      KillFocusByReturn = False
      
    end
    object BlockKeyEd: TEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 5
      ReadOnly = True
      Position.X = 8.000000000000000000
      Position.Y = 164.000000000000000000
      Width = 415.000000000000000000
      Height = 21.000000000000000000
      KillFocusByReturn = False
      
    end
    object StringModifierCb: TCheckBox
      Height = 17.000000000000000000
      Position.X = 16.000000000000000000
      Position.Y = 72.000000000000000000
      TabOrder = 6
      Text = 'String Modifier'
      Width = 97.000000000000000000
      
    end
    object ModStringEd: TEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 7
      Position.X = 111.000000000000000000
      Position.Y = 69.000000000000000000
      Width = 312.000000000000000000
      Height = 21.000000000000000000
      Enabled = False
      KillFocusByReturn = False
      
    end
    object ModDateCalendarEdit: TCalendarEdit
      Touch.InteractiveGestures = [igLongTap, igDoubleTap]
      TabOrder = 11
      Cursor = crIBeam
      Date = 41737.000000000000000000
      Height = 22.000000000000000000
      Position.X = 112.000000000000000000
      Position.Y = 46.000000000000000000
      Width = 100.000000000000000000
    end
  end
  object CodesTC: TTabControl
    Height = 129.000000000000000000
    Position.X = 8.000000000000000000
    Position.Y = 8.000000000000000000
    TabIndex = 5
    TabOrder = 4
    Width = 449.000000000000000000
    object TabItem1: TTabItem
      WordWrap = False
      Height = 23.000000000000000000
      IsSelected = False
      Position.X = 1.000000000000000000
      TabOrder = 0
      Text = 'Date'
      Width = 43.000000000000000000
      object Label9: TLabel
        Height = 17.000000000000000000
        Position.X = 16.000000000000000000
        Position.Y = 16.000000000000000000
        Text = 'Start date:'
        Width = 65.000000000000000000
      end
      object Label11: TLabel
        Height = 17.000000000000000000
        Position.X = 208.000000000000000000
        Position.Y = 16.000000000000000000
        Text = 'End date:'
        Width = 65.000000000000000000
      end
      object StartDateCalendarEdit: TCalendarEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 2
        Cursor = crIBeam
        Date = 41736.000000000000000000
        Height = 22.000000000000000000
        Position.X = 80.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        
      end
      object EndDateCalendarEdit: TCalendarEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 3
        Cursor = crIBeam
        Date = 41736.000000000000000000
        Height = 22.000000000000000000
        Position.X = 272.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        
      end
    end
    object TabItem2: TTabItem
      WordWrap = False
      Height = 23.000000000000000000
      IsSelected = False
      Position.X = 44.000000000000000000
      TabOrder = 1
      Text = 'Days'
      Width = 43.000000000000000000
      object Label13: TLabel
        Height = 17.000000000000000000
        Position.X = 16.000000000000000000
        Position.Y = 24.000000000000000000
        Text = 'Day count:'
        Width = 73.000000000000000000
      end
      object Label2: TLabel
        Height = 17.000000000000000000
        Position.X = 216.000000000000000000
        Position.Y = 24.000000000000000000
        Text = 'Expires:'
        Width = 49.000000000000000000
      end
      object DaysCountSpinBox: TSpinBox
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 2
        Cursor = crIBeam
        Max = 4294967040.000000000000000000
        Position.X = 88.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        Height = 22.000000000000000000
        
      end
      object DaysExpiresCalendarEdit: TCalendarEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 3
        Cursor = crIBeam
        Date = 41736.000000000000000000
        Height = 22.000000000000000000
        Position.X = 272.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        
      end
    end
    object TabItem3: TTabItem
      WordWrap = False
      Height = 23.000000000000000000
      IsSelected = False
      Position.X = 87.000000000000000000
      TabOrder = 2
      Text = 'Reg'
      Width = 39.000000000000000000
      object Label6: TLabel
        Height = 17.000000000000000000
        Position.X = 8.000000000000000000
        Position.Y = 8.000000000000000000
        Text = 'String:'
        Width = 41.000000000000000000
      end
      object RegStrEd: TEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 1
        Position.X = 48.000000000000000000
        Position.Y = 8.000000000000000000
        Width = 361.000000000000000000
        Height = 22.000000000000000000
        KillFocusByReturn = False
        
      end
      object RegStrCopySb: TSpeedButton
        Height = 22.000000000000000000
        Position.X = 416.000000000000000000
        Position.Y = 8.000000000000000000
        StyleLookup = 'buttonstyle'
        Width = 25.000000000000000000
      end
      object RegRandomBtn: TButton
        Height = 22.000000000000000000
        Position.X = 48.000000000000000000
        Position.Y = 40.000000000000000000
        TabOrder = 3
        Text = '&Random Number'
        Width = 105.000000000000000000
        
      end
      object Label4: TLabel
        Height = 17.000000000000000000
        Position.X = 192.000000000000000000
        Position.Y = 40.000000000000000000
        Text = 'Expires:'
        Width = 49.000000000000000000
      end
      object RegExpiresCalendarEdit: TCalendarEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 5
        Cursor = crIBeam
        Date = 41736.000000000000000000
        Height = 22.000000000000000000
        Position.X = 256.000000000000000000
        Position.Y = 40.000000000000000000
        Width = 100.000000000000000000
        
      end
    end
    object TabItem4: TTabItem
      WordWrap = False
      Height = 23.000000000000000000
      IsSelected = False
      Position.X = 126.000000000000000000
      TabOrder = 3
      Text = 'S/N'
      Width = 38.000000000000000000
      object Label7: TLabel
        Height = 17.000000000000000000
        Position.X = 16.000000000000000000
        Position.Y = 16.000000000000000000
        Text = 'Serial number:'
        Width = 81.000000000000000000
      end
      object Label15: TLabel
        Height = 17.000000000000000000
        Position.X = 240.000000000000000000
        Position.Y = 16.000000000000000000
        Text = 'Expires:'
        Width = 49.000000000000000000
      end
      object SerialNumberNumberBox: TNumberBox
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 2
        Cursor = crIBeam
        DecimalDigits = 0
        Max = 4294967040.000000000000000000
        Position.X = 96.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 121.000000000000000000
        Height = 22.000000000000000000
        VertIncrement = 5.000000000000000000
        
      end
      object SerialExpiresCalendarEdit: TCalendarEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 3
        Cursor = crIBeam
        Date = 41737.000000000000000000
        Height = 22.000000000000000000
        Position.X = 296.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        
      end
      object SerRandomBtn: TButton
        Height = 22.000000000000000000
        Position.X = 16.000000000000000000
        Position.Y = 48.000000000000000000
        TabOrder = 4
        Text = 'Random Number'
        Width = 121.000000000000000000
        
      end
    end
    object TabItem5: TTabItem
      WordWrap = False
      Height = 23.000000000000000000
      IsSelected = False
      Position.X = 164.000000000000000000
      TabOrder = 4
      Text = 'Usage'
      Width = 50.000000000000000000
      object Label14: TLabel
        Height = 17.000000000000000000
        Position.X = 16.000000000000000000
        Position.Y = 24.000000000000000000
        Text = 'Usage count:'
        Width = 73.000000000000000000
      end
      object Label17: TLabel
        Height = 17.000000000000000000
        Position.X = 232.000000000000000000
        Position.Y = 24.000000000000000000
        Text = 'Expires:'
        Width = 49.000000000000000000
      end
      object UsageCountNumberBox: TNumberBox
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 2
        Cursor = crIBeam
        Max = 4294967040.000000000000000000
        Position.X = 96.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        Height = 22.000000000000000000
        VertIncrement = 5.000000000000000000
        
      end
      object UsageExpiresCalendarEdit: TCalendarEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 3
        Cursor = crIBeam
        Date = 41737.000000000000000000
        Height = 22.000000000000000000
        Position.X = 288.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        
      end
    end
    object TabItem6: TTabItem
      WordWrap = False
      Height = 23.000000000000000000
      IsSelected = True
      Position.X = 214.000000000000000000
      TabOrder = 5
      Text = 'Network'
      Width = 61.000000000000000000
      object Label10: TLabel
        Height = 17.000000000000000000
        Position.X = 16.000000000000000000
        Position.Y = 24.000000000000000000
        Text = 'Access slots:'
        Width = 73.000000000000000000
      end
      object NetworkSlotsNumberBox: TNumberBox
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 1
        Cursor = crIBeam
        Min = 1.000000000000000000
        Max = 4294967040.000000000000000000
        Value = 2.000000000000000000
        Position.X = 104.000000000000000000
        Position.Y = 16.000000000000000000
        Width = 100.000000000000000000
        Height = 22.000000000000000000
        VertIncrement = 5.000000000000000000
        
      end
    end
    object TabItem7: TTabItem
      WordWrap = False
      Height = 23.000000000000000000
      IsSelected = False
      Position.X = 275.000000000000000000
      TabOrder = 6
      Text = 'Special'
      Width = 54.000000000000000000
      object Label12: TLabel
        Height = 17.000000000000000000
        Position.X = 16.000000000000000000
        Position.Y = 16.000000000000000000
        Text = 'Special data:'
        Width = 73.000000000000000000
      end
      object Label19: TLabel
        Height = 17.000000000000000000
        Position.X = 240.000000000000000000
        Position.Y = 16.000000000000000000
        Text = 'Expires:'
        Width = 49.000000000000000000
      end
      object SpecialDataNumberBox: TNumberBox
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 2
        Cursor = crIBeam
        Max = 4294967296.000000000000000000
        Position.X = 88.000000000000000000
        Position.Y = 8.000000000000000000
        Width = 121.000000000000000000
        Height = 22.000000000000000000
        VertIncrement = 5.000000000000000000
        
      end
      object SpecialExpiresCalendarEdit: TCalendarEdit
        Touch.InteractiveGestures = [igLongTap, igDoubleTap]
        TabOrder = 3
        Cursor = crIBeam
        Date = 41737.000000000000000000
        Height = 22.000000000000000000
        Position.X = 288.000000000000000000
        Position.Y = 8.000000000000000000
        Width = 100.000000000000000000
        
      end
    end
  end
end