hotspoteditor.dfm

来自「tms25_vcl TMS公司出品的与INTRAWEBSH相关控件」· DFM 代码 · 共 976 行 · 第 1/3 页

object frmHSIEditor: TfrmHSIEditor
  Left = 513
  Top = 152
  Width = 600
  Height = 496
  Caption = 'HotSpotImage editor'
  Color = clBtnFace
  Constraints.MinHeight = 458
  Constraints.MinWidth = 540
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object pnImage: TPanel
    Left = 0
    Top = 33
    Width = 592
    Height = 397
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 1
    object shapeSep: TShape
      Left = 0
      Top = 391
      Width = 588
      Height = 2
      Align = alBottom
    end
    object Splitter: TSplitter
      Left = 290
      Top = 0
      Width = 4
      Height = 391
      Cursor = crHSplit
      AutoSnap = False
      Color = 13160664
      MinSize = 233
      ParentColor = False
      ResizeStyle = rsLine
    end
    object pnContainer: TPanel
      Left = 294
      Top = 0
      Width = 294
      Height = 391
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object pnProperties: TPanel
        Left = 0
        Top = 0
        Width = 294
        Height = 391
        Align = alClient
        BevelInner = bvLowered
        Enabled = False
        TabOrder = 0
        object lblHint: TLabel
          Left = 7
          Top = 339
          Width = 22
          Height = 13
          Anchors = [akLeft, akBottom]
          Caption = 'Hint:'
        end
        object lblName: TLabel
          Left = 16
          Top = 30
          Width = 37
          Height = 13
          Caption = '&Name:'
          FocusControl = edtName
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblID: TLabel
          Left = 8
          Top = 59
          Width = 18
          Height = 13
          Caption = '&ID:'
          FocusControl = edtID
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lbAngle: TLabel
          Left = 86
          Top = 59
          Width = 37
          Height = 13
          Caption = '&Angle:'
          FocusControl = spAngle
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object pnTitle: TPanel
          Left = 2
          Top = 2
          Width = 290
          Height = 18
          Align = alTop
          BevelOuter = bvNone
          Caption = 'HotSpot Properties'
          Color = clInactiveCaption
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clCaptionText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object txtHint: TMemo
          Left = 33
          Top = 340
          Width = 254
          Height = 43
          Anchors = [akLeft, akRight, akBottom]
          ScrollBars = ssVertical
          TabOrder = 7
        end
        object pnHover: TPanel
          Left = 2
          Top = 210
          Width = 290
          Height = 120
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 6
          object lbHover: TLabel
            Left = 8
            Top = 10
            Width = 78
            Height = 13
            Caption = 'Hover picture'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object pnHoverImage: TPanel
            Left = 6
            Top = 33
            Width = 278
            Height = 81
            Anchors = [akLeft, akTop, akRight, akBottom]
            BevelOuter = bvLowered
            TabOrder = 0
            object imgHover: TImage
              Left = 1
              Top = 1
              Width = 276
              Height = 79
              Align = alClient
              Center = True
              PopupMenu = pmHoverImage
            end
          end
          object btLoadHover: TButton
            Left = 226
            Top = 7
            Width = 57
            Height = 21
            Anchors = [akTop, akRight]
            Caption = 'Load...'
            TabOrder = 1
            OnClick = btLoadHoverClick
          end
        end
        object pnClick: TPanel
          Left = 2
          Top = 90
          Width = 290
          Height = 120
          Anchors = [akLeft, akTop, akRight]
          TabOrder = 5
          object lblClick: TLabel
            Left = 8
            Top = 10
            Width = 86
            Height = 13
            Caption = 'Clicked picture'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object pnClickImage: TPanel
            Left = 6
            Top = 32
            Width = 278
            Height = 76
            Anchors = [akLeft, akTop, akRight, akBottom]
            BevelOuter = bvLowered
            TabOrder = 1
            object imgClick: TImage
              Left = 1
              Top = 1
              Width = 276
              Height = 74
              Align = alClient
              Center = True
              PopupMenu = pmClickImage
            end
          end
          object btLoadClick: TButton
            Left = 226
            Top = 6
            Width = 57
            Height = 21
            Anchors = [akTop, akRight]
            Caption = 'Load...'
            TabOrder = 0
            OnClick = btLoadClickClick
          end
        end
        object edtName: TEdit
          Left = 80
          Top = 24
          Width = 121
          Height = 21
          Hint = 'Enter the Name of the HotSpot'
          MaxLength = 50
          TabOrder = 1
          OnMouseUp = edtNameMouseUp
        end
        object edtID: TEdit
          Left = 29
          Top = 56
          Width = 30
          Height = 21
          Hint = 'Enter the ID of the HotSpot'
          MaxLength = 10
          TabOrder = 2
          OnKeyPress = edtIDKeyPress
          OnMouseUp = edtIDMouseUp
        end
        object spAngle: TSpinEdit
          Left = 128
          Top = 56
          Width = 47
          Height = 22
          Hint = 'Enter the Angle of the HotSpot'
          MaxLength = 3
          MaxValue = 180
          MinValue = -180
          TabOrder = 3
          Value = 0
          OnChange = spAngleChange
        end
        object ckClip: TCheckBox
          Left = 233
          Top = 58
          Width = 57
          Height = 17
          Hint = 
            'Check if you want the shape of the hotspot to clip the hover&cli' +
            'ck images'
          Anchors = [akTop, akRight]
          Caption = '&Clipped'
          Checked = True
          State = cbChecked
          TabOrder = 4
          OnClick = ckClipClick
        end
      end
    end
    object pnBackground: TPanel
      Left = 0
      Top = 0
      Width = 290
      Height = 391
      Align = alLeft
      BevelOuter = bvNone
      Constraints.MinWidth = 290
      TabOrder = 1
      object pnLoadBack: TPanel
        Left = 0
        Top = 350
        Width = 290
        Height = 41
        Align = alBottom
        BevelInner = bvRaised
        BevelOuter = bvNone
        TabOrder = 1
        object lbPozx: TLabel
          Left = 19
          Top = 5
          Width = 6
          Height = 13
          Caption = '0'
        end
        object lbPozy: TLabel
          Left = 19
          Top = 23
          Width = 6
          Height = 13
          Caption = '0'
        end
        object lbnX: TLabel
          Left = 7