ctrls.dfm

East make Tray Icon in delphi

            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000F0FBFF00A4A0
            A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00030303030303030303030303030303030303030303030000030303030303
            0303030303030303030303030303030300000303000000000000000000000000
            00000000000003030000030300F8070707070707070707070707070707000303
            0000030300F80707070707070707070707070707070003030000030300F80707
            070707070707070707070707070003030000030300F807070707070707070707
            07070707070003030000030300F8070707070707070707070707070707000303
            0000030300F80707070707070707070707070707070003030000030300F80707
            070707070707070707070707070003030000030300F807070707070707070707
            07070707070003030000030300F8070707070707070707070707070707000303
            0000030300F80707070707070707070707070707070003030000030300F80707
            070707070707070707070707070003030000030300F807070707070707070707
            07070707070003030000030300F8070707070707070707070707070707000303
            0000030300F807F8000000000000000000000000070003030000030300F807F8
            F8F8F8F8F8F8F8F8F8F8F800070003030000030300F807F8FFF8F8F8F8F8F8F8
            F8F8F800070003030000030300F807F8FF0707070707070707F8F80007000303
            0000030300F807F8FF0707070707070707F8F800070003030000030300F807F8
            FF0707070707070707F8F800070003030000030300F807F8FF07070707070707
            07F8F800070003030000030300F807F8FF0707070707070707F8F80007000303
            0000030300F807F8FF0707070707070707F8F800070003030000030300F807F8
            FF0707070707070707F8F800070003030000030300F807F8FFFFFFFFFFFFFFFF
            FFFFF800070003030000030300F807F8F8F8F8F8F8F8F8F8F8F8F8F807000303
            0000030300F80707070707070707070707070707070003030000030300F8F8F8
            F8F8F8F8F8F8F8F8F8F8F8F8F800030300000303000000000000000000000000
            0000000000000303000003030000000000000000000000000000000000000303
            0000030303030303030303030303030303030303030303030000030303030303
            030303030303030303030303030303030000}
          Visible = False
        end
        object rxSwitch1: TJvSwitch
          Left = 12
          Top = 44
          Width = 77
          Height = 77
          Caption = 'On'
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          StateOn = True
          TabOrder = 0
          TextPosition = tpRight
          OnOn = rxSwitchOn
          OnOff = rxSwitch1Off
        end
        object ComboBox4: TComboBox
          Left = 112
          Top = 48
          Width = 125
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 1
          OnChange = ComboBox4Change
          Items.Strings = (
            'None'
            'Left'
            'Right'
            'Above'
            'Below')
        end
        object ComboBox5: TComboBox
          Left = 112
          Top = 92
          Width = 125
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 2
          OnChange = ComboBox5Change
          Items.Strings = (
            'Switch.VBX'
            'After Dark')
        end
        object CheckBox5: TCheckBox
          Left = 112
          Top = 132
          Width = 97
          Height = 17
          Caption = 'Show Border'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = CheckBox5Click
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Edits'
      object GroupBox5: TGroupBox
        Left = 4
        Top = 0
        Width = 241
        Height = 60
        Caption = ' ComboEdit '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label13: TLabel
          Left = 9
          Top = 14
          Width = 197
          Height = 13
          Caption = 'Edit Box with a button (for special actions)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object ComboEdit1: TJvComboEdit
          Left = 8
          Top = 33
          Width = 225
          Height = 21
          ButtonFlat = False
          ButtonHint = 'Special action...|'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImageKind = ikEllipsis
          ParentFont = False
          TabOrder = 0
          OnButtonClick = ComboEdit1ButtonClick
        end
      end
      object GroupBox6: TGroupBox
        Left = 248
        Top = 0
        Width = 241
        Height = 77
        Caption = ' DateEdit and CalcEdit '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label14: TLabel
          Left = 8
          Top = 16
          Width = 225
          Height = 33
          AutoSize = False
          Caption = 
            'Provide masked typing and brings up calendar or calculator on bu' +
            'tton click'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object DateEdit1: TJvDateEdit
          Left = 8
          Top = 48
          Width = 93
          Height = 21
          ButtonHint = 'Calendar|'
          ButtonFlat = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object RxCalcEdit1: TJvCalcEdit
          Left = 112
          Top = 48
          Width = 121
          Height = 21
          AutoSize = False
          ButtonHint = 'Calculator|'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
      object GroupBox7: TGroupBox
        Left = 4
        Top = 60
        Width = 241
        Height = 61
        Caption = ' FileNameEdit '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object Label15: TLabel
          Left = 8
          Top = 14
          Width = 161
          Height = 13
          Caption = 'Direct typing or call to OpenDialog'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object FilenameEdit1: TJvFilenameEdit
          Left = 8
          Top = 33
          Width = 225
          Height = 21
          AddQuotes = False
          Filter = 'Pascal sources (*.pas)|*.pas|All files (*.*)|*.*'
          ButtonHint = 'Browse...|'
          ButtonFlat = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
      object GroupBox8: TGroupBox
        Left = 248
        Top = 80
        Width = 241
        Height = 65
        Caption = ' DirectoryEdit '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object Label16: TLabel
          Left = 8
          Top = 16
          Width = 165
          Height = 13
          AutoSize = False
          Caption = 'Direct typing or Browse'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
        end
        object DirectoryEdit1: TJvDirectoryEdit
          Left = 8
          Top = 36
          Width = 224
          Height = 21
          ButtonHint = 'Browse...|'
          ButtonFlat = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
      object GroupBox9: TGroupBox
        Left = 4
        Top = 121
        Width = 241
        Height = 79
        Caption = ' CurrencyEdit '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        object Label17: TLabel
          Left = 8
          Top = 14
          Width = 157
          Height = 13
          Caption = 'Edit Box for moneys and numbers'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText