unit1.dfm

themeengine6源码

object Form1: TForm1
  Left = 312
  Top = 209
  AutoScroll = False
  BorderIcons = [biMinimize, biMaximize]
  Caption = 'Scroll Adapter Demo'
  ClientHeight = 364
  ClientWidth = 507
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object TeSPageControl1: TTeSPageControl
    Left = 16
    Top = 40
    Width = 482
    Height = 317
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    ThemeObject = 'default'
    object TTeSTabSheet
      Caption = 'Standard'
      object ListBox1: TListBox
        Left = 10
        Top = 12
        Width = 127
        Height = 133
        Anchors = [akLeft, akTop, akBottom]
        ItemHeight = 13
        Items.Strings = (
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa'
          'aaaa')
        TabOrder = 0
      end
      object Memo1: TMemo
        Left = 148
        Top = 12
        Width = 315
        Height = 133
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a'
          'aaaa aaaaaaaaaaaaaaa a a a a a a a a a a a a')
        ScrollBars = ssBoth
        TabOrder = 1
      end
      object TreeView1: TTreeView
        Left = 10
        Top = 152
        Width = 127
        Height = 131
        Anchors = [akLeft, akBottom]
        Indent = 19
        TabOrder = 2
        Items.Data = {
          0E0000001A0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
          01641A0000000000000000000000FFFFFFFFFFFFFFFF00000000000000000164
          1A0000000000000000000000FFFFFFFFFFFFFFFF000000000000000001641A00
          00000000000000000000FFFFFFFFFFFFFFFF000000000000000001641B000000
          0000000000000000FFFFFFFFFFFFFFFF00000000000000000264641A00000000
          00000000000000FFFFFFFFFFFFFFFF000000000000000001641A000000000000
          0000000000FFFFFFFFFFFFFFFF000000000000000001641A0000000000000000
          000000FFFFFFFFFFFFFFFF000000000000000001641A00000000000000000000
          00FFFFFFFFFFFFFFFF000000000000000001641A0000000000000000000000FF
          FFFFFFFFFFFFFF000000000000000001641A0000000000000000000000FFFFFF
          FFFFFFFFFF000000000100000001641A0000000000000000000000FFFFFFFFFF
          FFFFFF000000000100000001641A0000000000000000000000FFFFFFFFFFFFFF
          FF00000000010000000164190000000000000000000000FFFFFFFFFFFFFFFF00
          0000000100000000190000000000000000000000FFFFFFFFFFFFFFFF00000000
          00000000004C0000000000000000000000FFFFFFFFFFFFFFFF00000000000000
          0033646464646464646464646464206420642064646464646464646464646420
          6420642064646464646464646464646464646464641A00000000000000000000
          00FFFFFFFFFFFFFFFF000000000000000001641A0000000000000000000000FF
          FFFFFFFFFFFFFF00000000000000000164}
      end
      object ListView1: TListView
        Left = 148
        Top = 152
        Width = 313
        Height = 130
        Anchors = [akLeft, akRight, akBottom]
        Columns = <>
        Items.Data = {
          760200001C00000000000000FFFFFFFFFFFFFFFF000000000000000001610000
          0000FFFFFFFFFFFFFFFF0000000000000000016100000000FFFFFFFFFFFFFFFF
          000000000000000002616100000000FFFFFFFFFFFFFFFF000000000000000001
          6100000000FFFFFFFFFFFFFFFF0000000000000000016100000000FFFFFFFFFF
          FFFFFF0000000000000000016100000000FFFFFFFFFFFFFFFF00000000000000
          0002616100000000FFFFFFFFFFFFFFFF0000000000000000016100000000FFFF
          FFFFFFFFFFFF0000000000000000016100000000FFFFFFFFFFFFFFFF00000000
          00000000016100000000FFFFFFFFFFFFFFFF0000000000000000026161000000
          00FFFFFFFFFFFFFFFF0000000000000000016100000000FFFFFFFFFFFFFFFF00
          00000000000000016100000000FFFFFFFFFFFFFFFF0000000000000000016100
          000000FFFFFFFFFFFFFFFF000000000000000002616100000000FFFFFFFFFFFF
          FFFF0000000000000000016100000000FFFFFFFFFFFFFFFF0000000000000000
          016100000000FFFFFFFFFFFFFFFF0000000000000000016100000000FFFFFFFF
          FFFFFFFF000000000000000002616100000000FFFFFFFFFFFFFFFF0000000000
          000000016100000000FFFFFFFFFFFFFFFF0000000000000000016100000000FF
          FFFFFFFFFFFFFF0000000000000000016100000000FFFFFFFFFFFFFFFF000000
          000000000002616100000000FFFFFFFFFFFFFFFF000000000000000001610000
          0000FFFFFFFFFFFFFFFF0000000000000000016100000000FFFFFFFFFFFFFFFF
          0000000000000000016100000000FFFFFFFFFFFFFFFF00000000000000000161
          00000000FFFFFFFFFFFFFFFF00000000000000000161}
        LargeImages = ImageList1
        TabOrder = 3
      end
    end
    object TTeSTabSheet
      Caption = 'VirtualTree'
      object VST: TVirtualStringTree
        Left = 14
        Top = 16
        Width = 219
        Height = 225
        Anchors = [akLeft, akTop, akRight, akBottom]
        BiDiMode = bdLeftToRight
        Colors.BorderColor = clWindowText
        Colors.HotColor = clBlack
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        Header.AutoSizeIndex = -1
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'MS Sans Serif'
        Header.Font.Style = []
        Header.MainColumn = -1
        Header.Options = [hoColumnResize, hoDrag]
        HintAnimation = hatNone
        IncrementalSearch = isAll
        LineStyle = lsSolid
        ParentBiDiMode = False
        ParentFont = False
        RootNodeCount = 100
        TabOrder = 0
        TreeOptions.AnimationOptions = [toAnimatedToggle]
        TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking]
        TreeOptions.MiscOptions = [toEditable, toInitOnSave, toToggleOnDblClick, toWheelPanning]