Chip 2003 January/Chip_2003-01_cd1.bin/zkuste/delphi/kompon/D34567/SMDBG/SMGRDEMO.ZIP/Main.dfm/Main.txt

Text File | 2000-03-13 | 18KB | 635 lines

object frmMain: TfrmMain
  Left = 200
  Top = 108
  Width = 544
  Height = 375
  Caption = 'TSMDBGrid component demo application'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object pcMain: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    ActivePage = tsBoolean
    Align = alClient
    HotTrack = True
    MultiLine = True
    TabOrder = 0
    OnChange = pcMainChange
    object tsBoolean: TTabSheet
      Caption = 'BooleanAsCheckbox'
      object SMDBGridBoolean: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 284
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoBooleanAsCheckBox, eoCellHint]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 14
        Col = 1
        Row = 1
      end
    end
    object tsSort: TTabSheet
      Caption = 'Sort arrows in title'
      object SMDBGridSort: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 284
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCellHint, eoDisableDelete, eoDisableInsert]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 14
        Col = 1
        Row = 1
      end
    end
    object tsStandardPopup: TTabSheet
      Caption = 'StandardPopup'
      object SMDBGridStandardPopup: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 302
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCellHint, eoStandardPopup]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 15
        Col = 1
        Row = 1
      end
    end
    object tsFixed: TTabSheet
      Caption = 'FixedColumns'
      object SMDBGridFixed: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 302
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoBooleanAsCheckBox, eoCellHint]
        FixedCols = 2
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 15
        Col = 3
        Row = 1
      end
    end
    object tsMultiSelect: TTabSheet
      Caption = 'MultiSelect + Checkbox in Indicator'
      object SMDBGridMultiSelect: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 302
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCheckBoxSelect, eoCellHint, eoKeepSelection, eoLayout, eoStandardPopup]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 23
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 15
        Col = 1
        Row = 1
      end
    end
    object tsGlyph: TTabSheet
      Caption = 'Glyphs in Indicator'
      object imgGlyph1: TImage
        Left = 336
        Top = 232
        Width = 17
        Height = 13
        Picture.Data = {<image000.bmp>}
        Transparent = True
        Visible = False
      end
      object imgGlyph2: TImage
        Left = 360
        Top = 232
        Width = 15
        Height = 12
        Picture.Data = {<image001.bmp>}
        Transparent = True
        Visible = False
      end
      object SMDBGridGlyph: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 302
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoENTERlikeTAB, eoKeepSelection, eoStandardPopup]
        RegistryKey = 'Software\MikeSoft'
        RegistrySection = 'SMDBGrid'
        OnGetGlyph = SMDBGridGlyphGetGlyph
        WidthOfIndicator = 27
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 15
        Col = 1
        Row = 1
      end
    end
    object tsLookup: TTabSheet
      Caption = 'Show Lookups'
      object SMDBGridLookup: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 302
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCellHint, eoShowLookup]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 15
        Col = 1
        Row = 1
        Columns = <
          item
            Color = 12639424
            FieldName = 'CustNo'
            Width = 55
          end
          item
            FieldName = 'ResNo'
            Width = 76
          end
          item
            FieldName = 'EventNo'
            Width = 66
          end
          item
            FieldName = 'NumTickets'
            Width = 66
          end
          item
            FieldName = 'Paid'
            PickList.Strings = (
              'Yes'
              'No')
            Width = 54
          end
          item
            FieldName = 'Amt_Paid'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          item
            FieldName = 'Pay_Method'
          end
          item
            FieldName = 'Card_No'
          end
          item
            FieldName = 'Card_Exp'
          end
          item
            FieldName = 'Pay_Notes'
          end
          item
            FieldName = 'Purge_Date'
          end>
      end
    end
    object tsGraphics: TTabSheet
      Caption = 'Graphics'
      object Splitter1: TSplitter
        Left = 0
        Top = 145
        Width = 0
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object SMDBGridGraphic1: TSMDBGrid
        Left = 0
        Top = 0
        Width = 0
        Height = 145
        Align = alTop
        Color = clInfoBk
        DataSource = dSrcBiolife
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCellHint, eoDrawGraphicField, eoENTERlikeTAB, eoKeepSelection, eoStandardPopup]
        RegistryKey = 'Software\MikeSoft'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 9
        RowCount = 8
        Col = 1
        Row = 1
      end
      object SMDBGridGraphic2: TSMDBGrid
        Left = 0
        Top = 148
        Width = 528
        Height = 154
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcBiolife
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCellHint, eoENTERlikeTAB, eoKeepSelection, eoShowGlyphs, eoStandardPopup]
        RegistryKey = 'Software\MikeSoft'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 9
        RowCount = 7
        Col = 1
        Row = 1
      end
    end
    object tsNoAppendDelete: TTabSheet
      Caption = 'Disable Append/Delete'
      object SMDBGridNoAppendDelete: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 302
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCellHint, eoDisableDelete, eoDisableInsert]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 15
        Col = 1
        Row = 1
      end
    end
    object tsColors: TTabSheet
      Caption = 'Two-color mode'
      object SMDBGridColors: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 302
        Align = alClient
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoCellHint, eoDisableDelete, eoDisableInsert]
        OnGetCellParams = SMDBGridColorsGetCellParams
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 15
        Col = 1
        Row = 1
      end
    end
    object tsEnterLikeTab: TTabSheet
      Caption = 'Enter like Tab'
      object SMDBGridEnterLikeTab: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 284
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        ExOptions = [eoBooleanAsCheckBox, eoCellHint, eoENTERlikeTAB]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 14
        Col = 1
        Row = 1
      end
    end
    object tsMultilined: TTabSheet
      Caption = 'Multilined title'
      object SMDBGrid1: TSMDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 284
        Align = alClient
        Color = clInfoBk
        DataSource = dSrcReservat
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clNavy
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsUnderline]
        ExOptions = [eoBooleanAsCheckBox, eoCellHint]
        RegistryKey = 'Software\MikeShkolnik'
        RegistrySection = 'SMDBGrid'
        WidthOfIndicator = 11
        ScrollBars = ssHorizontal
        ColCount = 12
        RowCount = 13
        Col = 1
        Row = 1
        Columns = <
          item
            Color = 12639424
            FieldName = 'CustNo'
            Title.Alignment = taCenter
            Title.Caption = 'Customer No'
            Width = 56
          end
          item
            FieldName = 'ResNo'
            Width = 98
          end
          item
            FieldName = 'EventNo'
          end
          item
            FieldName = 'NumTickets'
            Title.Alignment = taCenter
            Title.Caption = 'Number of Tickets'
            Width = 71
          end
          item
            FieldName = 'Paid'
            Width = 33
          end
          item
            FieldName = 'Amt_Paid'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Caption = 'Amount Paid'
            Width = 81
          end
          item
            Color = 12639424
            FieldName = 'Pay_Method'
          end
          item
            FieldName = 'Card_No'
          end
          item
            FieldName = 'Card_Exp'
          end
          item
            FieldName = 'Pay_Notes'
          end
          item
            FieldName = 'Purge_Date'
          end>
      end
    end
  end
  object dSrcReservat: TDataSource
    DataSet = tblReservat
    Left = 84
    Top = 88
  end
  object tblReservat: TTable
    Active = True
    CachedUpdates = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    TableName = 'RESERVAT.DB'
    Left = 116
    Top = 88
    object tblReservatCustNo: TIntegerField
      DisplayWidth = 16
      FieldName = 'CustNo'
    end
    object tblReservatResNo: TAutoIncField
      DisplayWidth = 18
      FieldName = 'ResNo'
    end
    object tblReservatEventNo: TIntegerField
      DisplayWidth = 16
      FieldName = 'EventNo'
    end
    object tblReservatNumTickets: TIntegerField
      DisplayWidth = 14
      FieldName = 'NumTickets'
    end
    object tblReservatPaid: TBooleanField
      DefaultExpression = 'True'
      DisplayWidth = 11
      FieldName = 'Paid'
      DisplayValues = 'Yes;No'
    end
    object tblReservatAmt_Paid: TCurrencyField
      DisplayWidth = 25
      FieldName = 'Amt_Paid'
    end
    object tblReservatPay_Method: TStringField
      DisplayWidth = 33
      FieldName = 'Pay_Method'
      Size = 10
    end
    object tblReservatCard_No: TStringField
      DisplayWidth = 61
      FieldName = 'Card_No'
    end
    object tblReservatCard_Exp: TDateField
      DisplayWidth = 33
      FieldName = 'Card_Exp'
    end
    object tblReservatPay_Notes: TMemoField
      DisplayWidth = 33
      FieldName = 'Pay_Notes'
      BlobType = ftMemo
      Size = 30
    end
    object tblReservatPurge_Date: TDateField
      DisplayWidth = 33
      FieldName = 'Purge_Date'
    end
  end
  object tblCustomer: TTable
    Active = True
    CachedUpdates = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 124
    Top = 120
  end
  object tblBiolife: TTable
    Active = True
    CachedUpdates = True
    DatabaseName = 'DBDEMOS'
    TableName = 'BIOLIFE.DB'
    Left = 124
    Top = 152
    object tblBiolifeSpeciesNo: TFloatField
      FieldName = 'Species No'
    end
    object tblBiolifeCategory: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object tblBiolifeCommon_Name: TStringField
      FieldName = 'Common_Name'
      Size = 30
    end
    object tblBiolifeGraphic: TGraphicField
      FieldName = 'Graphic'
      BlobType = ftGraphic
    end
    object tblBiolifeSpeciesName: TStringField
      FieldName = 'Species Name'
      Size = 40
    end
    object tblBiolifeLengthcm: TFloatField
      FieldName = 'Length (cm)'
    end
    object tblBiolifeLength_In: TFloatField
      FieldName = 'Length_In'
    end
    object tblBiolifeNotes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 50
    end
  end
  object dSrcBiolife: TDataSource
    DataSet = tblBiolife
    Left = 92
    Top = 152
  end
end