unitmain.fmx

object FormMain: TFormMain
  Left = 0
  Top = 0
  Caption = 'Bible Verse Desktop'
  ClientHeight = 320
  ClientWidth = 455
  Position = Designed
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnClose = FormClose
  OnPaint = FormPaint
  DesignerMasterStyle = 0
  object Rectangle: TRectangle
    Fill.Color = claBlack
    Opacity = 0.009999999776482582
    Position.X = 120.000000000000000000
    Position.Y = 272.000000000000000000
    Sides = []
    Size.Width = 33.000000000000000000
    Size.Height = 33.000000000000000000
    Size.PlatformDefault = False
    Stroke.Kind = None
    Stroke.Dash = Custom
    Stroke.CustomDash = {0000000000000000}
  end
  object Shape: TRectangle
    Fill.Color = claBlack
    Opacity = 0.250000000000000000
    Position.X = 61.000000000000000000
    Position.Y = 39.000000000000000000
    Sides = []
    Size.Width = 356.000000000000000000
    Size.Height = 226.000000000000000000
    Size.PlatformDefault = False
    Stroke.Kind = None
    Stroke.Dash = Custom
    Stroke.CustomDash = {0000000000000000}
    XRadius = 20.000000000000000000
    YRadius = 20.000000000000000000
    OnMouseDown = ShapeMouseDown
    OnMouseMove = ShapeMouseMove
    OnMouseUp = ShapeMouseUp
    OnMouseWheel = ShapeMouseWheel
  end
  object LabelMain: TLabel
    AutoSize = True
    StyledSettings = []
    Position.X = 120.000000000000000000
    Position.Y = 80.000000000000000000
    Size.Width = 219.000000000000000000
    Size.Height = 64.000000000000000000
    Size.PlatformDefault = False
    TextSettings.Font.Family = '@Arial Unicode MS'
    TextSettings.Font.Size = 48.000000000000000000
    TextSettings.FontColor = claWhite
    TextSettings.VertAlign = Leading
    TextSettings.WordWrap = False
    Text = 'LabelMain'
    object ShadowEffectMain: TShadowEffect
      Distance = 3.000000000000000000
      Direction = 45.000000000000000000
      Softness = 0.300000011920929000
      Opacity = 0.600000023841857900
      ShadowColor = claBlack
    end
  end
  object LabelSign: TLabel
    AutoSize = True
    StyledSettings = []
    Position.X = 16.000000000000000000
    Position.Y = 16.000000000000000000
    Size.Width = 77.000000000000000000
    Size.Height = 24.000000000000000000
    Size.PlatformDefault = False
    TextSettings.Font.Size = 18.000000000000000000
    TextSettings.FontColor = claWhite
    TextSettings.WordWrap = False
    Text = 'LabelSign'
    object ShadowEffectSign: TShadowEffect
      Distance = 3.000000000000000000
      Direction = 45.000000000000000000
      Softness = 0.300000011920929000
      Opacity = 0.600000023841857900
      ShadowColor = claBlack
    end
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 16
    Top = 48
    object miAbout: TMenuItem
      Action = cmAbout
      Enabled = True
      Text = 'About'
      ImageIndex = -1
    end
    object miSeparator1: TMenuItem
      Opacity = 0.500000000000000000
      Text = '-'
    end
    object miCopy: TMenuItem
      Action = cmCopy
      Enabled = True
      Text = 'Copy'
      ImageIndex = -1
    end
    object miList: TMenuItem
      Action = cmList
      Enabled = True
      Text = 'List'
      ImageIndex = -1
    end
    object miFont: TMenuItem
      Action = cmFont
      Enabled = True
      Text = 'Font'
      ImageIndex = -1
    end
    object miTransparent: TMenuItem
      Action = cmTransparent
      Enabled = True
      Text = 'Transparent'
      ImageIndex = -1
    end
    object miRandom: TMenuItem
      Action = cmRandom
      Enabled = True
      Text = 'Random'
      ImageIndex = -1
    end
    object miTimer: TMenuItem
      Text = 'Timer'
      object miTimerOff: TMenuItem
        Locked = True
        Text = 'off'
        OnClick = TimerClick
      end
      object miSeparator3: TMenuItem
        Locked = True
        Text = '-'
      end
      object miTimer10sec: TMenuItem
        Locked = True
        Text = '10 sec'
        OnClick = TimerClick
      end
      object miTimer30sec: TMenuItem
        Locked = True
        Text = '30 sec'
        OnClick = TimerClick
      end
      object miTimer1min: TMenuItem
        Locked = True
        Text = '1 min'
        OnClick = TimerClick
      end
      object miTimer30min: TMenuItem
        Locked = True
        Text = '30 min'
        OnClick = TimerClick
      end
      object miTimer60min: TMenuItem
        Locked = True
        Text = '60 min'
        OnClick = TimerClick
      end
    end
    object miWallpaper: TMenuItem
      Action = cmWallpaper
      Enabled = True
      Text = 'Wallpaper'
      ImageIndex = -1
    end
    object miLang: TMenuItem
      Action = cmLocalisation
      Enabled = True
      Text = 'Localization'
      ImageIndex = -1
    end
    object miSeparator2: TMenuItem
      Opacity = 0.500000000000000000
      Text = '-'
    end
    object miExit: TMenuItem
      Action = cmExit
      Enabled = True
      Text = 'Exit'
      ImageIndex = -1
    end
  end
  object OpenDialog: TOpenDialog
    Left = 16
    Top = 96
  end
  object Timer: TTimer
    OnTimer = TimerTimer
    Left = 16
    Top = 144
  end
  object OpenDialogLang: TOpenDialog
    Left = 88
    Top = 192
  end
  object TimerHint: TTimer
    OnTimer = TimerHintTimer
    Left = 16
    Top = 192
  end
  object ActionList: TActionList
    Left = 88
    Top = 144
    object cmAbout: TAction
      OnExecute = cmAboutExecute
    end
    object cmCopy: TAction
      OnExecute = cmCopyExecute
    end
    object cmList: TAction
      OnExecute = cmListExecute
    end
    object cmFont: TAction
      OnExecute = cmFontExecute
    end
    object cmTransparent: TAction
      OnExecute = cmTransparentExecute
    end
    object cmRandom: TAction
      OnExecute = cmRandomExecute
    end
    object cmExit: TAction
      OnExecute = cmExitExecute
    end
    object cmWallpaper: TAction
      OnExecute = cmWallpaperExecute
    end
    object cmLocalisation: TAction
      OnExecute = cmLocalisationExecute
    end
    object cmListItem: TAction
      Text = 'cmListItem'
      OnExecute = cmListItemExecute
    end
  end
end