ctrls3.dfm

themeengine6源码

      'Tunga'
      'Verdana'
      'Webdings'
      'Wingdings'
      'WST_Czec'
      'WST_Engl'
      'WST_Fren'
      'WST_Germ'
      'WST_Ital'
      'WST_Span'
      'WST_Swed')
    Flat = True
    ItemIndex = 0
    ListStyle = lbFontSamples
    ShowCheckBoxes = False
    Sorted = True
    WordWrap = False
  end
  object NgEdit1: TTeEdit
    Left = 212
    Top = 16
    Width = 121
    Height = 21
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    AutoSize = True
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TabOrder = 7
    Text = 'NgEdit1'
    ThemeObject = 'default'
  end
  object NgEdit2: TTeEdit
    Left = 342
    Top = 16
    Width = 97
    Height = 21
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    AutoSize = True
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TabOrder = 8
    Text = '0'
    ThemeObject = 'default'
  end
  object NgEdit3: TTeEdit
    Left = 342
    Top = 44
    Width = 97
    Height = 21
    Cursor = crIBeam
    Performance = kspDoubleBuffer
    AutoSize = True
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PasswordKind = pkNone
    ContextMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TabOrder = 9
    Text = '0'
    ThemeObject = 'default'
  end
  object NgListBox1: TTeListBox
    Left = 210
    Top = 101
    Width = 245
    Height = 76
    Performance = kspDoubleBuffer
    AllowGrayed = False
    AlwaysShowScrlBar = False
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Color = 15657963
    Columns = 2
    Flat = True
    Items.Strings = (
      'clBlack'
      'clMaroon'
      'clGreen'
      'clOlive'
      'clNavy'
      'clPurple'
      'clTeal'
      'clGray'
      'clSilver'
      'clRed'
      'clLime'
      'clYellow'
      'clBlue'
      'clFuchsia'
      'clAqua'
      'clWhite'
      'clScrollBar'
      'clBackground'
      'clActiveCaption'
      'clInactiveCaption'
      'clMenu'
      'clWindow'
      'clWindowFrame'
      'clMenuText'
      'clWindowText'
      'clCaptionText'
      'clActiveBorder'
      'clInactiveBorder'
      'clAppWorkSpace'
      'clHighlight'
      'clHighlightText'
      'clBtnFace'
      'clBtnShadow'
      'clGrayText'
      'clBtnText'
      'clInactiveCaptionText'
      'clBtnHighlight'
      'cl3DDkShadow'
      'cl3DLight'
      'clInfoText'
      'clInfoBk'
      'clNone')
    ItemHeight = 18
    MultiSelect = False
    ShowCheckBoxes = False
    ListStyle = lbColorNames
    ThemeObject = 'default'
    TabOrder = 10
    WordWrap = False
  end
  object NgListBox2: TTeListBox
    Left = 10
    Top = 247
    Width = 191
    Height = 81
    Performance = kspDoubleBuffer
    AllowGrayed = False
    AlwaysShowScrlBar = False
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Color = 15657963
    Columns = 0
    Flat = True
    Items.Strings = (
      'clBlack'
      'clMaroon'
      'clGreen'
      'clOlive'
      'clNavy'
      'clPurple'
      'clTeal'
      'clGray'
      'clSilver'
      'clRed'
      'clLime'
      'clYellow'
      'clBlue'
      'clFuchsia'
      'clAqua'
      'clWhite'
      'clScrollBar'
      'clBackground'
      'clActiveCaption'
      'clInactiveCaption'
      'clMenu'
      'clWindow'
      'clWindowFrame'
      'clMenuText'
      'clWindowText'
      'clCaptionText'
      'clActiveBorder'
      'clInactiveBorder'
      'clAppWorkSpace'
      'clHighlight'
      'clHighlightText'
      'clBtnFace'
      'clBtnShadow'
      'clGrayText'
      'clBtnText'
      'clInactiveCaptionText'
      'clBtnHighlight'
      'cl3DDkShadow'
      'cl3DLight'
      'clInfoText'
      'clInfoBk'
      'clNone')
    ItemHeight = 18
    MultiSelect = False
    ShowCheckBoxes = False
    ListStyle = lbColors
    ThemeObject = 'default'
    TabOrder = 11
    WordWrap = False
  end
  object NgListBox3: TTeListBox
    Left = 210
    Top = 183
    Width = 129
    Height = 147
    Performance = kspDoubleBuffer
    AllowGrayed = False
    AlwaysShowScrlBar = False
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Color = 15657963
    Columns = 0
    Flat = True
    Items.Strings = (
      'AGLettericaCondensedLight'
      'Arial'
      'Arial Baltic'
      'Arial Black'
      'Arial CE'
      'Arial CYR'
      'Arial Greek'
      'Arial Narrow'
      'Arial TUR'
      'Book Antiqua'
      'Bookman Old Style'
      'Century Gothic'
      'Century Schoolbook'
      'Comic Sans MS'
      'Courier'
      'Courier New'
      'Courier New Baltic'
      'Courier New CE'
      'Courier New CYR'
      'Courier New Greek'
      'Courier New TUR'
      'Estrangelo Edessa'
      'Fixedsys'
      'Franklin Gothic Medium'
      'Garamond'
      'Gautami'
      'Georgia'
      'Haettenschweiler'
      'Impact'
      'Latha'
      'Letter Gothic MT'
      'Lucida Console'
      'Lucida Sans Unicode'
      'Mangal'
      'Marlett'
      'Microsoft Sans Serif'
      'Modern'
      'MS Outlook'
      'MS Sans Serif'
      'MS Serif'
      'MT Extra'
      'MV Boli'
      'Palatino Linotype'
      'PROMT Helv Cyr'
      'PROMT Helv Cyr Spec'
      'PROMT Helv WE'
      'PROMT Helv WE Spec'
      'PROMT OEM Courier Cyr'
      'PROMT OEM Courier Cyr Spec'
      'PROMT OEM Helv Cyr'
      'PROMT OEM Helv Cyr Spec'
      'PROMT OEM Helv WE'
      'PROMT OEM Helv WE Spec'
      'PromtImperial'
      'Raavi'
      'Roman'
      'Script'
      'Shruti'
      'Small Fonts'
      'Sylfaen'
      'Symbol'
      'System'
      'Tahoma'
      'Terminal'
      'Times New Roman'
      'Times New Roman Baltic'
      'Times New Roman CE'
      'Times New Roman CYR'
      'Times New Roman Greek'
      'Times New Roman MT Extra Bold'
      'Times New Roman TUR'
      'Trebuchet MS'
      'Tunga'
      'Verdana'
      'Webdings'
      'Wingdings'
      'WST_Czec'
      'WST_Engl'
      'WST_Fren'
      'WST_Germ'
      'WST_Ital'
      'WST_Span'
      'WST_Swed')
    ItemHeight = 18
    MultiSelect = False
    ShowCheckBoxes = False
    Sorted = True
    ListStyle = lbFonts
    ThemeObject = 'default'
    TabOrder = 12
    WordWrap = False
  end
  object NgListBox4: TTeListBox
    Left = 344
    Top = 181
    Width = 111
    Height = 147
    Performance = kspDoubleBuffer
    AllowGrayed = False
    AlwaysShowScrlBar = False
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Color = 15657963
    Columns = 0
    Flat = True
    Items.Strings = (
      'clBlack'
      'clMaroon'
      'clGreen'
      'clOlive'
      'clNavy'
      'clPurple'
      'clTeal'
      'clGray'
      'clSilver'
      'clRed'
      'clLime'
      'clYellow'
      'clBlue'
      'clFuchsia'
      'clAqua'
      'clWhite'
      'clScrollBar'
      'clBackground'
      'clActiveCaption'
      'clInactiveCaption'
      'clMenu'
      'clWindow'
      'clWindowFrame'
      'clMenuText'
      'clWindowText'
      'clCaptionText'
      'clActiveBorder'
      'clInactiveBorder'
      'clAppWorkSpace'
      'clHighlight'
      'clHighlightText'
      'clBtnFace'
      'clBtnShadow'
      'clGrayText'
      'clBtnText'
      'clInactiveCaptionText'
      'clBtnHighlight'
      'cl3DDkShadow'
      'cl3DLight'
      'clInfoText'
      'clInfoBk'
      'clNone')
    ItemHeight = 18
    MultiSelect = False
    ShowCheckBoxes = True
    ListStyle = lbColors
    ThemeObject = 'default'
    TabOrder = 13
    WordWrap = False
  end
  object NgSpinButton1: TTeSpinButton
    Left = 439
    Top = 16
    Width = 15
    Height = 21
    Performance = kspNoBuffer
    Associate = NgEdit2
    SpinAlign = saRight
    DownGlyph.Data = {
      BA000000424DBA00000000000000420000002800000009000000060000000100
      1000030000007800000000000000000000000000000000000000007C0000E003
      00001F0000000042004200420042004200420042004200420000004200420042
      0042000000420042004200420000004200420042000000000000004200420042
      0000004200420000000000000000000000420042000000420000000000000000
      000000000000004200000042004200420042004200420042004200420000}
    Increment = 1
    Max = 100
    Min = 0
    Position = 0
    UpGlyph.Data = {
      BA000000424DBA00000000000000420000002800000009000000060000000100
      1000030000007800000000000000000000000000000000000000007C0000E003
      00001F0000000042004200420042004200420042004200420000004200000000
      0000000000000000000000420000004200420000000000000000000000420042
      0000004200420042000000000000004200420042000000420042004200420000
      004200420042004200000042004200420042004200420042004200420000}
  end
  object NgSpinButton2: TTeSpinButton
    Left = 439
    Top = 44
    Width = 15
    Height = 21
    Performance = kspNoBuffer
    Associate = NgEdit3
    SpinAlign = saRight
    DownGlyph.Data = {
      BA000000424DBA00000000000000420000002800000009000000060000000100
      1000030000007800000000000000000000000000000000000000007C0000E003
      00001F0000000042004200420042004200420042004200420000004200420042
      0042000000420042004200420000004200420042000000000000004200420042
      0000004200420000000000000000000000420042000000420000000000000000
      000000000000004200000042004200420042004200420042004200420000}
    EnabledSlider = False
    Increment = 1
    Max = 100
    Min = 0
    Position = 0
    UpGlyph.Data = {
      BA000000424DBA00000000000000420000002800000009000000060000000100
      1000030000007800000000000000000000000000000000000000007C0000E003
      00001F0000000042004200420042004200420042004200420000004200000000
      0000000000000000000000420000004200420000000000000000000000420042
      0000004200420042000000000000004200420042000000420042004200420000
      004200420042004200000042004200420042004200420042004200420000}
  end
  object SeSkinCheckBox1: TTeCheckBox
    Left = 212
    Top = 72
    Width = 109
    Height = 20
    Performance = kspDoubleBuffer
    OnClick = SeSkinCheckBox1Click
    Caption = 'Disable skin'
    AllowGrayed = False
    Alignment = kalLeftJustify
    Checked = False
    Spacing = 5
    State = kcbsUnChecked
    ThemeObject = 'default'
    TabOrder = 16
    Transparent = True
    WordWrap = False
  end
  object SeSkinForm1: TTeForm
    Animation.EffectKind = '[ RANDOM ] - Random selection'
    BorderIcons = [kbiClose, kbiSystemMenu, kbiMinimize, kbiMaximize, kbiRollup, kbiTray]
    BorderStyle = kbsStandard
    Caption = 'Controls #3'
    SystemMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TrayMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    Performance = ksfpNoBuffer
    StayOnTop = False
    StretchBackground = False
    WindowState = kwsNormal
    ThemeObject = 'default'
    Left = 164
    Top = 32
  end
end