Chip 2002 September/Chip_2002-09_cd1.bin/zkuste/delphi/kompon/d23456/SDFDATA.ZIP/Unit1.dfm

Text File | 2002-01-03 | 5.5 KB | 266 lines

object Form1: TForm1
  Left = 192
  Top = 107
  BorderStyle = bsSingle
  Caption = 'SDFDataSet Demo'
  ClientHeight = 375
  ClientWidth = 472
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object LblNote: TLabel
    Left = 8
    Top = 360
    Width = 296
    Height = 13
    Caption =
      'Note: Results are saved to '#39'TempFile.txt'#39' for this demonstration' +
      '.'
  end
  object DBNavigator1: TDBNavigator
    Left = 224
    Top = 192
    Width = 240
    Height = 22
    DataSource = DataSource
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object BtnActiveGrid: TButton
    Left = 7
    Top = 192
    Width = 75
    Height = 22
    Caption = '&Open'
    TabOrder = 1
    OnClick = BtnActiveGridClick
  end
  object GrdEdit: TDBGrid
    Left = 7
    Top = 214
    Width = 458
    Height = 120
    DataSource = DataSource
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object PnlOptions: TPanel
    Left = 0
    Top = 0
    Width = 473
    Height = 185
    BevelOuter = bvNone
    TabOrder = 3
    object MemoFile: TMemo
      Left = 6
      Top = 31
      Width = 314
      Height = 105
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
      WordWrap = False
    end
    object MemoSchema: TMemo
      Left = 326
      Top = 31
      Width = 137
      Height = 105
      TabOrder = 1
    end
    object PnlFile: TPanel
      Left = 7
      Top = 8
      Width = 313
      Height = 23
      BevelInner = bvLowered
      Caption = 'Text File'
      TabOrder = 2
      object BtnLoadFile: TButton
        Tag = 1
        Left = 271
        Top = 3
        Width = 39
        Height = 17
        Caption = 'Load...'
        TabOrder = 0
        OnClick = BtnLoadFileClick
      end
    end
    object PnlSchema: TPanel
      Left = 327
      Top = 8
      Width = 137
      Height = 23
      BevelInner = bvLowered
      Caption = 'Scheme'
      TabOrder = 3
      object BtnLoadSchema: TButton
        Tag = 2
        Left = 95
        Top = 3
        Width = 39
        Height = 17
        Caption = 'Load...'
        TabOrder = 0
        OnClick = BtnLoadFileClick
      end
    end
    object RGrpFormat: TRadioGroup
      Left = 7
      Top = 142
      Width = 185
      Height = 41
      Caption = 'File columns are'
      Columns = 2
      Items.Strings = (
        'Fixed Size'
        'Delimited')
      TabOrder = 4
      OnClick = RGrpFormatClick
    end
    object PnlCSVOptions: TPanel
      Left = 199
      Top = 147
      Width = 265
      Height = 35
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 5
      Visible = False
      object Label1: TLabel
        Left = 8
        Top = 11
        Width = 57
        Height = 13
        Caption = 'Delimited by'
      end
      object EdtDelimiter: TEdit
        Left = 71
        Top = 9
        Width = 16
        Height = 21
        MaxLength = 1
        TabOrder = 0
        Text = ','
      end
      object ChkFirstLineSchema: TCheckBox
        Left = 104
        Top = 10
        Width = 145
        Height = 17
        Alignment = taLeftJustify
        BiDiMode = bdLeftToRight
        Caption = 'Use First Line as Schema'
        ParentBiDiMode = False
        TabOrder = 1
      end
    end
  end
  object ChkFilter: TCheckBox
    Left = 96
    Top = 192
    Width = 113
    Height = 17
    Caption = 'Filter odd records'
    Enabled = False
    TabOrder = 4
    OnClick = ChkFilterClick
  end
  object CBxFieldList: TComboBox
    Left = 8
    Top = 336
    Width = 97
    Height = 21
    ItemHeight = 13
    Sorted = True
    TabOrder = 5
  end
  object EdtValue: TEdit
    Left = 112
    Top = 336
    Width = 121
    Height = 21
    TabOrder = 6
  end
  object ChkCase: TCheckBox
    Left = 272
    Top = 340
    Width = 89
    Height = 17
    Caption = 'Ignore Case'
    Checked = True
    State = cbChecked
    TabOrder = 7
  end
  object ChkPartial: TCheckBox
    Left = 360
    Top = 341
    Width = 105
    Height = 17
    Caption = 'Partial Key'
    Checked = True
    State = cbChecked
    TabOrder = 8
  end
  object BtnFind: TButton
    Left = 232
    Top = 336
    Width = 33
    Height = 21
    Caption = '&Find'
    TabOrder = 9
    OnClick = BtnFindClick
  end
  object SdfDataSet: TSdfDataSet
    FileMustExist = True
    ReadOnly = False
    FileName = '.\TempFile.txt'
    FieldDefs = <>
    OnFilterRecord = FixedDataSetFilterRecord
    Delimiter = ','
    FirstLineAsSchema = False
    Left = 408
    Top = 88
  end
  object FixedDataSet: TFixedFormatDataSet
    FileMustExist = True
    ReadOnly = False
    FileName = '.\TempFile.txt'
    FieldDefs = <
      item
        Name = 'Line'
        DataType = ftString
        Size = 74
      end>
    OnFilterRecord = FixedDataSetFilterRecord
    Left = 376
    Top = 88
  end
  object DataSource: TDataSource
    DataSet = FixedDataSet
    Left = 344
    Top = 88
  end
  object OpenDialog: TOpenDialog
    Left = 344
    Top = 48
  end
end