ufrmFMXStyleBrowserMain.fmx

object frmFMXStyleBrowser: TfrmFMXStyleBrowser
  Left = 0
  Top = 0
  Caption = 'Style Browser for Firemonkey'
  ClientHeight = 616
  ClientWidth = 448
  StyleBook = AStyleBook
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnClose = FormClose
  DesignerMasterStyle = 0
  object grpStyleConfig: TGroupBox
    Align = Client
    Margins.Left = 10.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 10.000000000000000000
    Margins.Bottom = 10.000000000000000000
    Size.Width = 428.000000000000000000
    Size.Height = 477.000000000000000000
    Size.PlatformDefault = False
    Text = 'Options'
    TabOrder = 1
    object brnRefreshStyles: TButton
      Position.X = 8.000000000000000000
      Position.Y = 246.000000000000000000
      Size.Width = 137.000000000000000000
      Size.Height = 35.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'Button1Style1'
      TabOrder = 8
      Text = 'Refresh Styles'
      OnClick = brnRefreshStylesClick
    end
    object chkWindowsDefault: TCheckBox
      IsChecked = True
      Position.X = 8.000000000000000000
      Position.Y = 181.000000000000000000
      Size.Width = 185.000000000000000000
      Size.Height = 19.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 9
      Text = 'Windows Default (no style)'
      OnChange = chkWindowsDefaultChange
    end
    object radFolder1: TRadioButton
      GroupName = 'Folders'
      IsChecked = True
      Position.X = 8.000000000000000000
      Position.Y = 29.000000000000000000
      Size.Width = 113.000000000000000000
      Size.Height = 19.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
      Text = 'Preset Folder 1'
      OnClick = radFolder1Click
    end
    object ProgressBar1: TProgressBar
      Anchors = [akLeft, akRight, akBottom]
      Orientation = Horizontal
      Position.X = 8.000000000000000000
      Position.Y = 426.000000000000000000
      Size.Width = 412.000000000000000000
      Size.Height = 11.000000000000000000
      Size.PlatformDefault = False
      Value = 35.000000000000000000
    end
    object lbStyleList: TListBox
      Anchors = [akLeft, akTop, akRight, akBottom]
      Position.X = 184.000000000000000000
      Position.Y = 208.000000000000000000
      Size.Width = 217.000000000000000000
      Size.Height = 190.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 7
      OnDblClick = lbStyleListDblClick
      DisableFocusEffect = True
      Items.Strings = (
        'ListBox Item one'
        'ListBox Item two'
        'ListBox Item three'
        'ListBox Item four')
      DefaultItemStyles.ItemStyle = ''
      DefaultItemStyles.GroupHeaderStyle = ''
      DefaultItemStyles.GroupFooterStyle = ''
      Viewport.Width = 213.000000000000000000
      Viewport.Height = 186.000000000000000000
    end
    object cmbStyle: TComboBox
      Items.Strings = (
        'Show All styles'
        'Show only "Dark" styles'
        'Show only "Light" styles')
      ItemIndex = 0
      Position.X = 240.000000000000000000
      Position.Y = 170.000000000000000000
      Size.Width = 161.000000000000000000
      Size.Height = 30.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 6
      OnChange = cmbStyleChange
    end
    object edtFolder1: TEdit
      Touch.InteractiveGestures = [LongTap, DoubleTap]
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 1
      Position.X = 128.000000000000000000
      Position.Y = 24.000000000000000000
      Size.Width = 273.000000000000000000
      Size.Height = 30.000000000000000000
      Size.PlatformDefault = False
    end
    object TrackBar1: TTrackBar
      Anchors = [akLeft, akRight, akBottom]
      CanParentFocus = True
      Orientation = Horizontal
      Position.X = 8.000000000000000000
      Position.Y = 445.000000000000000000
      Size.Width = 412.000000000000000000
      Size.Height = 19.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 10
      Value = 35.000000000000000000
    end
    object radFolder2: TRadioButton
      GroupName = 'Folders'
      Position.X = 8.000000000000000000
      Position.Y = 62.000000000000000000
      TabOrder = 2
      Text = 'Preset Folder 2'
      OnClick = radFolder2Click
    end
    object radFolder3: TRadioButton
      GroupName = 'Folders'
      Position.X = 8.000000000000000000
      Position.Y = 94.000000000000000000
      TabOrder = 4
      Text = 'Preset Folder 3'
      OnClick = radFolder3Click
    end
    object edtFolder2: TEdit
      Touch.InteractiveGestures = [LongTap, DoubleTap]
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 3
      Position.X = 128.000000000000000000
      Position.Y = 56.000000000000000000
      Size.Width = 273.000000000000000000
      Size.Height = 30.000000000000000000
      Size.PlatformDefault = False
    end
    object edtFolder3: TEdit
      Touch.InteractiveGestures = [LongTap, DoubleTap]
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 5
      Position.X = 128.000000000000000000
      Position.Y = 89.000000000000000000
      Size.Width = 273.000000000000000000
      Size.Height = 30.000000000000000000
      Size.PlatformDefault = False
    end
    object AniIndicator: TAniIndicator
      Position.X = 128.000000000000000000
      Position.Y = 94.000000000000000000
      Size.Width = 89.000000000000000000
      Size.Height = 82.000000000000000000
      Size.PlatformDefault = False
      Visible = False
    end
    object Label1: TLabel
      Anchors = [akLeft, akBottom]
      Position.X = 8.000000000000000000
      Position.Y = 401.000000000000000000
      Size.Width = 201.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      Text = 'Trackbar and Progressbar for testing'
      TabOrder = 40
    end
  end
  object lblDescr: TLabel
    Align = Top
    Margins.Left = 10.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 10.000000000000000000
    Position.X = 10.000000000000000000
    Position.Y = 10.000000000000000000
    Size.Width = 428.000000000000000000
    Size.Height = 63.000000000000000000
    Size.PlatformDefault = False
    TextSettings.VertAlign = Leading
    Text = 
      'This program allows you to preview Firemonkey Styles. You can de' +
      'fine up to three folders, then switch between them easily for qu' +
      'ick comparison. Your defined folders will be saved in the regist' +
      'ry between sessions.'
    TabOrder = 0
  end
  object pnlBottom: TPanel
    Align = Bottom
    Margins.Left = 10.000000000000000000
    Margins.Right = 10.000000000000000000
    Margins.Bottom = 10.000000000000000000
    Position.X = 10.000000000000000000
    Position.Y = 570.000000000000000000
    Size.Width = 428.000000000000000000
    Size.Height = 36.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 2
  end
  object AStyleBook: TStyleBook
    Styles = <
      item
      end>
    Left = 136
    Top = 376
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    Left = 292
    Top = 517
    object LinkControlToPropertyValue: TLinkControlToProperty
      Category = 'Quick Bindings'
      Control = TrackBar1
      Component = ProgressBar1
      ComponentProperty = 'Value'
    end
  end
end