Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMNOMLIST/TFMNOMLIST.txt

Text File | 1999-06-21 | 9KB | 335 lines

object fmNomList: TfmNomList
  Left = 66
  Top = 81
  AutoScroll = False
  Caption = 'Accounts List'
  ClientHeight = 432
  ClientWidth = 698
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 698
    Height = 53
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 28
      Top = 4
      Width = 80
      Height = 16
      Caption = 'Start Account'
    end
    object Label2: TLabel
      Left = 168
      Top = 4
      Width = 87
      Height = 16
      Caption = 'Finish Account'
    end
    object Label4: TLabel
      Left = 340
      Top = 4
      Width = 52
      Height = 16
      Caption = 'Category'
    end
    object rxdbcStartCust: TComboEdit
      Left = 12
      Top = 20
      Width = 120
      Height = 24
      Hint = 'Press F1 for Help'
      HelpContext = 285
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = rxdbcStartCustButtonClick
      OnEnter = rxdbcStartCustEnter
      OnExit = rxdbcStartCustExit
    end
    object rxdbcFinCust: TComboEdit
      Left = 156
      Top = 20
      Width = 120
      Height = 24
      Hint = 'Press F1 for Help'
      HelpContext = 286
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 16
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnButtonClick = rxdbcFinCustButtonClick
      OnEnter = rxdbcFinCustEnter
      OnExit = rxdbcFinCustExit
    end
    object cbCategory: TComboBox
      Left = 300
      Top = 20
      Width = 145
      Height = 24
      Hint = 'Press F1 for Help'
      HelpContext = 287
      ItemHeight = 16
      Items.Strings = (
        'All Categories'
        'Sales'
        'Purchases'
        'Bank'
        'Direct Cost'
        'Overhead'
        'Fixed Asset'
        'Current Asset'
        'Liability'
        'Financed By')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = 'cbCategory'
      OnChange = cbCategoryChange
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 53
    Width = 698
    Height = 379
    Align = alClient
    TabOrder = 1
    object SpeedBar: TSpeedBar
      Left = 1
      Top = 1
      Width = 696
      Height = 49
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
      BtnOffsetHorz = 3
      BtnOffsetVert = 3
      BtnWidth = 70
      BtnHeight = 43
      TabOrder = 0
      InternalVer = 1
      object SpeedbarSection1: TSpeedbarSection
        Caption = 'Untitled (0)'
      end
      object BtnZoomIn: TSpeedItem
        BtnCaption = 'Zoom In'
        Caption = 'Transaction zoom-in'
        Hint = 'Transaction zoom-in'
        Spacing = 1
        Left = 3
        Top = 3
        Visible = True
        OnClick = BtnZoomInClick
        SectionName = 'Untitled (0)'
      end
      object BtnPrintRep: TSpeedItem
        BtnCaption = 'Print'
        Caption = 'Print accounts list'
        Hint = 'Print accounts list'
        Spacing = 1
        Left = 73
        Top = 3
        Visible = True
        OnClick = BtnPrintRepClick
        SectionName = 'Untitled (0)'
      end
      object BtnClose: TSpeedItem
        BtnCaption = '&Close'
        Caption = 'Close this window'
        Hint = 'Close report'
        Spacing = 1
        Left = 283
        Top = 3
        Visible = True
        OnClick = BtnCloseClick
        SectionName = 'Untitled (0)'
      end
      object BtnEmailRep: TSpeedItem
        BtnCaption = 'Email'
        Caption = 'Email accounts list'
        Hint = 'Email accounts list|'
        Spacing = 1
        Left = 143
        Top = 3
        Visible = True
        OnClick = BtnEmailRepClick
        SectionName = 'Untitled (0)'
      end
      object btnHelp: TSpeedItem
        BtnCaption = '&Help'
        Caption = 'View help on this window'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
          888888888E6648888888888888E6688888888888888888888888888888446888
          8888888886664888888888888E664888888888888E6664888888888888E66648
          88888888888E6664888888844888E6664888886664888E66488888E666444666
          4888888E6666666668888888EE6666668888888888EEEEE88888}
        Hint = 'View help on this window|'
        Spacing = 1
        Left = 213
        Top = 3
        Visible = True
        OnClick = btnHelpClick
        SectionName = 'Untitled (0)'
      end
    end
    object ipdbgAccList: TwwDBGrid
      Left = 1
      Top = 50
      Width = 696
      Height = 328
      Selected.Strings = (
        'ACREF'#9'19'#9'Account Ref.'
        'NAME'#9'51'#9'Account Name'
        'ACCTYPE'#9'21'#9'Account Type')
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = dsTrans
      Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      PopupMenu = pmRClick
      TabOrder = 1
      TitleAlignment = taLeftJustify
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      TitleLines = 2
      TitleButtons = True
      OnCalcCellColors = ipdbgAccListCalcCellColors
      OnTitleButtonClick = ipdbgAccListTitleButtonClick
      OnDblClick = BtnZoomInClick
      IndicatorColor = icBlack
      OnTopRowChanged = ipdbgAccListTopRowChanged
      OnCalcTitleImage = ipdbgAccListCalcTitleImage
      TitleImageList = ImagesDM.GenralBM
      FooterCellColor = clYellow
    end
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = True
    OverrideParentFont = True
    PerformAssertions = True
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = False
    Left = 660
    Top = 79
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      66)
    OriginalFormTop = (
      81)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
  object dsTrans: TwwDataSource
    DataSet = taFinancial
    Left = 596
    Top = 80
  end
  object taFinancial: TwwTable
    DatabaseName = 'EmpireBuilder'
    IndexName = 'ACREF'
    TableName = 'Financl.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 624
    Top = 80
    object taFinancialACREF: TStringField
      DisplayLabel = 'Account Ref.'
      DisplayWidth = 19
      FieldName = 'ACREF'
      Size = 10
    end
    object taFinancialNAME: TStringField
      DisplayLabel = 'Account Name'
      DisplayWidth = 51
      FieldName = 'NAME'
      Size = 30
    end
    object taFinancialACCTYPE: TStringField
      DisplayLabel = 'Account Type'
      DisplayWidth = 21
      FieldName = 'ACCTYPE'
      Size = 13
    end
  end
  object pmRClick: TRxPopupMenu
    Style = msOwnerDraw
    ShowCheckMarks = False
    OnGetItemParams = pmRClickGetItemParams
    Left = 564
    Top = 69
    object pmPrint: TMenuItem
      Caption = 'Print'
      OnClick = BtnPrintRepClick
    end
    object pmEmail: TMenuItem
      Caption = 'Email'
      OnClick = BtnEmailRepClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object pmiGridColor: TMenuItem
      Caption = 'Change Grid Colour'
      OnClick = pmiGridColorClick
    end
  end
end