Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/Pantheon.csy/RCDATA/TSPEEDBAREDITOR/TSPEEDBAREDITOR.txt

Text File | 1999-04-22 | 5.8 KB | 227 lines

object SpeedbarEditor: TSpeedbarEditor
  Left = 222
  Top = 126
  ActiveControl = SectionList
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Speedbar Designer'
  ClientHeight = 277
  ClientWidth = 437
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  TextHeight = 13
  object SectionNameLabel: TLabel
    Left = 180
    Top = 10
    Width = 86
    Height = 13
    Caption = '&Section name: '
    FocusControl = SectionName
  end
  object LabelHint: TLabel
    Left = 4
    Top = 248
    Width = 429
    Height = 29
    AutoSize = False
    Caption =
      'To add command buttons, drag and drop button onto the SpeedBar. ' +
      'To remove command buttons, drag them off of the SpeedBar.'
    WordWrap = True
  end
  object SectionsBox: TGroupBox
    Left = 4
    Top = 3
    Width = 165
    Height = 240
    Caption = ' Sections '
    TabOrder = 0
    object NewSection: TButton
      Left = 9
      Top = 208
      Width = 69
      Height = 25
      Caption = '&New'
      TabOrder = 0
      OnClick = NewSectionClick
    end
    object DelSection: TButton
      Left = 85
      Top = 208
      Width = 69
      Height = 25
      Caption = '&Delete'
      Enabled = False
      TabOrder = 1
      OnClick = DelSectionClick
    end
    object SectionList: TDrawGrid
      Left = 8
      Top = 16
      Width = 149
      Height = 185
      ColCount = 1
      DefaultColWidth = 147
      DefaultRowHeight = 15
      FixedCols = 0
      FixedRows = 0
      Options = [goDrawFocusSelected, goRowSelect]
      RowCount = 1
      ScrollBars = ssVertical
      TabOrder = 2
      OnDragDrop = SectionListDragDrop
      OnDragOver = SectionListDragOver
      OnDrawCell = SectionListDrawCell
      OnKeyDown = SectionListKeyDown
      OnMouseDown = SectionListMouseDown
      OnSelectCell = SectionListSelectCell
    end
  end
  object ButtonsBox: TGroupBox
    Left = 172
    Top = 30
    Width = 262
    Height = 213
    Caption = ' Available buttons '
    TabOrder = 2
    object UpBtn: TSpeedButton
      Left = 232
      Top = 68
      Width = 24
      Height = 25
      Hint = 'Move up|'
      Enabled = False
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD00000DD
        DDDDDDDDD04440DDDDDDD0000044400000DDDD04444444440DDDDDD044444440
        DDDDDDDD0444440DDDDDDDDDD04440DDDDDDDDDDDD040DDDDDDDDDDDDDD0DDDD
        DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
      ParentShowHint = False
      ShowHint = True
      OnClick = UpBtnClick
    end
    object DownBtn: TSpeedButton
      Left = 232
      Top = 100
      Width = 24
      Height = 25
      Hint = 'Move Down|'
      Enabled = False
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD0DDDDDDDDDDDDDD040DDD
        DDDDDDDDD04440DDDDDDDDDD0444440DDDDDDDD044444440DDDDDD0444444444
        0DDDD0000044400000DDDDDDD04440DDDDDDDDDDD00000DDDDDDDDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
      ParentShowHint = False
      ShowHint = True
      OnClick = DownBtnClick
    end
    object AddButton: TButton
      Left = 8
      Top = 181
      Width = 69
      Height = 25
      Caption = '&Add'
      Enabled = False
      TabOrder = 1
      OnClick = AddButtonClick
    end
    object RemoveButton: TButton
      Left = 85
      Top = 181
      Width = 69
      Height = 25
      Caption = '&Remove'
      Enabled = False
      TabOrder = 2
      OnClick = RemoveButtonClick
    end
    object CloseBtn: TButton
      Left = 185
      Top = 181
      Width = 69
      Height = 25
      Caption = '&Close'
      TabOrder = 3
      OnClick = CloseBtnClick
    end
    object ButtonsList: TDrawGrid
      Left = 8
      Top = 16
      Width = 219
      Height = 158
      ColCount = 1
      Ctl3D = True
      DefaultColWidth = 215
      DefaultRowHeight = 26
      FixedCols = 0
      FixedRows = 0
      Options = [goDrawFocusSelected, goRowSelect]
      ParentCtl3D = False
      PopupMenu = PopupMenu
      RowCount = 1
      ScrollBars = ssVertical
      TabOrder = 0
      OnDblClick = ButtonsListDblClick
      OnDrawCell = ButtonsListDrawCell
      OnKeyDown = ButtonsListKeyDown
      OnMouseDown = ButtonsListMouseDown
      OnMouseMove = ButtonsListMouseMove
      OnMouseUp = ButtonsListMouseUp
      OnSelectCell = ButtonsListSelectCell
    end
  end
  object SectionName: TEdit
    Left = 268
    Top = 7
    Width = 165
    Height = 21
    MaxLength = 255
    TabOrder = 1
    OnExit = SectionNameExit
    OnKeyDown = SectionNameKeyDown
  end
  object PopupMenu: TPopupMenu
    Left = 185
    Top = 78
    object CutMenu: TMenuItem
      Caption = 'Cut'
      OnClick = CutMenuClick
      ShortCutText = 'Shift+Del'
    end
    object CopyMenu: TMenuItem
      Caption = 'Copy'
      OnClick = CopyMenuClick
      ShortCutText = 'Ctrl+Ins'
    end
    object PasteMenu: TMenuItem
      Caption = 'Paste'
      OnClick = PasteMenuClick
      ShortCutText = 'Shift+Ins'
    end
  end
  object FormPlacement1: TFormPlacement
    IniFileName = 'DELPHI.INI'
    IniSection = 'RX.SpeedbarEditor'
    Options = [fpPosition]
    Left = 400
    Top = 3
  end
end