gridmasterdetailpanel.dfm

InfoPower_Studio 2007 v5.0.1.3 banben

object MasterDetailPanelForm: TMasterDetailPanelForm
  Left = 159
  Top = 119
  Width = 546
  Height = 363
  Caption = 'InfoPower 4000 - Master/Detail View Using Drop-Down Panel'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 72
    Top = 40
    Width = 25
    Height = 25
  end
  object CustomerGrid: TwwDBGrid
    Left = 0
    Top = 0
    Width = 538
    Height = 329
    LineStyle = gls3D
    ControlType.Strings = (
      'Orders;CustomEdit;wwExpandButton1;F'
      'Company;URL-Link;Company'
      'State;CustomEdit;wwDBEdit2;F')
    Selected.Strings = (
      'Orders'#9'3'#9' '#9'F'
      'CustNo'#9'22'#9'Cust No'#9'F'
      'Country'#9'19'#9'Country'#9'F'
      'LastInvoiceDate'#9'17'#9'Last Invoice Date'#9'F'
      'Company'#9'19'#9'Company'#9'F')
    IniAttributes.FileName = 'm:\ip2001\temp.ini'
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    Color = clInfoBk
    DataSource = DataSource1
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    OnCalcTitleImage = CustomerGridCalcTitleImage
    TitleImageList = ImageList1
    PaintOptions.AlternatingRowColor = 12320251
    PaintOptions.BackgroundOptions = [coFillDataCells, coBlendFixedRow, coBlendFixedColumn, coBlendAlternatingRow]
  end
  object wwExpandButton1: TwwExpandButton
    Left = 61
    Top = 24
    Width = 22
    Height = 16
    DisableThemes = False
    Grid = InvoicePanel
    AutoShrink = False
    OnAfterExpand = wwExpandButton1AfterExpand
    GridIndents.X = 11
    Caption = 'False'
    TabOrder = 1
    ButtonAlignment = taCenter
  end
  object wwExpandButton2: TwwExpandButton
    Left = 224
    Top = 24
    Width = 22
    Height = 16
    DisableThemes = False
    Grid = ItemsGrid
    GridIndents.X = 17
    Caption = 'False'
    TabOrder = 3
    ButtonAlignment = taCenter
  end
  object InvoicePanel: TPanel
    Left = 88
    Top = 24
    Width = 449
    Height = 233
    BorderStyle = bsSingle
    TabOrder = 4
    Visible = False
    object InvoiceGrid: TwwDBGrid
      Left = 1
      Top = 26
      Width = 443
      Height = 202
      ControlType.Strings = (
        'Items;CustomEdit;wwExpandButton2;F'
        'ShipDate;CustomEdit;wwDBDateTimePicker1;F')
      Selected.Strings = (
        'Items'#9'3'#9'Items'#9'F'
        'OrderNo'#9'4'#9'Order~No'#9'F'
        'SaleDate'#9'10'#9'Sale'#9'F'#9'Date'
        'ShipDate'#9'9'#9'Ship'#9'F'#9'Date'
        'ShipToContact'#9'15'#9'Ship To Contact'#9'F'
        'CustNo'#9'10'#9'Cust No.'#9'F'
        'ItemsTotal'#9'11'#9'Items~Total'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      Color = clWhite
      Ctl3D = False
      DataSource = DataSource2
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells, dgProportionalColResize]
      ParentCtl3D = False
      TabOrder = 0
      TitleAlignment = taCenter
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 2
      TitleButtons = False
      UseTFields = False
      OnKeyDown = InvoiceGridKeyDown
      OnUpdateFooter = InvoiceGridUpdateFooter
      TitleImageList = ImageList1
      PaintOptions.FastRecordScrolling = False
      PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
    end
    object wwDBNavigator1: TwwDBNavigator
      Left = 1
      Top = 1
      Width = 443
      Height = 25
      AutosizeStyle = asSizeNavButtons
      DataSource = DataSource2
      RepeatInterval.InitialDelay = 500
      RepeatInterval.Interval = 100
      Align = alTop
      object wwDBNavigator1First: TwwNavButton
        Left = 0
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to first record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1First'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 0
        Style = nbsFirst
      end
      object wwDBNavigator1PriorPage: TwwNavButton
        Left = 32
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move backward 10 records'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1PriorPage'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 1
        Style = nbsPriorPage
      end
      object wwDBNavigator1Prior: TwwNavButton
        Left = 64
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to prior record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Prior'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 2
        Style = nbsPrior
      end
      object wwDBNavigator1Next: TwwNavButton
        Left = 96
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to next record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Next'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 3
        Style = nbsNext
      end
      object wwDBNavigator1NextPage: TwwNavButton
        Left = 128
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move forward 10 records'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1NextPage'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 4
        Style = nbsNextPage
      end
      object wwDBNavigator1Last: TwwNavButton
        Left = 160
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to last record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Last'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 5
        Style = nbsLast
      end
      object wwDBNavigator1Insert: TwwNavButton
        Left = 192
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Insert new record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Insert'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 6
        Style = nbsInsert
      end
      object wwDBNavigator1Delete: TwwNavButton
        Left = 224
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Delete current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Delete'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 7
        Style = nbsDelete
      end
      object wwDBNavigator1Edit: TwwNavButton
        Left = 256
        Top = 0