PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/KTMBEVEL/UNIT1.DFM/UNIT1.txt

Text File | 1997-11-18 | 8.3 KB | 450 lines

object Form1: TForm1
  Left = 296
  Top = 250
  BorderStyle = bsSingle
  Caption = 'ktMultiBevel Demo'
  ClientHeight = 362
  ClientWidth = 533
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnPaint = FormPaint
  TextHeight = 13
  object ktMultiBevel2: TktMultiBevel
    Left = 0
    Top = 0
    Width = 533
    Height = 362
    Align = alClient
    BevelInner = bstLowered
    BevelOuter = bstRaised
    BorderWidth = 3
    Color = 33023
    ColorHighlight = 11261439
    ColorShadow = 21672
    ColorDensity = 100
    EdgeSize = 10
    ShadowDensity = 60
    ShadowStyle = ssMask
    Shape = bspPortrait
  end
  object Exit: TLabel
    Left = 325
    Top = 318
    Width = 17
    Height = 13
    Caption = 'Exit'
    Transparent = True
  end
  object ktMultiBevel1: TktMultiBevel
    Left = 15
    Top = 10
    Width = 251
    Height = 341
    BevelInner = bstLowered
    BevelOuter = bstRaised
    BevelWidth = 3
    BorderWidth = 8
    Color = 16744576
    ColorHighlight = 16766421
    ColorShadow = 11031636
    ColorDensity = 100
    EdgeSize = 40
    ShadowDensity = 60
    Shadowed = True
    ShadowOffsetX = 8
    ShadowOffsetY = 8
  end
  object Label1: TLabel
    Left = 285
    Top = 250
    Width = 55
    Height = 13
    Caption = 'BevelWidth'
    Transparent = True
  end
  object Label2: TLabel
    Left = 285
    Top = 280
    Width = 59
    Height = 13
    Caption = 'BorderWidth'
    Transparent = True
  end
  object Label3: TLabel
    Left = 410
    Top = 230
    Width = 24
    Height = 13
    Caption = 'Color'
    Transparent = True
  end
  object Label5: TLabel
    Left = 410
    Top = 260
    Width = 65
    Height = 13
    Caption = 'ColorHighlight'
    Transparent = True
  end
  object Label6: TLabel
    Left = 410
    Top = 290
    Width = 63
    Height = 13
    Caption = 'ColorShadow'
    Transparent = True
  end
  object Label7: TLabel
    Left = 55
    Top = 125
    Width = 51
    Height = 13
    Caption = 'Shadowed'
    Transparent = True
  end
  object Label8: TLabel
    Left = 55
    Top = 150
    Width = 74
    Height = 13
    Caption = 'ShadowOffsetX'
    Transparent = True
  end
  object Label9: TLabel
    Left = 55
    Top = 180
    Width = 74
    Height = 13
    Caption = 'ShadowOffsetY'
    Transparent = True
  end
  object Label10: TLabel
    Left = 55
    Top = 70
    Width = 63
    Height = 13
    Caption = 'ShadowColor'
    Transparent = True
  end
  object Label11: TLabel
    Left = 55
    Top = 219
    Width = 62
    Height = 13
    Caption = 'ShadowStyle'
    Transparent = True
  end
  object Label4: TLabel
    Left = 55
    Top = 40
    Width = 45
    Height = 13
    Caption = 'EdgeSize'
    Transparent = True
  end
  object ktBevelButton1: TktBevelButton
    Left = 291
    Top = 307
    Width = 85
    Height = 35
    Hint = 'This is a ktBevelButton'
    BevelInner = bstLowered
    BevelOuter = bstNone
    BevelWidth = 2
    BorderWidth = 4
    Color = 33023
    ColorHighlight = 11261439
    ColorShadow = 21672
    ColorDensity = 100
    EdgeSize = 10
    ShadowDensity = 60
    Shadowed = True
    ShadowOffsetX = 4
    ShadowOffsetY = 4
    OnClick = ktBevelButton1Click
    OnEnter = ktBevelButton1Enter
    OnExit = ktBevelButton1Exit
    OnMouseDown = ktBevelButton1MouseDown
  end
  object Label12: TLabel
    Left = 55
    Top = 100
    Width = 74
    Height = 13
    Caption = 'ShadowDensity'
    Transparent = True
  end
  object Label13: TLabel
    Left = 410
    Top = 320
    Width = 59
    Height = 13
    Caption = 'ColorDensity'
    Transparent = True
  end
  object SpinEdit1: TSpinEdit
    Left = 350
    Top = 245
    Width = 41
    Height = 22
    EditorEnabled = False
    MaxValue = 1000
    MinValue = 1
    TabOrder = 1
    Value = 3
    OnChange = SpinEdit1Change
  end
  object SpinEdit2: TSpinEdit
    Left = 350
    Top = 275
    Width = 41
    Height = 22
    EditorEnabled = False
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
    Value = 8
    OnChange = SpinEdit2Change
  end
  object Panel1: TPanel
    Left = 480
    Top = 225
    Width = 41
    Height = 22
    BorderStyle = bsSingle
    Color = 16744576
    TabOrder = 5
    OnClick = Panel1Click
  end
  object Panel2: TPanel
    Left = 480
    Top = 255
    Width = 41
    Height = 22
    BorderStyle = bsSingle
    Color = 16766421
    TabOrder = 6
    OnClick = Panel2Click
  end
  object Panel3: TPanel
    Left = 480
    Top = 285
    Width = 41
    Height = 22
    BorderStyle = bsSingle
    Color = 11031636
    TabOrder = 7
    OnClick = Panel3Click
  end
  object RadioGroup1: TRadioGroup
    Left = 400
    Top = 7
    Width = 121
    Height = 136
    Caption = 'Shape'
    ItemIndex = 3
    Items.Strings = (
      'BottomLine'
      'LeftLine'
      'Portrait'
      'Rect'
      'RightLine'
      'TopLine')
    TabOrder = 0
    OnClick = RadioGroup1Click
  end
  object RadioGroup2: TRadioGroup
    Left = 275
    Top = 92
    Width = 116
    Height = 77
    Caption = 'BevelOuter'
    ItemIndex = 2
    Items.Strings = (
      'Lowered'
      'None'
      'Raised')
    TabOrder = 3
    OnClick = RadioGroup2Click
  end
  object RadioGroup3: TRadioGroup
    Left = 275
    Top = 7
    Width = 116
    Height = 77
    Caption = 'BevelInner'
    ItemIndex = 0
    Items.Strings = (
      'Lowered'
      'None'
      'Raised')
    TabOrder = 4
    OnClick = RadioGroup3Click
  end
  object RadioGroup4: TRadioGroup
    Left = 400
    Top = 150
    Width = 121
    Height = 61
    Caption = 'ColorFixed'
    ItemIndex = 0
    Items.Strings = (
      'True'
      'False')
    TabOrder = 8
    OnClick = RadioGroup4Click
  end
  object CheckBox1: TCheckBox
    Left = 149
    Top = 125
    Width = 13
    Height = 13
    Alignment = taLeftJustify
    Caption = 'CheckBox1'
    State = cbChecked
    TabOrder = 9
    OnClick = CheckBox1Click
  end
  object SpinEdit3: TSpinEdit
    Left = 135
    Top = 145
    Width = 41
    Height = 22
    EditorEnabled = False
    MaxValue = 0
    MinValue = 0
    TabOrder = 10
    Value = 8
    OnChange = SpinEdit3Change
  end
  object SpinEdit4: TSpinEdit
    Left = 135
    Top = 175
    Width = 41
    Height = 22
    EditorEnabled = False
    MaxValue = 0
    MinValue = 0
    TabOrder = 11
    Value = 8
    OnChange = SpinEdit4Change
  end
  object Panel4: TPanel
    Left = 135
    Top = 65
    Width = 41
    Height = 22
    BorderStyle = bsSingle
    Color = clGray
    TabOrder = 12
    OnClick = Panel4Click
  end
  object ComboBox1: TComboBox
    Left = 135
    Top = 215
    Width = 91
    Height = 21
    Style = csDropDownList
    DropDownCount = 6
    ItemHeight = 13
    Items.Strings = (
      'ssBlack'
      'ssCopy'
      'ssDithered'
      'ssMask'
      'ssMaskNotPen'
      'ssMerge'
      'ssMergeNotPen'
      'ssNot'
      'ssNotAND'
      'ssNotCopy'
      'ssNotMask'
      'ssNotMerge'
      'ssNotOR'
      'ssNotXor'
      'ssTransparent'
      'ssWhite'
      'ssXor')
    TabOrder = 13
    OnChange = ComboBox1Change
  end
  object RadioGroup5: TRadioGroup
    Left = 55
    Top = 242
    Width = 116
    Height = 77
    Caption = 'Transparence'
    ItemIndex = 0
    Items.Strings = (
      'None'
      'Semi'
      'Transparent')
    TabOrder = 14
    OnClick = RadioGroup5Click
  end
  object SpinEdit5: TSpinEdit
    Left = 135
    Top = 35
    Width = 41
    Height = 22
    EditorEnabled = False
    Increment = 5
    MaxValue = 0
    MinValue = 0
    TabOrder = 15
    Value = 40
    OnChange = SpinEdit5Change
  end
  object SpinEdit6: TSpinEdit
    Left = 135
    Top = 95
    Width = 41
    Height = 22
    Increment = 5
    MaxValue = 100
    MinValue = 0
    TabOrder = 16
    Value = 60
    OnChange = SpinEdit6Change
  end
  object SpinEdit7: TSpinEdit
    Left = 480
    Top = 315
    Width = 41
    Height = 22
    Increment = 5
    MaxValue = 100
    MinValue = 0
    TabOrder = 17
    Value = 100
    OnChange = SpinEdit7Change
  end
  object RadioGroup6: TRadioGroup
    Left = 275
    Top = 175
    Width = 121
    Height = 61
    Caption = 'DensityDepended'
    ItemIndex = 0
    Items.Strings = (
      'True'
      'False')
    TabOrder = 18
    OnClick = RadioGroup6Click
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Color = 16760286
    Options = [cdFullOpen]
    Left = 445
    Top = 225
  end
end