osgrideditor.dfm

企业进销存管理系统

object fmOsGridEditor: TfmOsGridEditor
  Left = 198
  Top = 117
  Width = 549
  Height = 533
  Caption = 'TopGrid Editor'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  ShowHint = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 0
    Top = 137
    Width = 541
    Height = 5
    Cursor = crVSplit
    Align = alBottom
    Beveled = True
    Color = clBlue
    ParentColor = False
    OnMoved = SplitterMoved
  end
  object sampleGrid: TtsGrid
    Left = 0
    Top = 41
    Width = 541
    Height = 96
    Align = alClient
    AlwaysShowEditor = False
    AlwaysShowFocus = True
    CheckBoxStyle = stCheck
    Color = clWhite
    Cols = 0
    ExportDelimiter = ','
    HeadingFont.Charset = DEFAULT_CHARSET
    HeadingFont.Color = clWindowText
    HeadingFont.Height = -11
    HeadingFont.Name = 'MS Sans Serif'
    HeadingFont.Style = []
    PopupMenu = pmOptions
    ProvideGridMenu = True
    Rows = 2
    TabOrder = 0
    ThumbTracking = True
    Version = '2.20.24'
    XMLExport.Version = '1.0'
    XMLExport.DataPacketVersion = '2.0'
    OnCellChanged = sampleGridCellChanged
    OnCellLoaded = sampleGridCellLoaded
    OnColMoved = sampleGridColMoved
    OnColResized = sampleGridColResized
    OnEndCellEdit = sampleGridEndCellEdit
    OnHeadingClick = sampleGridHeadingClick
    OnKeyDown = sampleGridKeyDown
    OnKeyPress = sampleGridKeyPress
    OnKeyUp = sampleGridKeyUp
    OnMouseDown = sampleGridMouseDown
    OnRowChanged = sampleGridRowChanged
    OnRowMoved = sampleGridRowMoved
    OnTopLeftChanged = sampleGridTopLeftChanged
  end
  object tbEditor: TToolBar
    Left = 0
    Top = 0
    Width = 541
    Height = 29
    ButtonHeight = 23
    Caption = 'tbEditor'
    EdgeBorders = [ebTop, ebBottom]
    Images = ilImages
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbOpenFile: TToolButton
      Left = 8
      Top = 2
      Hint = 'Open a Grid layout file'
      Caption = 'tbOpenFile'
      ImageIndex = 10
      OnClick = tbOpenFileClick
    end
    object tbSaveFile: TToolButton
      Left = 31
      Top = 2
      Hint = 'Save layout to file'
      Caption = 'tbSaveFile'
      ImageIndex = 9
      OnClick = tbSaveFileClick
    end
    object ToolButton6: TToolButton
      Left = 54
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbSave: TToolButton
      Left = 62
      Top = 2
      Hint = 'Apply changes'
      Caption = 'tbSave'
      ImageIndex = 0
      OnClick = tbSaveClick
    end
    object tbReset: TToolButton
      Left = 85
      Top = 2
      Hint = 'Reset grid and column properties'
      Caption = 'tbReset'
      DropdownMenu = pmReset
      ImageIndex = 11
      Style = tbsDropDown
    end
    object ToolButton2: TToolButton
      Left = 121
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbAddColumn: TToolButton
      Left = 129
      Top = 2
      Hint = 'Add a empty Column'
      Caption = 'tbAddColumn'
      ImageIndex = 3
      OnClick = tbAddColumnClick
    end
    object tbDeleteColumn: TToolButton
      Left = 152
      Top = 2
      Hint = 'Remove Selected Column'
      Caption = 'tbDeleteColumn'
      ImageIndex = 1
      OnClick = tbDeleteColumnClick
    end
    object ToolButton8: TToolButton
      Left = 175
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbSetPicture: TToolButton
      Left = 183
      Top = 2
      Hint = 'Set Cell Picture'
      Caption = 'tbSetPicture'
      ImageIndex = 15
      OnClick = tbSetPictureClick
    end
    object tbClearPicture: TToolButton
      Left = 206
      Top = 2
      Hint = 'Clear Cell Picture'
      Caption = 'tbClearPicture'
      ImageIndex = 16
      OnClick = tbClearPictureClick
    end
    object ToolButton7: TToolButton
      Left = 229
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object tbDefaultJustify: TToolButton
      Left = 237
      Top = 2
      Hint = 'Default Justification'
      Caption = 'tbDefaultJustify'
      Grouped = True
      ImageIndex = 13
      Style = tbsCheck
      OnClick = tbDefaultJustifyClick
    end
    object tbLeftJustify: TToolButton
      Left = 260
      Top = 2
      Hint = 'Left Justify Column'
      Caption = 'tbLeftJustify'
      Down = True
      Grouped = True
      ImageIndex = 5
      Style = tbsCheck
      OnClick = tbLeftJustifyClick
    end
    object tbCenterJustify: TToolButton
      Left = 283
      Top = 2
      Hint = 'Center Justify Column'
      Caption = 'tbCenterJustify'
      Grouped = True
      ImageIndex = 6
      Style = tbsCheck
      OnClick = tbCenterJustifyClick
    end
    object tbRightJustify: TToolButton
      Left = 306
      Top = 2
      Hint = 'Right Justify Column'
      Caption = 'tbRightJustify'
      Grouped = True
      ImageIndex = 7
      Style = tbsCheck
      OnClick = tbRightJustifyClick
    end
    object ToolButton3: TToolButton
      Left = 329
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbClose: TToolButton
      Left = 337
      Top = 2
      Hint = 'Exit Grid Designer'
      Caption = 'tbClose'
      ImageIndex = 2
      OnClick = tbCloseClick
    end
  end
  object pgEditor: TPageControl
    Left = 0
    Top = 142
    Width = 541
    Height = 338
    ActivePage = tsCommon
    Align = alBottom
    TabOrder = 2
    OnChange = pgEditorChange
    object tsCommon: TTabSheet
      Caption = '&Common'
      ImageIndex = 1
      object rgGridMode: TRadioGroup
        Left = 4
        Top = 4
        Width = 85
        Height = 169
        Caption = 'Grid Mode '
        Items.Strings = (
          'ListBox'
          'Edit'
          'Edit Insert'
          'Browse')
        TabOrder = 0
        OnClick = rgGridModeClick
      end
      object gbFont: TGroupBox
        Left = 92
        Top = 4
        Width = 217
        Height = 169
        Caption = 'Font and Colors '
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 42
          Width = 49
          Height = 13
          Caption = 'Grid Color:'
        end
        object Label3: TLabel
          Left = 8
          Top = 92
          Width = 70
          Height = 13
          Caption = 'Heading Color:'
        end
        object Label9: TLabel
          Left = 8
          Top = 20
          Width = 46
          Height = 13
          Caption = 'Grid Font:'
        end
        object laFontSummary: TLabel
          Left = 80
          Top = 20
          Width = 130
          Height = 13
          Hint = 'Double Click to edit'
          AutoSize = False
          Caption = 'laFontSummary'
          OnDblClick = laFontSummaryDblClick
        end
        object Label10: TLabel
          Left = 8
          Top = 68
          Width = 67
          Height = 13
          Caption = 'Heading Font:'
        end
        object laHeadingFontSummary: TLabel
          Left = 80
          Top = 68
          Width = 112
          Height = 13
          Hint = 'Double Click to edit'
          Caption = 'laHeadingFontSummary'
          OnDblClick = laHeadingFontSummaryDblClick
        end
        object laFocusColor: TLabel
          Left = 8
          Top = 116
          Width = 59
          Height = 13
          Caption = 'Focus Color:'
        end
        object laFocusFontColor: TLabel
          Left = 8
          Top = 140
          Width = 83
          Height = 13
          Caption = 'Focus Font Color:'
        end
        object cbGridColor: TosColorComboBox
          Left = 96
          Top = 36
          Width = 113
          Height = 22
          ColorValue = clBlack
          ItemHeight = 16
          ShowStyle = ssColorAndText
          ShowSystemColors = True
          TabOrder = 0
          OnClick = cbGridColorClick
        end
        object cbHeadingColor: TosColorComboBox
          Left = 96
          Top = 88
          Width = 113
          Height = 22
          ColorValue = clBlack
          ItemHeight = 16
          ShowStyle = ssColorAndText
          ShowSystemColors = True
          TabOrder = 1
          OnClick = cbHeadingColorClick
        end
        object cbFocusColor: TosColorComboBox
          Left = 96
          Top = 112
          Width = 113
          Height = 22
          ColorValue = clBlack
          ItemHeight = 16
          ShowStyle = ssColorAndText
          ShowSystemColors = True
          TabOrder = 2
          OnClick = cbFocusColorClick
        end
        object cbFocusFontColor: TosColorComboBox
          Left = 96
          Top = 136
          Width = 113
          Height = 22
          ColorValue = clBlack
          ItemHeight = 16
          ShowStyle = ssColorAndText
          ShowSystemColors = True
          TabOrder = 3
          OnClick = cbFocusFontColorClick
        end
      end
      object gbMisc: TGroupBox
        Left = 316
        Top = 4
        Width = 213
        Height = 169
        Caption = 'Miscellaneous '
        TabOrder = 2
        object chShowEditor: TCheckBox
          Left = 12
          Top = 16
          Width = 121
          Height = 17
          Hint = 'Go into cell edit mode as soon as cell entered'
          Caption = 'Always Show Editor'
          TabOrder = 0
          OnClick = chShowEditorClick
        end
        object chHeadingOn: TCheckBox
          Left = 12
          Top = 58
          Width = 97
          Height = 17
          Hint = 'Column Headings on or off'
          Caption = 'Heading On'
          TabOrder = 1
          OnClick = chHeadingOnClick
        end