formani.dfm

themeengine6源码

object frmAniDemo: TfrmAniDemo
  Left = 541
  Top = 284
  AutoScroll = False
  BorderIcons = [biMinimize, biMaximize]
  Caption = 'Animation Form'
  ClientHeight = 193
  ClientWidth = 281
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 172
    Top = 60
    Width = 48
    Height = 13
    Caption = 'Time (ms):'
    Transparent = True
  end
  object SeSkinButton1: TTeButton
    Left = 172
    Top = 18
    Width = 95
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton1Click
    BlackAndWhiteGlyph = False
    Caption = 'Show From'
    ThemeObject = 'default'
    TabOrder = 0
    Transparent = True
    WordWrap = False
  end
  object SeSkinButton2: TTeButton
    Left = 96
    Top = 150
    Width = 95
    Height = 25
    Performance = kspDoubleBuffer
    OnClick = SeSkinButton2Click
    BlackAndWhiteGlyph = False
    Caption = 'Close'
    ThemeObject = 'default'
    TabOrder = 1
    Transparent = True
    WordWrap = False
  end
  object edTime: TTeEdit
    Left = 172
    Top = 76
    Width = 93
    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 = 2
    Text = '600'
    ThemeObject = 'default'
  end
  object SeRadioGroup1: TTeRadioGroup
    Left = 8
    Top = 16
    Width = 149
    Height = 103
    Performance = kspNoBuffer
    CaptionMargin = 12
    Caption = 'Animation Kind:'
    CheckBoxAlignment = kalLeftJustify
    ThemeObject = 'default'
    Transparent = True
    TabOrder = 3
    UseCheckBox = False
    Columns = 2
    ItemIndex = 2
    Items.Strings = (
      'None'
      'Random'
      'Fade'
      'Slide'
      'Rect')
  end
  object SeSkinForm1: TTeForm
    Animation.EffectKind = '[ RANDOM ] - Random selection'
    BorderIcons = [kbiClose, kbiSystemMenu, kbiMinimize, kbiMaximize, kbiRollup, kbiTray]
    BorderStyle = kbsStandard
    Caption = 'Animation Form'
    SystemMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    TrayMenuOptions.Animation.EffectKind = '[ RANDOM ] - Random selection'
    Performance = ksfpNoBuffer
    StayOnTop = False
    StretchBackground = False
    WindowState = kwsNormal
    ThemeObject = 'default'
    Left = 214
    Top = 114
  end
end