qm_setcols.dfm

一个管理系统

object QMSetColsForm: TQMSetColsForm
  Left = 202
  Top = 111
  BorderStyle = bsDialog
  Caption = 'Columns User-Defined'
  ClientHeight = 338
  ClientWidth = 449
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object btnSave: TButton
    Left = 362
    Top = 136
    Width = 75
    Height = 23
    Caption = '&Save'
    TabOrder = 4
    OnClick = btnSaveClick
  end
  object btnShowAll: TButton
    Left = 362
    Top = 104
    Width = 75
    Height = 23
    Caption = 'Show &All'
    TabOrder = 3
    OnClick = btnShowAllClick
  end
  object btnOK: TButton
    Left = 362
    Top = 24
    Width = 75
    Height = 23
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 362
    Top = 56
    Width = 75
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 341
    Height = 321
    Caption = '&Columns'
    TabOrder = 0
    object Panel1: TPanel
      Left = 8
      Top = 18
      Width = 325
      Height = 295
      BevelInner = bvRaised
      BevelOuter = bvNone
      TabOrder = 0
      object SgCol: TStringGrid
        Left = 1
        Top = 1
        Width = 323
        Height = 293
        Align = alClient
        Ctl3D = True
        DefaultRowHeight = 18
        FixedCols = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
        ParentCtl3D = False
        ScrollBars = ssVertical
        TabOrder = 0
        OnClick = SgColClick
        OnDrawCell = SgColDrawCell
        OnKeyPress = SgColKeyPress
        ColWidths = (
          2
          148
          38
          48
          62)
        RowHeights = (
          18
          18
          18
          18
          18)
      end
      object cbxAlign: TComboBox
        Left = 243
        Top = 59
        Width = 62
        Height = 20
        Style = csDropDownList
        Ctl3D = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 1
        OnExit = cbxAlignExit
        OnKeyDown = cbxAlignKeyDown
        Items.Strings = (
          'Left'
          'Right'
          'Center')
      end
      object edtWidth: TEdit
        Left = 194
        Top = 40
        Width = 48
        Height = 20
        AutoSize = False
        Ctl3D = True
        MaxLength = 3
        ParentCtl3D = False
        TabOrder = 2
        OnExit = edtWidthExit
        OnKeyDown = edtWidthKeyDown
      end
      object updWidth: TUpDown
        Tag = 2
        Left = 225
        Top = 42
        Width = 15
        Height = 16
        Min = -32768
        Max = 32767
        Position = 0
        TabOrder = 3
        Wrap = False
        OnChangingEx = updWidthChangingEx
      end
    end
  end
end