lazarus.fresnel/demo/ScrollBox/MainUnit.lfm

object MainForm: TMainForm
  Caption = 'MainForm'
  FormLeft = 450
  FormTop = 100
  FormWidth = 350
  FormHeight = 605
  Stylesheet.Strings = (
    '#ScrollDiv1 {'
    '  padding: 5px; '
    '  border: 2px solid black; '
    '  margin: 8px;'
    '}'
  )
  OnCreate = MainFormCreate
  Visible = true
  object Body1: TBody
    style = 'font-size: 14px;'
    object ScrollDiv1: TDiv
      Style = 'background-color: blue;'#10'border-color: black;'#10'height:50px;'
      object Label1: TLabel
        Style = 'color: red;'
        Caption = 'Label1'
      end
      object Label2: TLabel
        Style = 'color: blue; width: 180px; border: 1px solid blue;'
        Caption = 'Label2'
      end
      object Label3: TLabel
        Style = 'color: brown; width: 10px; border: 1px solid brown;'
        Caption = '3'
      end
      object Div2: TDiv
        Style = 'width: 50px; height: 50px; margin: 8px; border: 2px solid black;'
      end
    end
    object OverflowXDiv: TDiv
      Style = 'min-width: 50px; min-height: 50px; margin: 6px; border: 1px solid black; border-radius: 5px; padding: 6px;'
      object OverflowXLabel: TLabel
        Caption = 'overflow-x'
        Style = 'margin: 6px; font-weight: bold; font-size: 1.2em; '
      end
      object OverflowXVisible: TDemoRadioButton
        Caption = 'visible'
        OnClick = OnOverflowXClicked
      end
      object OverflowXClip: TDemoRadioButton
        Caption = 'clip'
        OnClick = OnOverflowXClicked
      end
      object OverflowXHidden: TDemoRadioButton
        Caption = 'hidden'
        OnClick = OnOverflowXClicked
      end
      object OverflowXScroll: TDemoRadioButton
        Caption = 'scroll'
        OnClick = OnOverflowXClicked
      end
      object OverflowXAuto: TDemoRadioButton
        Caption = 'auto'
        OnClick = OnOverflowXClicked
      end
    end
    object OverflowYDiv: TDiv
      Style = 'min-width: 50px; min-height: 50px; margin: 6px; border: 1px solid black; border-radius: 5px; padding: 6px;'
      object OverflowYLabel: TLabel
        Caption = 'overflow-y'
        Style = 'margin: 6px; font-weight: bold; font-size: 1.2em; '
        OnClick = OnOverflowYClicked
      end
      object OverflowYVisible: TDemoRadioButton
        Caption = 'visible'
        OnClick = OnOverflowYClicked
      end
      object OverflowYClip: TDemoRadioButton
        Caption = 'clip'
        OnClick = OnOverflowYClicked
      end
      object OverflowYHidden: TDemoRadioButton
        Caption = 'hidden'
        OnClick = OnOverflowYClicked
      end
      object OverflowYScroll: TDemoRadioButton
        Caption = 'scroll'
        OnClick = OnOverflowYClicked
      end
      object OverflowYAuto: TDemoRadioButton
        Caption = 'auto'
        OnClick = OnOverflowYClicked
      end
    end
    object OptionsDiv: TDiv
      Style = 'min-width: 50px; min-height: 50px; margin: 6px; border: 1px solid black; border-radius: 5px; '
      object AutoHideCheckBox: TDemoCheckBox
        Style = 'margin: 6px;'
        Caption = 'Auto Hide'
        OnClick = OnAutoHideClicked
      end
      object OverlayCheckBox: TDemoCheckBox
        Style = 'margin: 6px;'
        Caption = 'Overlay'
        OnClick = OnOverlayClicked
      end
      object HaveButtonsCheckBox: TDemoCheckBox
        Style = 'margin: 6px;'
        Caption = 'Have Buttons'
        OnClick = OnHaveButtonsClicked
      end
      object RTLCheckBox: TDemoCheckBox
        Style = 'margin: 6px;'
        Caption = 'RTL (direction)'
        OnClick = OnRTLClicked
      end
      object ThinCheckBox: TDemoCheckBox
        Style = 'margin: 6px;'
        Caption = 'Thin (scrollbar-width)'
        OnClick = OnThinClicked
      end
      object BothEdgesCheckBox: TDemoCheckBox
        Style = 'margin: 6px;'
        Caption = 'Both Edges (scrollbar-gutter)'
        OnClick = OnBothEdgesClicked
      end
      object ColorCheckBox: TDemoCheckBox
        Style = 'margin: 6px;'
        Caption = 'Color (scrollbar-color)'
        OnClick = OnColorClicked
      end
    end
  end
end