optionsfrm.dfm

jvcl driver development envionment

            'clAppWorkSpace=Application Workspace'
            'clHighlight=Highlight'
            'clHighlightText=Highlight Text'
            'clBtnFace=Button Face'
            'clBtnShadow=Button Shadow'
            'clGrayText=Gray Text'
            'clBtnText=Button Text'
            'clInactiveCaptionText=Inactive Caption Text'
            'clBtnHighlight=Button Highlight'
            'cl3DDkShadow=3D Dark Shadow'
            'cl3DLight=3D Light'
            'clInfoText=Info Text'
            'clInfoBk=Info Background'
            'clHotLight=Hot Light'
            'clGradientActiveCaption=Gradient Active Caption'
            'clGradientInactiveCaption=Gradient Inactive Caption'
            'clMenuHighlight=Menu Highlight'
            'clMenuBar=MenuBar'
            'clNone=None'
            'clDefault=Default')
          ColorValue = clBtnShadow
          ColorDialogText = 'Custom...'
          DroppedDownWidth = 130
          NewColorText = 'Custom'
          Options = [coText, coSysColors]
          TabOrder = 2
        end
        object cbImplSelColor: TJvColorComboBox
          Left = 153
          Top = 152
          Width = 130
          Height = 20
          ColorNameMap.Strings = (
            'clBlack=Black'
            'clMaroon=Maroon'
            'clGreen=Green'
            'clOlive=Olive'
            'clNavy=Navy'
            'clPurple=Purple'
            'clTeal=Teal'
            'clGray=Gray'
            'clSilver=Silver'
            'clRed=Red'
            'clLime=Lime'
            'clYellow=Yellow'
            'clBlue=Blue'
            'clFuchsia=Fuchsia'
            'clAqua=Aqua'
            'clLtGray=Light Gray'
            'clDkGray=Dark Gray'
            'clWhite=White'
            'clMoneyGreen=Money Green'
            'clSkyBlue=Sky Blue'
            'clCream=Cream'
            'clMedGray=Medium Gray'
            'clScrollBar=ScrollBar'
            'clBackground=Background'
            'clActiveCaption=Active Caption'
            'clInactiveCaption=Inactive Caption'
            'clMenu=Menu'
            'clWindow=Window'
            'clWindowFrame=Window Frame'
            'clMenuText=Menu Text'
            'clWindowText=Window Text'
            'clCaptionText=Caption Text'
            'clActiveBorder=Active Border'
            'clInactiveBorder=Inactive Border'
            'clAppWorkSpace=Application Workspace'
            'clHighlight=Highlight'
            'clHighlightText=Highlight Text'
            'clBtnFace=Button Face'
            'clBtnShadow=Button Shadow'
            'clGrayText=Gray Text'
            'clBtnText=Button Text'
            'clInactiveCaptionText=Inactive Caption Text'
            'clBtnHighlight=Button Highlight'
            'cl3DDkShadow=3D Dark Shadow'
            'cl3DLight=3D Light'
            'clInfoText=Info Text'
            'clInfoBk=Info Background'
            'clHotLight=Hot Light'
            'clGradientActiveCaption=Gradient Active Caption'
            'clGradientInactiveCaption=Gradient Inactive Caption'
            'clMenuHighlight=Menu Highlight'
            'clMenuBar=MenuBar'
            'clNone=None'
            'clDefault=Default')
          ColorValue = clBlue
          ColorDialogText = 'Custom...'
          DroppedDownWidth = 130
          NewColorText = 'Custom'
          Options = [coText, coSysColors]
          TabOrder = 3
        end
      end
    end
    object tabPaths: TTabSheet
      Caption = 'Paths'
      ImageIndex = 1
      OnShow = tabPathsShow
      object Label9: TLabel
        Left = 8
        Top = 16
        Width = 96
        Height = 13
        Caption = '&List of library paths:'
        FocusControl = lvPaths
      end
      object lvPaths: TListView
        Left = 8
        Top = 31
        Width = 296
        Height = 178
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Width = -2
            WidthType = (
              -2)
          end>
        HideSelection = False
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        PopupMenu = popPaths
        ShowColumnHeaders = False
        TabOrder = 0
        ViewStyle = vsReport
        OnEnter = lvPathsEnter
        OnSelectItem = lvPathsSelectItem
      end
      object edLibPath: TEdit
        Left = 8
        Top = 218
        Width = 267
        Height = 21
        Anchors = [akLeft, akRight, akBottom]
        TabOrder = 1
      end
      object btnPathBrowse: TButton
        Left = 280
        Top = 218
        Width = 21
        Height = 21
        Action = acBrowse
        Anchors = [akRight, akBottom]
        TabOrder = 2
      end
      object btnReplace: TButton
        Left = 16
        Top = 250
        Width = 75
        Height = 25
        Action = acReplace
        Anchors = [akLeft, akBottom]
        TabOrder = 3
      end
      object btnAdd: TButton
        Left = 104
        Top = 250
        Width = 75
        Height = 25
        Action = acAdd
        Anchors = [akLeft, akBottom]
        TabOrder = 4
      end
      object btnDelete: TButton
        Left = 192
        Top = 250
        Width = 75
        Height = 25
        Action = acDelete
        Anchors = [akLeft, akBottom]
        TabOrder = 5
      end
    end
  end
  object alOptions: TActionList
    OnUpdate = alOptionsUpdate
    Left = 100
    Top = 112
    object acReplace: TAction
      Category = 'LibPaths'
      Caption = '&Replace'
      ShortCut = 16466
      OnExecute = acReplaceExecute
    end
    object acAdd: TAction
      Category = 'LibPaths'
      Caption = '&Add'
      ShortCut = 16429
      OnExecute = acAddExecute
    end
    object acDelete: TAction
      Category = 'LibPaths'
      Caption = '&Delete'
      ShortCut = 16430
      OnExecute = acDeleteExecute
    end
    object acBrowse: TAction
      Category = 'LibPaths'
      Caption = '...'
      ShortCut = 16397
      OnExecute = acBrowseExecute
    end
    object acDelInvalidPaths: TAction
      Category = 'LibPaths'
      Caption = 'Delete Invalid Paths'
      ShortCut = 24622
      OnExecute = acDelInvalidPathsExecute
    end
    object acGetD5Path: TAction
      Category = 'LibPaths'
      Caption = 'Delphi 5'
      OnExecute = acGetD5PathExecute
    end
    object acGetD6Path: TAction
      Category = 'LibPaths'
      Caption = 'Delphi 6'
      OnExecute = acGetD6PathExecute
    end
    object acGetD7Path: TAction
      Category = 'LibPaths'
      Caption = 'Delphi 7'
      OnExecute = acGetD7PathExecute
    end
    object acGetBCB5Path: TAction
      Category = 'LibPaths'
      Caption = 'C++ Builder 5'
      OnExecute = acGetBCB5PathExecute
    end
    object acGetBCB6Path: TAction
      Category = 'LibPaths'
      Caption = 'C++ Builder 6'
      OnExecute = acGetBCB6PathExecute
    end
    object acSystemPath: TAction
      Category = 'LibPaths'
      Caption = 'System Path'
      OnExecute = acSystemPathExecute
    end
    object acSelectAll: TAction
      Category = 'LibPaths'
      Caption = 'Select All'
      ShortCut = 16449
      OnExecute = acSelectAllExecute
    end
    object acInvertSelect: TAction
      Category = 'LibPaths'
      Caption = 'Invert Selection'
      ShortCut = 24649
      OnExecute = acInvertSelectExecute
    end
    object acUnselectAll: TAction
      Category = 'LibPaths'
      Caption = 'Unselect All'
      ShortCut = 24641
      OnExecute = acUnselectAllExecute
    end
  end
  object JvBrowseFolder1: TJvBrowseForFolderDialog
    Options = [odFileSystemDirectoryOnly, odStatusAvailable, odNewDialogStyle]
    Position = fpFormCenter
    RootDirectory = fdRootFolder
    Left = 206
    Top = 109
  end
  object popPaths: TPopupMenu
    Left = 150
    Top = 109
    object Add1: TMenuItem
      Action = acAdd
    end
    object Replace1: TMenuItem
      Action = acReplace
    end
    object Delete1: TMenuItem
      Action = acDelete
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object InsertLibraryPath1: TMenuItem
      Caption = 'Insert Path'
      object Delphi51: TMenuItem
        Action = acGetD5Path
      end
      object Delphi61: TMenuItem
        Action = acGetD6Path
      end
      object Delphi71: TMenuItem
        Action = acGetD7Path
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object CBuilder51: TMenuItem
        Action = acGetBCB5Path
      end
      object CBuilder61: TMenuItem
        Action = acGetBCB6Path
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SystemPath1: TMenuItem
        Action = acSystemPath
      end
    end
    object Select1: TMenuItem
      Caption = 'Select'
      object SelectAll1: TMenuItem
        Action = acSelectAll
      end
      object UnselectAll1: TMenuItem
        Action = acUnselectAll
      end
      object InvertSelection1: TMenuItem
        Action = acInvertSelect
      end
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object DeleteInvalidPaths1: TMenuItem
      Action = acDelInvalidPaths
    end
  end
end