jvgradientcaptionform.dfm

East make Tray Icon in delphi

object GradCaptionsEditor: TGradCaptionsEditor
  Left = 391
  Top = 254
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Caption Editor'
  ClientHeight = 210
  ClientWidth = 393
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ApplyButton: TButton
    Left = 312
    Top = 176
    Width = 75
    Height = 25
    Caption = '&Apply'
    TabOrder = 4
    OnClick = ApplyButtonClick
  end
  object CancelButton: TButton
    Left = 232
    Top = 176
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object OkButton: TButton
    Left = 152
    Top = 176
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 2
    OnClick = OkButtonClick
  end
  object GroupBox2: TGroupBox
    Left = 152
    Top = 4
    Width = 233
    Height = 157
    Caption = 'Caption properties'
    TabOrder = 1
    object Label1: TLabel
      Left = 12
      Top = 21
      Width = 66
      Height = 13
      Caption = 'Caption &Text: '
      FocusControl = CaptionText
    end
    object Label3: TLabel
      Left = 12
      Top = 46
      Width = 71
      Height = 13
      Caption = '&Inactive Color: '
      FocusControl = CaptionInactiveColor
    end
    object Label2: TLabel
      Left = 12
      Top = 70
      Width = 69
      Height = 13
      Caption = 'Caption &Font:  '
      FocusControl = CaptionInactiveColor
    end
    object CaptionText: TEdit
      Left = 88
      Top = 18
      Width = 133
      Height = 21
      TabOrder = 0
      OnChange = CaptionTextChange
      OnExit = ControlExit
    end
    object CaptionInactiveColor: TComboBox
      Left = 88
      Top = 43
      Width = 133
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnDblClick = CaptionInactiveColorDblClick
      OnExit = ControlExit
    end
    object CaptionParentFont: TCheckBox
      Left = 88
      Top = 95
      Width = 137
      Height = 17
      Caption = '&Parent Font'
      TabOrder = 3
      OnClick = CheckBoxClick
      OnExit = ControlExit
    end
    object CaptionGlueNext: TCheckBox
      Left = 88
      Top = 115
      Width = 137
      Height = 17
      Caption = '&Glue Next Caption'
      TabOrder = 5
      OnClick = CheckBoxClick
      OnExit = ControlExit
    end
    object CaptionVisible: TCheckBox
      Left = 88
      Top = 135
      Width = 137
      Height = 17
      Caption = '&Visible'
      TabOrder = 4
      OnClick = CheckBoxClick
      OnExit = ControlExit
    end
    object CaptionFont: TJvComboEdit
      Left = 88
      Top = 66
      Width = 133
      Height = 21
      ButtonWidth = 17
      ImageKind = ikEllipsis
      TabOrder = 2
      OnButtonClick = CaptionFontButtonClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 4
    Width = 137
    Height = 157
    Caption = '&Captions'
    TabOrder = 0
    object NewButton: TButton
      Left = 8
      Top = 124
      Width = 57
      Height = 25
      Caption = '&New'
      TabOrder = 1
      OnClick = NewButtonClick
    end
    object DeleteButton: TButton
      Left = 72
      Top = 124
      Width = 57
      Height = 25
      Caption = '&Delete'
      TabOrder = 0
      OnClick = DeleteButtonClick
    end
    object CaptionList: TListBox
      Left = 8
      Top = 16
      Width = 121
      Height = 105
      Anchors = [akLeft, akTop, akRight, akBottom]
      ItemHeight = 13
      TabOrder = 2
    end
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 24
    Top = 80
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Left = 64
    Top = 80
  end
  object GradientCaption: TJvGradientCaption
    Captions = <>
    FormCaption = 'Caption Editor'
    Left = 24
    Top = 24
  end
  object FormStorage: TJvFormStorage
    AppStorage = AppStorage
    AppStoragePath = '%FORM_NAME%\'
    StoredValues = <
      item
      end>
    Left = 64
    Top = 24
  end
  object AppStorage: TJvAppRegistryStorage
    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
    Root = '%NONE%'
    SubStorages = <>
    Left = 104
    Top = 24
  end
end