/Demos/RecordVersions/uMainForm.dfm

  1object frmMain: TfrmMain
  2  Left = 0
  3  Top = 0
  4  Caption = 'TKBDynamic - example of record versioning'
  5  ClientHeight = 435
  6  ClientWidth = 718
  7  Color = clBtnFace
  8  Font.Charset = DEFAULT_CHARSET
  9  Font.Color = clWindowText
 10  Font.Height = -11
 11  Font.Name = 'Tahoma'
 12  Font.Style = []
 13  OldCreateOrder = False
 14  OnCreate = FormCreate
 15  DesignSize = (
 16    718
 17    435)
 18  PixelsPerInch = 96
 19  TextHeight = 13
 20  object mText: TMemo
 21    Left = 8
 22    Top = 107
 23    Width = 702
 24    Height = 320
 25    Anchors = [akLeft, akTop, akRight, akBottom]
 26    Lines.Strings = (
 27      '(Click "Load V1" or "Load V2")')
 28    ScrollBars = ssBoth
 29    TabOrder = 0
 30  end
 31  object edtName: TEdit
 32    Left = 8
 33    Top = 79
 34    Width = 341
 35    Height = 21
 36    Anchors = [akLeft, akTop, akRight]
 37    TabOrder = 1
 38  end
 39  object seId: TSpinEdit
 40    Left = 355
 41    Top = 79
 42    Width = 121
 43    Height = 22
 44    Anchors = [akTop, akRight]
 45    MaxValue = 0
 46    MinValue = 0
 47    TabOrder = 2
 48    Value = 0
 49  end
 50  object gbOld: TGroupBox
 51    Left = 8
 52    Top = 8
 53    Width = 185
 54    Height = 65
 55    Caption = 'First version of record'
 56    TabOrder = 3
 57    object btnLoadV1: TButton
 58      Left = 16
 59      Top = 24
 60      Width = 75
 61      Height = 25
 62      Caption = 'Load V1'
 63      TabOrder = 0
 64      OnClick = btnLoadV1Click
 65    end
 66    object btnSaveV1: TButton
 67      Left = 97
 68      Top = 24
 69      Width = 75
 70      Height = 25
 71      Caption = 'Save V1'
 72      TabOrder = 1
 73      OnClick = btnSaveV1Click
 74    end
 75  end
 76  object GroupBox1: TGroupBox
 77    Left = 199
 78    Top = 8
 79    Width = 185
 80    Height = 65
 81    Caption = 'Second version of record'
 82    TabOrder = 4
 83    object btnLoadV2: TButton
 84      Left = 16
 85      Top = 24
 86      Width = 75
 87      Height = 25
 88      Caption = 'Load V1/V2'
 89      TabOrder = 0
 90      OnClick = btnLoadV2Click
 91    end
 92    object btnSaveV2: TButton
 93      Left = 97
 94      Top = 24
 95      Width = 75
 96      Height = 25
 97      Caption = 'Save V2'
 98      TabOrder = 1
 99      OnClick = btnSaveV2Click
100    end
101  end
102  object chkNewField: TCheckBox
103    Left = 482
104    Top = 81
105    Width = 228
106    Height = 17
107    Anchors = [akTop, akRight]
108    Caption = 'NewField (only in second version of record)'
109    TabOrder = 5
110  end
111end