jvqformpropertiesform.xfm

East make Tray Icon in delphi

object JvFormPropsDlg: TJvFormPropsDlg
  Left = 200
  Top = 111
  Width = 434
  Height = 476
  VertScrollBar.Range = 262
  HorzScrollBar.Range = 334
  ActiveControl = ActiveCtrlBox
  BorderIcons = [biSystemMenu]
  BorderStyle = fbsSingle
  Caption = 'Form Storage Designer'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000FF
    FFF000000FFFFF000000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000008888800000000000000000
    0000000008800088000000000000000000000000880FFF088000000000000000
    0770000080FFFFF080000000000000000770000080FFFFF08000000000000000
    07700000880FFF08800000000000000000000000088000880000000000000000
    0000000000888880000000000000000000000000000000000000000000000000
    0000000007000007000000000000000777777777777777777777777000000000
    0000000000000000000000000000000000000000070000070000000000000000
    0000000000700070000000000000000000000000000777000000000000000000
    000000000000000000000000000000000000000000000000000000000000C1F8
    3F03F3FC7F9FF1FC7F1FF8FC7E3FFC7C7C7FFE3C78FFFF1C71FFFF8C63FFFFC4
    47FFFFE00FFFFFF01FFFFFF83FFFC000000F8000000780000007800000078000
    0007800000078000000780000007800000078000000780000007800000078000
    000780000007C000000F8120021F8130061FFFF80FFFFFFC1FFFFFFFFFFF}
  ParentFont = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  object Bevel1: TBevel
    Left = 4
    Top = 90
    Width = 425
    Height = 348
    Anchors = [akLeft, akTop, akRight, akBottom]
    Shape = bsFrame
  end
  object UpBtn: TSpeedButton
    Left = 353
    Top = 305
    Width = 25
    Height = 25
    Anchors = [akRight, akBottom]
    Glyph.Data = {
      E2000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3000333333333333300033330000033330003333066603333000333306660333
      3000333306660333300030000666000030003306666666033000333066666033
      3000333306660333300033333060333330003333330333333000333333333333
      3000}
    OnClick = UpBtnClick
  end
  object DownBtn: TSpeedButton
    Left = 386
    Top = 305
    Width = 25
    Height = 25
    Anchors = [akRight, akBottom]
    Glyph.Data = {
      E2000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3000333333333333300033333303333330003333306033333000333306660333
      3000333066666033300033066666660330003000066600003000333306660333
      3000333306660333300033330666033330003333000003333000333333333333
      3000}
    OnClick = DownBtnClick
  end
  object Label30: TLabel
    Left = 16
    Top = 103
    Width = 81
    Height = 13
    Caption = '&Components   '
    Font.Color = clBlack
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label31: TLabel
    Left = 265
    Top = 103
    Width = 69
    Height = 13
    Caption = '&Properties   '
    Font.Color = clBlack
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 249
    Width = 110
    Height = 13
    Caption = '&Stored Properties   '
    Font.Color = clBlack
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
  end
  object FormBox: TGroupBox
    Left = 4
    Top = 2
    Width = 425
    Height = 71
    Anchors = [akLeft, akTop, akRight]
    Caption = ' Form Properties '
    Font.Color = clText
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object ActiveCtrlBox: TCheckBox
      Left = 12
      Top = 16
      Width = 129
      Height = 17
      Caption = ' Acti&ve Control'
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = ListClick
    end
    object SizeBox: TCheckBox
      Left = 232
      Top = 16
      Width = 137
      Height = 17
      Caption = 'Form &Size'
      Checked = True
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 2
      OnClick = ListClick
    end
    object StateBox: TCheckBox
      Left = 12
      Top = 40
      Width = 136
      Height = 17
      Caption = ' &Window State'
      Checked = True
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 1
      OnClick = ListClick
    end
    object LocationBox: TCheckBox
      Left = 232
      Top = 40
      Width = 137
      Height = 17
      Caption = 'Form &Location'
      Checked = True
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 3
      OnClick = ListClick
    end
  end
  object AddButton: TButton
    Left = 179
    Top = 171
    Width = 77
    Height = 25
    Anchors = [akTop]
    Caption = '&Add'
    TabOrder = 2
    OnClick = AddButtonClick
  end
  object DeleteButton: TButton
    Left = 344
    Top = 367
    Width = 77
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Delete'
    TabOrder = 5
    OnClick = DeleteButtonClick
  end
  object ClearButton: TButton
    Left = 344
    Top = 397
    Width = 77
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Cl&ear'
    TabOrder = 6
    OnClick = ClearButtonClick
  end
  object OkBtn: TButton
    Left = 257
    Top = 445
    Width = 77
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 7
  end
  object CancelBtn: TButton
    Left = 345
    Top = 445
    Width = 77
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 8
  end
  object ComponentsList: TListBox
    Left = 15
    Top = 121
    Width = 150
    Height = 120
    ItemHeight = 13
    Sorted = True
    TabOrder = 1
    OnClick = ListClick
  end
  object PropertiesList: TListBox
    Left = 265
    Top = 121
    Width = 150
    Height = 120
    Anchors = [akTop, akRight]
    ItemHeight = 13
    Sorted = True
    TabOrder = 3
    OnDblClick = PropertiesListDblClick
  end
  object StoredList: TListBox
    Left = 16
    Top = 270
    Width = 322
    Height = 160
    Anchors = [akLeft, akTop, akRight, akBottom]
    ItemHeight = 13
    TabOrder = 4
    OnClick = StoredListClick
  end
end