gifmain.dfm

jvcl driver development envionment

        Top = 10
        Width = 58
        Height = 15
        AutoSize = False
        Caption = '0'
      end
      object Bevel5: TBevel
        Left = 108
        Top = 32
        Width = 69
        Height = 21
      end
      object FrameH: TLabel
        Left = 113
        Top = 35
        Width = 58
        Height = 15
        AutoSize = False
        Caption = '0'
      end
      object Label11: TLabel
        Left = 6
        Top = 37
        Width = 72
        Height = 13
        Caption = 'Image Height:  '
      end
      object Label9: TLabel
        Left = 6
        Top = 64
        Width = 27
        Height = 13
        Caption = 'Left:  '
        FocusControl = ImageLeft
      end
      object Label10: TLabel
        Left = 6
        Top = 92
        Width = 28
        Height = 13
        Caption = 'Top:  '
        FocusControl = ImageTop
      end
      object Label12: TLabel
        Left = 6
        Top = 120
        Width = 95
        Height = 13
        Caption = 'Duration (1/100 s):  '
        FocusControl = DelayTime
      end
      object Label13: TLabel
        Left = 6
        Top = 144
        Width = 85
        Height = 13
        Caption = 'Undraw Method:  '
        FocusControl = DisposalCombo
      end
      object TransColorLabel: TJvLabel
        Left = 6
        Top = 216
        Width = 96
        Height = 14
        Caption = 'Transparent Color:  '
        Enabled = False
        FocusControl = TransColor
        AutoOpenURL = False
        HotTrackFont.Charset = DEFAULT_CHARSET
        HotTrackFont.Color = clWindowText
        HotTrackFont.Height = -11
        HotTrackFont.Name = 'MS Sans Serif'
        HotTrackFont.Style = []
        ImageIndex = 0
      end
      object FrameComment: TMemo
        Left = 1
        Top = 254
        Width = 180
        Height = 71
        ScrollBars = ssVertical
        TabOrder = 9
        OnChange = CommentChange
      end
      object ImageLeft: TEdit
        Left = 108
        Top = 60
        Width = 55
        Height = 21
        CharCase = ecUpperCase
        MaxLength = 5
        TabOrder = 0
        Text = '0'
        OnChange = TopLeftChange
      end
      object ImageLeftBtn: TUpDown
        Left = 163
        Top = 60
        Width = 15
        Height = 21
        Associate = ImageLeft
        Max = 32767
        TabOrder = 1
      end
      object ImageTop: TEdit
        Left = 108
        Top = 88
        Width = 55
        Height = 21
        CharCase = ecUpperCase
        MaxLength = 5
        TabOrder = 2
        Text = '0'
        OnChange = TopLeftChange
      end
      object ImageTopBtn: TUpDown
        Left = 163
        Top = 88
        Width = 15
        Height = 21
        Associate = ImageTop
        Max = 32767
        TabOrder = 3
      end
      object DelayTime: TEdit
        Left = 108
        Top = 116
        Width = 55
        Height = 21
        CharCase = ecUpperCase
        MaxLength = 10
        TabOrder = 4
        Text = '0'
        OnChange = DelayTimeChange
      end
      object DelayTimeBtn: TUpDown
        Left = 163
        Top = 116
        Width = 15
        Height = 21
        Associate = DelayTime
        Max = 32767
        TabOrder = 5
      end
      object DisposalCombo: TComboBox
        Left = 6
        Top = 160
        Width = 171
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 6
        OnChange = DisposalComboChange
        Items.Strings = (
          'Undefined'
          'Leave'
          'Restore Background'
          'Restore Previous')
      end
      object TransColor: TJvComboEdit
        Left = 124
        Top = 212
        Width = 52
        Height = 21
        ButtonWidth = 17
        Color = clBlack
        DirectInput = False
        ImageKind = ikEllipsis
        TabOrder = 8
        OnButtonClick = TransColorButtonClick
      end
      object TransBox: TCheckBox
        Left = 6
        Top = 191
        Width = 99
        Height = 17
        Caption = 'Transparency  '
        TabOrder = 7
        OnClick = TransBoxClick
      end
    end
  end
  object Progress: TProgressBar
    Left = 169
    Top = 403
    Width = 189
    Height = 13
    TabOrder = 7
  end
  object ImageScroll: TScrollBar
    Left = 139
    Top = 46
    Width = 16
    Height = 345
    Enabled = False
    Kind = sbVertical
    LargeChange = 4
    Max = 1
    PageSize = 0
    TabOrder = 5
    OnChange = ImageScrollChange
  end
  object Frame1: TPanel
    Left = 12
    Top = 48
    Width = 121
    Height = 69
    BevelOuter = bvLowered
    ParentColor = True
    TabOrder = 0
    object PaintBox1: TPaintBox
      Left = 1
      Top = 1
      Width = 119
      Height = 67
      Align = alClient
      OnMouseDown = PaintBoxMouseDown
      OnPaint = PaintBoxPaint
    end
  end
  object Frame2: TPanel
    Tag = 1
    Left = 12
    Top = 135
    Width = 121
    Height = 69
    BevelOuter = bvLowered
    ParentColor = True
    TabOrder = 1
    object PaintBox2: TPaintBox
      Tag = 1
      Left = 1
      Top = 1
      Width = 119
      Height = 67
      Align = alClient
      OnMouseDown = PaintBoxMouseDown
      OnPaint = PaintBoxPaint
    end
  end
  object Frame3: TPanel
    Tag = 2
    Left = 12
    Top = 222
    Width = 121
    Height = 69
    BevelOuter = bvLowered
    ParentColor = True
    TabOrder = 2
    object PaintBox3: TPaintBox
      Tag = 2
      Left = 1
      Top = 1
      Width = 119
      Height = 67
      Align = alClient
      OnMouseDown = PaintBoxMouseDown
      OnPaint = PaintBoxPaint
    end
  end
  object Frame4: TPanel
    Tag = 3
    Left = 12
    Top = 309
    Width = 121
    Height = 69
    BevelOuter = bvLowered
    ParentColor = True
    TabOrder = 3
    object PaintBox4: TPaintBox
      Tag = 3
      Left = 1
      Top = 1
      Width = 119
      Height = 67
      Align = alClient
      OnMouseDown = PaintBoxMouseDown
      OnPaint = PaintBoxPaint
    end
  end
  object Storage: TJvFormStorage
    AppStoragePath = '%FORM_NAME%\'
    PreventResize = True
    StoredProps.Strings = (
      'ThumbnailsBox.Checked'
      'FlatBtns.Checked'
      'AlwaysOnTop.Checked')
    StoredValues = <>
    Left = 8
    Top = 32
  end
  object ToolbarImages: TImageList
    DrawingStyle = dsTransparent
    Height = 15
    ImageType = itMask
    Left = 36
    Top = 32
    Bitmap = {
      494C01010E001300040010000F00FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004B0000000100200000000000004B
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000