unit1.nfm

kbmMemTable v5.50 (Dec. 12 2005)内存表控件

object Form1: TForm1
  Caption = 
    'kbmMemTable demo. Created by Components4Developers (www.componen' +
    'ts4developers.com)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Height = 592
  Width = 770
  Left = 187
  Top = 98
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    Left = 235
    Top = 0
    Width = 527
    Height = 534
    object DBGrid1: TDBGrid
      Align = alClient
      DataSource = DataSource1
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -10
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Left = 0
      Top = 0
      Width = 527
      Height = 383
    end
    object DBNavigator1: TDBNavigator
      DataSource = DataSource1
      Align = alBottom
      TabOrder = 1
      Left = 0
      Top = 512
      Width = 527
      Height = 22
    end
    object Panel2: TPanel
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      Left = 0
      Top = 383
      Width = 527
      Height = 129
      object DBImage1: TDBImage
        Align = alLeft
        DataSource = DataSource1
        QuickDraw = False
        Stretch = True
        TabOrder = 0
        Left = 0
        Top = 0
        Width = 138
        Height = 129
      end
      object DBMemo1: TDBMemo
        Align = alClient
        TabOrder = 1
        Left = 138
        Top = 0
        Width = 204
        Height = 129
      end
      object Panel6: TPanel
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 2
        Left = 342
        Top = 0
        Width = 185
        Height = 129
        object Label34: TLabel
          Caption = 'BytesField'
          Left = 8
          Top = 8
          Width = 48
          Height = 13
        end
        object DBEdit1: TDBEdit
          TabOrder = 0
          Left = 8
          Top = 24
          Width = 121
          Height = 21
        end
        object Button22: TButton
          Caption = 'Clear Memo'
          TabOrder = 1
          Left = 8
          Top = 56
          Width = 75
          Height = 25
          OnClick = Button22Click
        end
      end
    end
  end
  object PageControl1: TPageControl
    ActivePage = TabSheet2
    Align = alLeft
    MultiLine = True
    TabOrder = 1
    Left = 0
    Top = 0
    Width = 235
    Height = 534
    object TabSheet1: TTabSheet
      Caption = 'Basic functionality'
      object Label6: TLabel
        AutoSize = False
        Caption = 'Define some fields programatically'
        WordWrap = True
        Left = 7
        Top = 7
        Width = 117
        Height = 26
      end
      object Label7: TLabel
        AutoSize = False
        Caption = 'Open the memorytable'
        WordWrap = True
        Left = 7
        Top = 52
        Width = 130
        Height = 20
      end
      object Label8: TLabel
        AutoSize = False
        Caption = 'Close the memorytable'
        WordWrap = True
        Left = 7
        Top = 85
        Width = 137
        Height = 26
      end
      object Label9: TLabel
        AutoSize = False
        Caption = 'Generate sample data'
        WordWrap = True
        Left = 7
        Top = 229
        Width = 124
        Height = 20
      end
      object Label25: TLabel
        AutoSize = False
        Caption = 'Number of records in sample data'
        WordWrap = True
        Left = 8
        Top = 112
        Width = 129
        Height = 33
      end
      object Label26: TLabel
        Caption = 'Recordnumber'
        Left = 8
        Top = 432
        Width = 70
        Height = 13
      end
      object lRecNo: TLabel
        Caption = '-'
        Left = 112
        Top = 432
        Width = 3
        Height = 13
      end
      object Label35: TLabel
        Caption = 'Old VALUE'
        Left = 8
        Top = 408
        Width = 54
        Height = 13
      end
      object lOldValue: TLabel
        Caption = '.'
        Left = 112
        Top = 408
        Width = 3
        Height = 13
      end
      object Button6: TButton
        Caption = 'Def. Fields'
        TabOrder = 0
        Left = 156
        Top = 7
        Width = 61
        Height = 20
        OnClick = Button6Click
      end
      object Button7: TButton
        Caption = 'Open'
        TabOrder = 1
        Left = 156
        Top = 52
        Width = 61
        Height = 20
        OnClick = Button7Click
      end
      object Button8: TButton
        Caption = 'Close'
        TabOrder = 2
        Left = 156
        Top = 85
        Width = 61
        Height = 20
        OnClick = Button8Click
      end
      object Button1: TButton
        Caption = 'Generate'
        TabOrder = 3
        Left = 156
        Top = 221
        Width = 61
        Height = 20
        OnClick = Button1Click
      end
      object eRecordCount: TEdit
        TabOrder = 4
        Text = '100'
        Left = 156
        Top = 112
        Width = 61
        Height = 21
      end
      object chbEnableIndexes: TCheckBox
        Caption = 'Update indexes'
        Checked = True
        State = cbChecked
        TabOrder = 5
        Left = 8
        Top = 152
        Width = 137
        Height = 17
        OnClick = chbEnableIndexesClick
      end
      object chbRandomColor: TCheckBox
        Caption = 'Random COLOR data'
        Checked = True
        State = cbChecked
        TabOrder = 6
        Left = 8
        Top = 176
        Width = 97
        Height = 17
      end
      object chbGenerateMemos: TCheckBox
        Caption = 'Generate memos'
        Checked = True
        State = cbChecked
        TabOrder = 7
        Left = 8
        Top = 200
        Width = 129
        Height = 17
      end
      object Button13: TButton
        Caption = 'AppendRecord'
        TabOrder = 8
        Left = 128
        Top = 253
        Width = 89
        Height = 20
        OnClick = Button13Click
      end
      object Button10: TButton
        Caption = 'Goto 10'
        TabOrder = 9
        Left = 144
        Top = 296
        Width = 75
        Height = 17
        OnClick = Button10Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Load/Save'
      object Label19: TLabel
        AutoSize = False
        Caption = 
          'Check this, press the save above, after always with this checked' +
          ' press Load'
        WordWrap = True
        Left = 13
        Top = 259
        Width = 210
        Height = 30
      end
      object lblLZH: TLabel
        Caption = ' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Left = 12
        Top = 294
        Width = 5
        Height = 13
      end
      object PageControl2: TPageControl
        ActivePage = TabSheet5
        Align = alClient
        TabOrder = 0
        TabPosition = tpBottom
        Left = 0
        Top = 72
        Width = 227
        Height = 380
        object TabSheet5: TTabSheet
          Caption = 'Copy, Save, Load'
          object Label1: TLabel
            AutoSize = False
            Caption = 'Copy structur and data from another datasource.'
            WordWrap = True
            Left = 7
            Top = 92
            Width = 137
            Height = 26
          end
          object Label2: TLabel
            AutoSize = False
            Caption = 'Save contents in a file, incl. blobs'
            WordWrap = True
            Left = 7
            Top = 229
            Width = 137
            Height = 26
          end
          object Label3: TLabel
            AutoSize = False
            Caption = 'Load data from a file'
            WordWrap = True
            Left = 7
            Top = 268
            Width = 137
            Height = 26
          end
          object Label20: TLabel
            AutoSize = False
            Caption = 
              'Check Blob InMemory Compression before loading the table and the' +
              ' Blob fIelds will be transparently de/compressed using less memo' +
              'ry'
            WordWrap = True
            Left = 6
            Top = 21
            Width = 209
            Height = 61
          end
          object Button9: TButton
            Caption = 'Copy'
            TabOrder = 0
            Left = 156
            Top = 92
            Width = 61
            Height = 19
            OnClick = Button9Click
          end
          object Button2: TButton
            Caption = 'Save'
            TabOrder = 1
            Left = 156
            Top = 229
            Width = 61
            Height = 19
            OnClick = Button2Click
          end
          object Button3: TButton
            Caption = 'Load'
            TabOrder = 2
            Left = 156
            Top = 268
            Width = 61
            Height = 19
            OnClick = Button3Click
          end
          object BlobCompression: TCheckBox
            Caption = 'Blob InMemory Compression'
            TabOrder = 3
            Left = 6
            Top = -1
            Width = 204
            Height = 17
          end
          object BinarySave: TCheckBox
            Caption = 'Save/Load as binary'
            TabOrder = 4
            Left = 7
            Top = 130
            Width = 143
            Height = 14
            OnClick = BinarySaveClick
          end
          object chbSaveIndexDef: TCheckBox
            Caption = 'Save index definitions too'
            TabOrder = 5
            Left = 8
            Top = 152
            Width = 201
            Height = 17
          end
          object chbSaveDeltas: TCheckBox
            Caption = 'Save deltas too (only if binary checked)'
            Enabled = False
            TabOrder = 6
            Left = 8
            Top = 176
            Width = 209
            Height = 17
          end
          object chbNoQuotes: TCheckBox
            Caption = 'No quotes'
            TabOrder = 7
            Left = 8
            Top = 200
            Width = 97
            Height = 17
          end
        end
        object TabSheet6: TTabSheet
          Caption = 'CommaText'
          object Label4: TLabel
            AutoSize = False
            Caption = 
              'Save contents in CSV format in the memo. Note that Blobs doesnt ' +
              'get saved.'
            WordWrap = True
            Left = 7
            Top = 7
            Width = 111
            Height = 59
          end
          object Label5: TLabel
            AutoSize = False
            Caption = 'Load contents from CSV formatted memo.'
            WordWrap = True
            Left = 7
            Top = 79
            Width = 111
            Height = 32
          end
          object Button4: TButton
            Caption = 'Get CommaText'
            TabOrder = 0
            Left = 124
            Top = 27
            Width = 91