PC Expert 29/Pce29cd.iso/RUNIMAGE/DELPHI40/BIN/CORIDE40.BPL/0/RCDATA/TCUSTOMIZEDLG/TCUSTOMIZEDLG.txt

Text File | 1998-06-16 | 4KB | 187 lines

object CustomizeDlg: TCustomizeDlg
  Left = 206
  Top = 136
  HelpContext = 1648
  BorderStyle = bsDialog
  Caption = 'Customize'
  ClientHeight = 280
  ClientWidth = 357
  Color = clBtnFace
  ParentFont = True
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CloseButton: TButton
    Left = 196
    Top = 248
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Close'
    ModalResult = 1
    TabOrder = 1
    OnClick = CloseButtonClick
  end
  object HelpButton: TButton
    Left = 276
    Top = 248
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 2
    OnClick = HelpButtonClick
  end
  object PageControl1: TPageControl
    Left = 6
    Top = 6
    Width = 345
    Height = 235
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      HelpContext = 2140
      Caption = 'Toolbars'
      ImageIndex = 2
      object Label4: TLabel
        Left = 6
        Top = 3
        Width = 44
        Height = 13
        Caption = 'Toolb&ars:'
        FocusControl = ToolbarList
      end
      object ToolbarList: TCheckListBox
        Left = 6
        Top = 19
        Width = 243
        Height = 178
        OnClickCheck = ToolbarListClickCheck
        ItemHeight = 16
        Style = lbOwnerDrawFixed
        TabOrder = 0
      end
      object ResetButton: TButton
        Left = 256
        Top = 18
        Width = 75
        Height = 25
        Action = Reset1
        Caption = '&Reset...'
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      HelpContext = 2141
      Caption = 'Commands'
      ImageIndex = 1
      object Label1: TLabel
        Left = 6
        Top = 3
        Width = 53
        Height = 13
        Caption = 'Cate&gories:'
        FocusControl = CategoryList
      end
      object Label2: TLabel
        Left = 142
        Top = 3
        Width = 55
        Height = 13
        Caption = 'Comman&ds:'
        FocusControl = CommandList
      end
      object Label3: TLabel
        Left = 6
        Top = 177
        Width = 319
        Height = 27
        AutoSize = False
        Caption =
          'To add command buttons, drag and drop commands onto a toolbar. T' +
          'o remove command buttons, drag them off of a Toolbar.'
        WordWrap = True
      end
      object CategoryList: TListBox
        Left = 6
        Top = 19
        Width = 129
        Height = 150
        ItemHeight = 13
        TabOrder = 0
        OnClick = CategoryListClick
      end
      object CommandList: TListView
        Left = 142
        Top = 19
        Width = 187
        Height = 150
        Color = clBtnFace
        Columns = <
          item
            Width = 167
          end>
        ColumnClick = False
        DragKind = dkDock
        HotTrackStyles = []
        ReadOnly = True
        RowSelect = True
        ShowColumnHeaders = False
        TabOrder = 1
        ViewStyle = vsReport
        OnMouseDown = CommandListMouseDown
      end
    end
    object TabSheet3: TTabSheet
      HelpContext = 2142
      Caption = 'Options'
      ImageIndex = 2
      object CheckBox1: TCheckBox
        Left = 16
        Top = 20
        Width = 145
        Height = 17
        Action = Tooltips1
        Caption = 'Show &tooltips'
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 16
        Top = 44
        Width = 169
        Height = 17
        Action = Shortucts1
        Caption = 'Show shortcut &keys on tooltips'
        TabOrder = 1
      end
    end
  end
  object ActionList1: TActionList
    Left = 38
    Top = 134
    object Reset1: TAction
      Caption = '&Reset'
      OnExecute = Reset1Execute
      OnUpdate = Reset1Update
    end
    object Shortucts1: TAction
      Caption = 'Show shortcut keys on tooltips'
      OnExecute = Shortucts1Execute
      OnUpdate = Shortucts1Update
    end
    object Tooltips1: TAction
      Caption = 'Show tooltips'
      OnExecute = Tooltips1Execute
      OnUpdate = Tooltips1Update
    end
    object Action1: TAction
      Caption = 'Action1'
    end
  end
end