mainform.dfm

East make Tray Icon in delphi

      Left = 12
      Top = 476
      Width = 72
      Height = 13
      Alignment = taRightJustify
      Anchors = [akLeft, akBottom]
      AutoSize = False
      Caption = 'BCB6 PFlags'
    end
    object lblGUID: TLabel
      Left = 8
      Top = 428
      Width = 76
      Height = 13
      Alignment = taRightJustify
      Anchors = [akLeft, akBottom]
      AutoSize = False
      Caption = 'Package GUID'
    end
    object ledName: TEdit
      Left = 92
      Top = 8
      Width = 400
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
      OnChange = ledNameChange
    end
    object rbtRuntime: TRadioButton
      Left = 575
      Top = 8
      Width = 69
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Runtime'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = rbtRuntimeClick
    end
    object rbtDesign: TRadioButton
      Left = 507
      Top = 8
      Width = 61
      Height = 17
      Alignment = taLeftJustify
      Anchors = [akTop, akRight]
      Caption = 'Design'
      TabOrder = 2
      OnClick = rbtDesignClick
    end
    object ledDescription: TEdit
      Left = 92
      Top = 32
      Width = 445
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 3
      OnChange = ledDescriptionChange
    end
    object ledC5PFlags: TEdit
      Left = 92
      Top = 448
      Width = 460
      Height = 21
      Anchors = [akLeft, akRight, akBottom]
      TabOrder = 4
      OnChange = ledC5PFlagsChange
    end
    object ledC6PFlags: TEdit
      Left = 92
      Top = 472
      Width = 460
      Height = 21
      Anchors = [akLeft, akRight, akBottom]
      TabOrder = 5
      OnChange = ledC6PFlagsChange
    end
    object pnlDepAndFiles: TPanel
      Left = 92
      Top = 56
      Width = 552
      Height = 365
      Anchors = [akLeft, akTop, akRight, akBottom]
      BevelOuter = bvNone
      TabOrder = 6
      object sptDepAndFiles: TSplitter
        Left = 0
        Top = 165
        Width = 552
        Height = 4
        Cursor = crVSplit
        Align = alTop
        OnMoved = sptDepAndFilesMoved
      end
      object jsgFiles: TJvStringGrid
        Left = 0
        Top = 169
        Width = 552
        Height = 196
        Align = alClient
        ColCount = 4
        DefaultColWidth = 40
        DefaultRowHeight = 18
        FixedCols = 0
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAlwaysShowEditor]
        PopupMenu = jpmFilesPopup
        TabOrder = 0
        OnGetEditText = jsgFilesGetEditText
        Alignment = taLeftJustify
        FixedFont.Charset = DEFAULT_CHARSET
        FixedFont.Color = clWindowText
        FixedFont.Height = -11
        FixedFont.Name = 'MS Sans Serif'
        FixedFont.Style = []
        OnExitCell = jsgDependenciesExitCell
        OnGetCellAlignment = jsgDependenciesGetCellAlignment
      end
      object jsgDependencies: TJvStringGrid
        Left = 0
        Top = 0
        Width = 552
        Height = 165
        Align = alTop
        ColCount = 3
        DefaultColWidth = 40
        DefaultRowHeight = 18
        FixedCols = 0
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAlwaysShowEditor]
        PopupMenu = jpmDepPopup
        TabOrder = 1
        OnGetEditText = jsgFilesGetEditText
        OnSetEditText = jsgDependenciesSetEditText
        Alignment = taLeftJustify
        FixedFont.Charset = DEFAULT_CHARSET
        FixedFont.Color = clWindowText
        FixedFont.Height = -11
        FixedFont.Name = 'MS Sans Serif'
        FixedFont.Style = []
        OnExitCell = jsgDependenciesExitCell
        OnGetCellAlignment = jsgDependenciesGetCellAlignment
      end
    end
    object btnAdvancedBCB: TButton
      Left = 555
      Top = 448
      Width = 89
      Height = 45
      Anchors = [akRight, akBottom]
      Caption = 'Advanced BCB'
      TabOrder = 7
      OnClick = btnAdvancedBCBClick
    end
    object btnCLXDescription: TButton
      Left = 544
      Top = 32
      Width = 97
      Height = 21
      Anchors = [akTop, akRight]
      Caption = 'CLX Description'
      TabOrder = 8
      OnClick = btnCLXDescriptionClick
    end
    object edtGUID: TEdit
      Left = 92
      Top = 424
      Width = 460
      Height = 21
      Anchors = [akLeft, akRight, akBottom]
      TabOrder = 9
      OnChange = edtGUIDChange
    end
    object btnGenerateGUID: TButton
      Left = 555
      Top = 424
      Width = 89
      Height = 21
      Anchors = [akRight, akBottom]
      Caption = 'Generate'
      TabOrder = 10
      OnClick = btnGenerateGUIDClick
    end
  end
  object jmmMain: TJvMainMenu
    Images = imlActive
    Style = msOffice
    DisabledImages = imlDisabled
    ImageMargin.Left = 1
    ImageMargin.Top = 1
    ImageMargin.Right = 1
    ImageMargin.Bottom = 1
    ImageSize.Height = 0
    ImageSize.Width = 0
    Left = 760
    Top = 116
    object mnuFile: TMenuItem
      Caption = '&File'
      object mnuOpen: TMenuItem
        Action = actNew
      end
      object mnuSave: TMenuItem
        Action = actSave
      end
      object mnuDeletePackage: TMenuItem
        Action = actDelete
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuAddFiles: TMenuItem
        Action = actAddFiles
      end
      object mnuGenPackages: TMenuItem
        Action = actGenerate
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Action = actExit
      end
    end
    object mnuNavigation: TMenuItem
      Caption = '&Navigation'
      object mnuPreviousPackage: TMenuItem
        Action = actPrevPackage
      end
      object mnuNextPackage: TMenuItem
        Action = actNextPackage
      end
    end
    object mnuView: TMenuItem
      Caption = '&View'
      object mnuMainToolbar: TMenuItem
        Action = actMainToolbar
      end
      object mnuParameters: TMenuItem
        Action = actOptions
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      object mnuKnown: TMenuItem
        Action = actKnown
      end
      object mnuAbout: TMenuItem
        Caption = '&About...'
        OnClick = mnuAboutClick
      end
    end
  end
  object aclActions: TActionList
    Images = imlActive
    Left = 732
    Top = 116
    object actExit: TAction
      Category = 'File'
      Caption = '&Exit'
      Hint = 'Exit|Exit this application'
      ImageIndex = 5
      OnExecute = actExitExecute
    end
    object actSave: TAction
      Category = 'File'