home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d3456 / ACF10CE.ZIP / NyBckTest.dfm / NyBckTest.txt
Encoding:
Text File  |  2001-09-10  |  4.7 KB  |  215 lines

  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 108
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'TNyBck Test Program.'
  7.   ClientHeight = 372
  8.   ClientWidth = 410
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = True
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Gauge1: TGauge
  21.     Left = 64
  22.     Top = 336
  23.     Width = 321
  24.     Height = 28
  25.     BackColor = clNavy
  26.     Color = clBtnFace
  27.     ForeColor = clPurple
  28.     MaxValue = 0
  29.     ParentColor = False
  30.     Progress = 0
  31.     Visible = False
  32.   end
  33.   object Label1: TLabel
  34.     Left = 8
  35.     Top = 344
  36.     Width = 48
  37.     Height = 13
  38.     Caption = 'Progres:'
  39.     Font.Charset = DEFAULT_CHARSET
  40.     Font.Color = clWindowText
  41.     Font.Height = -11
  42.     Font.Name = 'MS Sans Serif'
  43.     Font.Style = [fsBold]
  44.     ParentFont = False
  45.     Visible = False
  46.   end
  47.   object Label2: TLabel
  48.     Left = 56
  49.     Top = 168
  50.     Width = 69
  51.     Height = 13
  52.     Caption = 'Memo Field:'
  53.     Font.Charset = DEFAULT_CHARSET
  54.     Font.Color = clWindowText
  55.     Font.Height = -11
  56.     Font.Name = 'MS Sans Serif'
  57.     Font.Style = [fsBold]
  58.     ParentFont = False
  59.   end
  60.   object Label3: TLabel
  61.     Left = 56
  62.     Top = 248
  63.     Width = 82
  64.     Height = 13
  65.     Caption = 'Progres State:'
  66.     Font.Charset = DEFAULT_CHARSET
  67.     Font.Color = clWindowText
  68.     Font.Height = -11
  69.     Font.Name = 'MS Sans Serif'
  70.     Font.Style = [fsBold]
  71.     ParentFont = False
  72.   end
  73.   object DBGrid1: TDBGrid
  74.     Left = 56
  75.     Top = 64
  76.     Width = 321
  77.     Height = 105
  78.     DataSource = DataSource1
  79.     TabOrder = 0
  80.     TitleFont.Charset = DEFAULT_CHARSET
  81.     TitleFont.Color = clWindowText
  82.     TitleFont.Height = -11
  83.     TitleFont.Name = 'MS Sans Serif'
  84.     TitleFont.Style = []
  85.   end
  86.   object DBNavigator1: TDBNavigator
  87.     Left = 16
  88.     Top = 24
  89.     Width = 240
  90.     Height = 25
  91.     DataSource = DataSource1
  92.     ConfirmDelete = False
  93.     TabOrder = 1
  94.   end
  95.   object DBMemo1: TDBMemo
  96.     Left = 56
  97.     Top = 184
  98.     Width = 321
  99.     Height = 57
  100.     DataField = 'Memofield'
  101.     DataSource = DataSource1
  102.     ScrollBars = ssVertical
  103.     TabOrder = 2
  104.   end
  105.   object Memo1: TMemo
  106.     Left = 56
  107.     Top = 264
  108.     Width = 321
  109.     Height = 65
  110.     ScrollBars = ssVertical
  111.     TabOrder = 3
  112.   end
  113.   object Button1: TButton
  114.     Left = 288
  115.     Top = 8
  116.     Width = 75
  117.     Height = 25
  118.     Caption = '&Export'
  119.     Font.Charset = DEFAULT_CHARSET
  120.     Font.Color = clWindowText
  121.     Font.Height = -11
  122.     Font.Name = 'MS Sans Serif'
  123.     Font.Style = [fsBold]
  124.     ParentFont = False
  125.     TabOrder = 4
  126.     OnClick = Button1Click
  127.   end
  128.   object Button2: TButton
  129.     Left = 288
  130.     Top = 32
  131.     Width = 75
  132.     Height = 25
  133.     Caption = '&Import'
  134.     Font.Charset = DEFAULT_CHARSET
  135.     Font.Color = clWindowText
  136.     Font.Height = -11
  137.     Font.Name = 'MS Sans Serif'
  138.     Font.Style = [fsBold]
  139.     ParentFont = False
  140.     TabOrder = 5
  141.     OnClick = Button2Click
  142.   end
  143.   object Table1: TTable
  144.     OnCalcFields = Table1CalcFields
  145.     TableName = 'test.db'
  146.     Left = 200
  147.     Top = 160
  148.     object Table1Alphafield: TStringField
  149.       DisplayWidth = 11
  150.       FieldName = 'Alpha field'
  151.       Size = 10
  152.     end
  153.     object Table1Alpha2: TStringField
  154.       DisplayWidth = 15
  155.       FieldName = 'Alpha2'
  156.       Size = 10
  157.     end
  158.     object Table1Integerfield: TFloatField
  159.       DisplayWidth = 12
  160.       FieldName = 'Integer field'
  161.     end
  162.     object Table1Memofield: TMemoField
  163.       FieldName = 'Memofield'
  164.       Visible = False
  165.       BlobType = ftMemo
  166.       Size = 240
  167.     end
  168.     object Table1Calcfield: TStringField
  169.       DisplayWidth = 15
  170.       FieldKind = fkCalculated
  171.       FieldName = 'Calcfield'
  172.       Calculated = True
  173.     end
  174.   end
  175.   object DataSource1: TDataSource
  176.     DataSet = Table1
  177.     Left = 296
  178.     Top = 160
  179.   end
  180.   object SaveDialog1: TSaveDialog
  181.     DefaultExt = 'Bck'
  182.     Filter = 'Bck Files (*.Bck)|*.Bck'
  183.     Left = 16
  184.     Top = 128
  185.   end
  186.   object OpenDialog1: TOpenDialog
  187.     DefaultExt = 'Bck'
  188.     Filter = 'BCK Files (*.Bck)|*.Bck'
  189.     Left = 16
  190.     Top = 88
  191.   end
  192.   object NyBck1: TNyBck
  193.     Dataset = Table1
  194.     Delimiter = '"'
  195.     SilentImport = True
  196.     FieldIndicator = '$'
  197.     Seprator = ','
  198.     CSVMap = '$Alpha field,$Alpha2,$integer field,$Memofield'
  199.     BeforeOpenTable = NyBck1BeforeOpenTable
  200.     AfterOpenTable = NyBck1AfterOpenTable
  201.     BeforeCloseTable = NyBck1BeforeCloseTable
  202.     AfterCloseTable = NyBck1AfterCloseTable
  203.     BeforeImport = NyBck1BeforeImport
  204.     AfterImport = NyBck1AfterImport
  205.     BeforeExport = NyBck1BeforeExport
  206.     AfterExport = NyBck1AfterExport
  207.     ExportProgress = NyBck1ExportProgress
  208.     ImportProgress = NyBck1ImportProgress
  209.     OnAddRecord = NyBck1AddRecord
  210.     ImportError = NyBck1ImportError
  211.     Left = 376
  212.     Top = 24
  213.   end
  214. end
  215.