Main.fmx

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Random'
  ClientHeight = 552
  ClientWidth = 795
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
  DesignerMasterStyle = 0
  object LabelY: TLabel
    Position.X = 5.000000000000000000
    Position.Y = 85.000000000000000000
    RotationAngle = -90.000000000000000000
    RotationCenter.X = 0.000000000000000000
    RotationCenter.Y = 0.000000000000000000
    Size.Width = 55.000000000000000000
    Size.Height = 20.000000000000000000
    Size.PlatformDefault = False
    TextSettings.HorzAlign = Trailing
    Text = #8592' Thread'
    TabOrder = 0
  end
  object LabelX: TLabel
    Position.X = 30.000000000000000000
    Position.Y = 5.000000000000000000
    Size.Width = 70.000000000000000000
    Size.Height = 20.000000000000000000
    Size.PlatformDefault = False
    Text = 'Sequence '#8594
    TabOrder = 1
  end
  object Image1: TImage
    MultiResBitmap = <
      item
      end>
    Align = Client
    DisableInterpolation = True
    Margins.Left = 30.000000000000000000
    Margins.Top = 30.000000000000000000
    Margins.Bottom = 10.000000000000000000
    Size.Width = 512.000000000000000000
    Size.Height = 512.000000000000000000
    Size.PlatformDefault = False
    WrapMode = Stretch
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 45
    Top = 45
  end
  object TabControl1: TTabControl
    Align = Right
    Margins.Left = 10.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 10.000000000000000000
    Margins.Bottom = 10.000000000000000000
    Position.X = 552.000000000000000000
    Position.Y = 10.000000000000000000
    Size.Width = 233.000000000000000000
    Size.Height = 532.000000000000000000
    Size.PlatformDefault = False
    TabIndex = 1
    TabOrder = 3
    TabPosition = PlatformDefault
    Sizes = (
      233s
      506s
      233s
      506s)
    object TabItemS: TTabItem
      CustomIcon = <
        item
        end>
      IsSelected = False
      Size.Width = 46.000000000000000000
      Size.Height = 26.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = ''
      TabOrder = 0
      Text = 'Seed'
      ExplicitSize.cx = 46.000000000000000000
      ExplicitSize.cy = 26.000000000000000000
      inline FrameMS: TFrameM
        Align = Client
        Margins.Left = 10.000000000000000000
        Margins.Top = 10.000000000000000000
        Margins.Right = 10.000000000000000000
        Margins.Bottom = 10.000000000000000000
        Size.Width = 213.000000000000000000
        Size.Height = 486.000000000000000000
        Size.PlatformDefault = False
        inherited StringGridM: TStringGrid
          Size.Height = 486.000000000000000000
          OnSelectCell = FrameMSStringGridMSelectCell
          Viewport.Width = 193.000000000000000000
          Viewport.Height = 461.000000000000000000
          inherited StringColumnA: TStringColumn
            Size.Width = 75.000000000000000000
          end
          inherited StringColumnP: TStringColumn
            Size.Width = 50.000000000000000000
          end
          inherited StringColumnB: TStringColumn
            Size.Width = 30.000000000000000000
          end
          inherited StringColumnS: TStringColumn
            Size.Width = 35.000000000000000000
          end
        end
      end
    end
    object TabItemR: TTabItem
      CustomIcon = <
        item
        end>
      IsSelected = True
      Size.Width = 48.000000000000000000
      Size.Height = 26.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = ''
      TabOrder = 0
      Text = 'Rand'
      ExplicitSize.cx = 48.000000000000000000
      ExplicitSize.cy = 26.000000000000000000
      inline FrameMR: TFrameM
        Align = Client
        Margins.Left = 10.000000000000000000
        Margins.Top = 10.000000000000000000
        Margins.Right = 10.000000000000000000
        Margins.Bottom = 10.000000000000000000
        Size.Width = 213.000000000000000000
        Size.Height = 486.000000000000000000
        Size.PlatformDefault = False
        inherited StringGridM: TStringGrid
          Size.Height = 486.000000000000000000
          OnSelectCell = FrameMRStringGridMSelectCell
          Viewport.Width = 193.000000000000000000
          Viewport.Height = 461.000000000000000000
          inherited StringColumnA: TStringColumn
            Size.Width = 75.000000000000000000
          end
          inherited StringColumnP: TStringColumn
            Size.Width = 50.000000000000000000
          end
          inherited StringColumnB: TStringColumn
            Size.Width = 30.000000000000000000
          end
          inherited StringColumnS: TStringColumn
            Size.Width = 35.000000000000000000
          end
        end
      end
    end
  end
end