unit1.dfm

EhLib 4.4 Build 4.4.48 source included version.

        DataSource = DataModule1.DataSource2
        EditButtons = <>
        Flat = True
        MRUList.Active = True
        TabOrder = 3
        Visible = True
      end
      object DBDateTimeEditEh1: TDBDateTimeEditEh
        Left = 104
        Top = 54
        Width = 121
        Height = 19
        AlwaysShowBorder = True
        DataField = 'SaleDate'
        DataSource = DataModule1.DataSource2
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 1
        Visible = True
      end
      object DBNumberEditEh1: TDBNumberEditEh
        Left = 104
        Top = 78
        Width = 121
        Height = 19
        AlwaysShowBorder = True
        DataField = 'ItemsTotal'
        DataSource = DataModule1.DataSource2
        EditButton.Style = ebsUpDownEh
        EditButton.Visible = True
        EditButtons = <>
        Flat = True
        TabOrder = 2
        Visible = True
      end
      object DBComboBoxEh1: TDBComboBoxEh
        Left = 104
        Top = 129
        Width = 121
        Height = 22
        AlwaysShowBorder = True
        DataField = 'PaymentMethod'
        DataSource = DataModule1.DataSource2
        EditButtons = <>
        Flat = True
        Images = DataModule1.ilPaymentType
        Items.Strings = (
          'Credit'
          'Check'
          'Visa'
          'COD'
          'MC'
          'AmEx'
          'Cash')
        TabOrder = 4
        Visible = True
        OnGetItemImageIndex = DBComboBoxEh1GetItemImageIndex
      end
      object DBLookupComboboxEh3: TDBLookupComboboxEh
        Left = 104
        Top = 29
        Width = 121
        Height = 19
        AlwaysShowBorder = True
        DataField = 'CustNo'
        DataSource = DataModule1.DataSource2
        DropDownBox.Rows = 50
        DropDownBox.Sizable = True
        DropDownBox.Width = -1
        EditButtons = <>
        Flat = True
        KeyField = 'CustNo'
        ListField = 'Company'
        ListSource = DataModule1.dstCustomer
        TabOrder = 0
        Visible = True
      end
      object DBGridEh6: TDBGridEh
        Left = 2
        Top = 222
        Width = 383
        Height = 263
        ColumnDefValues.AlwaysShowEditButton = True
        DataSource = DataModule1.DataSource2
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = []
        HorzScrollBar.Tracking = True
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        RowSizingAllowed = True
        TabOrder = 12
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VertScrollBar.Tracking = True
        Columns = <
          item
            EditButtons = <>
            FieldName = 'CustNo'
            Footers = <>
            Width = 48
          end
          item
            EditButtons = <>
            FieldName = 'SaleDate'
            Footers = <>
            Title.Caption = 'Sale Date'
            Width = 76
          end
          item
            EditButtons = <>
            FieldName = 'ItemsTotal'
            Footers = <>
            Title.Caption = 'Items Total'
          end
          item
            EditButtons = <>
            FieldName = 'ShipVIA'
            Footers = <>
            Title.Caption = 'Ship VIA'
          end
          item
            EditButtons = <>
            FieldName = 'PaymentMethod'
            Footers = <>
            ImageList = DataModule1.ilPaymentType
            PickList.Strings = (
              'Cash'
              'Visa'
              'MC'
              'AmEx'
              'Credit'
              'Check'
              'COD')
            ShowImageAndText = True
            Title.Caption = 'Payment Method'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
            Title.Caption = 'Tax Rate'
            Width = 39
          end>
      end
      object DBLookupComboboxEh4: TDBLookupComboboxEh
        Left = 508
        Top = 31
        Width = 121
        Height = 19
        AlwaysShowBorder = True
        DropDownBox.Rows = 50
        DropDownBox.Sizable = True
        DropDownBox.Width = -1
        EditButtons = <>
        Flat = True
        KeyField = 'CustNo'
        ListField = 'Company'
        ListSource = DataModule1.dstCustomer
        TabOrder = 5
        Visible = True
      end
      object DBDateTimeEditEh2: TDBDateTimeEditEh
        Left = 508
        Top = 56
        Width = 121
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 6
        Visible = True
      end
      object DBNumberEditEh2: TDBNumberEditEh
        Left = 508
        Top = 80
        Width = 121
        Height = 19
        AlwaysShowBorder = True
        EditButton.Visible = True
        EditButtons = <>
        Flat = True
        TabOrder = 7
        Value = 101
        Visible = True
      end
      object DBEditEh2: TDBEditEh
        Left = 508
        Top = 104
        Width = 121
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        MRUList.Active = True
        TabOrder = 8
        Text = 'Simple the text'
        Visible = True
      end
      object DBComboBoxEh2: TDBComboBoxEh
        Left = 508
        Top = 131
        Width = 121
        Height = 22
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Images = DataModule1.ilYesNo
        Items.Strings = (
          'Yes'
          'No')
        KeyItems.Strings = (
          'Yes'
          'No')
        TabOrder = 9
        Text = 'Yes'
        Visible = True
      end
      object DBNavigator1: TDBNavigator
        Left = 43
        Top = 194
        Width = 220
        Height = 25
        DataSource = DataModule1.DataSource2
        Flat = True
        TabOrder = 11
      end
      object DBCheckBoxEh1: TDBCheckBoxEh
        Left = 508
        Top = 158
        Width = 113
        Height = 17
        AllowGrayed = True
        AlwaysShowBorder = True
        Caption = 'Check box'
        Flat = True
        TabOrder = 10
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBoxEh2: TDBCheckBoxEh
        Left = 104
        Top = 158
        Width = 113
        Height = 17
        AlwaysShowBorder = True
        Caption = 'Check box'
        DataField = 'TaxRate'
        DataSource = DataModule1.DataSource2
        Flat = True
        TabOrder = 13
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
    end
    object tsFishfact: TTabSheet
      Caption = 'Fishfact'
      ImageIndex = 6
      object gridFish: TDBGridEh
        Left = 6
        Top = 5
        Width = 668
        Height = 479
        Anchors = [akLeft, akTop, akRight, akBottom]
        ColumnDefValues.AlwaysShowEditButton = True
        ColumnDefValues.Title.TitleButton = True
        Ctl3D = True
        DataSource = DataModule1.dsFish
        DrawGraphicData = True
        DrawMemoText = True
        EditActions = [geaCopyEh, geaSelectAllEh]
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        FooterColor = clBtnFace
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = [fsBold]
        HorzScrollBar.Tracking = True
        IndicatorTitle.DropdownMenu = PopupMenu1
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        IndicatorTitle.UseGlobalMenu = False
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghShowRecNo, dghColumnResize, dghColumnMove, dghAutoFitRowHeight]
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        SortLocal = True
        STFilter.Local = True
        STFilter.Visible = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VertScrollBar.Tracking = True
        Columns = <
          item
            EditButtons = <>
            FieldName = 'Species No'
            Footers = <>
            Width = 49
          end
          item
            EditButtons = <>
            FieldName = 'Notes'
            Footers = <>
            STFilter.Visible = False
            Width = 347
          end
          item
            EditButtons = <>
            FieldName = 'Graphic'
            Footers = <>
            STFilter.Visible = False
            Width = 193
          end
          item
            EditButtons = <>
            FieldName = 'Category'
            Footers = <>
            Width = 78
          end
          item
            EditButtons = <>
            FieldName = 'Common_Name'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Species Name'
            Footers = <>
            Width = 128
          end
          item
            EditButtons = <>
            FieldName = 'Length (cm)'
            Footers = <>
            Width = 49
          end
          item
            EditButtons = <>
            FieldName = 'Length_In'
            Footers = <>
            Width = 105
          end>
      end
    end
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = [pghFitGridToPageWidth, pghColored, pghRowAutoStretch]
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'Microsoft Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.CenterText.Strings = (
      'Page. &[Page]')
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'Microsoft Sans Serif'
    PageHeader.Font.Style = []
    PageHeader.LineType = pcltDoubleLine
    PrintFontName = 'Arial'
    Title.Strings = (
      'Title')
    Units = MM
    Left = 552
    Top = 69
    BeforeGridText_Data = {
      7B5C727466315C616E73695C64656666305C6465666C616E67313033337B5C66
      6F6E7474626C7B5C66305C66737769737320417269616C3B7D7B5C66315C6673
      77697373204D532053616E732053657269663B7D7D0D0A5C766965776B696E64
      345C7563315C706172645C71635C625C66305C66733238205269636820746578
      74206265666F726520677269642E5C6C616E67313034395C62305C6673313620
      0D0A5C706172205C70617264200D0A5C706172205C625C667331382054507269
      6E74444247726964456820636F6D706F6E656E7420616C6C6F777320796F7520
      746F206472617720726963682074657874206265666F726520677269642E0D0A
      5C706172205C62305C66733136200D0A5C706172205C756C5C625C695C667331
      3820557365204265666F726547726964546578742070726F706572747920746F
      207479706520746578742E0D0A5C706172205C756C6E6F6E655C62305C69305C
      66315C66733136200D0A5C706172207D0D0A00}
    AfterGridText_Data = {
      7B5C727466315C616E73695C64656666305C6465666C616E67313033337B5C66
      6F6E7474626C7B5C66305C66737769737320417269616C3B7D7B5C66315C6673
      77697373204D532053616E732053657269663B7D7D0D0A5C766965776B696E64
      345C7563315C706172645C625C66305C66733230200D0A5C7061722052696368
      207465787420616674657220677269640D0A5C706172205C6C616E6731303439
      5C62305C66733136200D0A5C706172205C6220255B546F6461795D5C7461625C
      7461625C7461625C7461625C7461625C7461625C7461625C7461622044617461
      2066726F6D20444244454D4F532064617461626173655C62305C6631200D0A5C
      706172207D0D0A00}
  end
  object PopupMenu1: TPopupMenu
    Left = 340
    Top = 262
    object ppmCut: TMenuItem
      Caption = 'Cu&t'
      OnClick = ppmCutClick
    end
    object ppmCopy: TMenuItem
      Caption = '&Copy'
      OnClick = ppmCopyClick
    end
    object ppmPaste: TMenuItem
      Caption = '&Paste'
      OnClick = ppmPasteClick
    end
    object ppmDelete: TMenuItem
      Caption = '&Delete'
      OnClick = ppmDeleteClick
    end
    object ppmSelectAll: TMenuItem
      Caption = 'Se&lect All'
      OnClick = ppmSelectAllClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object ppmPreview: TMenuItem
      Caption = 'Pre&view'
      OnClick = ppmPreviewClick
    end
    object ppmSaveSelection: TMenuItem
      Caption = 'Save selection as ...'
      OnClick = ppmSaveSelectionClick
    end
  end
  object pmNoVisibleCols: TPopupMenu
    Left = 638
    Top = 66
  end
  object SaveDialog1: TSaveDialog
    FileName = 'file1'
    Filter = 
      'Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HT' +
      'ML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Microsoft E' +
      'xcel Workbook (*.xls)|*.XLS'
    Left = 146
    Top = 254
  end
  object PropStorageEh1: TPropStorageEh
    StoredProps.Strings = (
      '<P>.ActiveControl'
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'PageControl1.<P>.ActivePage'
      'PageControl1.TabSheet1.DBGridEh1.<P>.Columns.ColumnsIndex'
      'PageControl1.TabSheet1.DBGridEh1.<P>.Columns.<ForAllItems>.Width')
    Left = 20
    Top = 67
  end
end