/Demos/RecordVersions/uMainForm.dfm

http://kblib.googlecode.com/ · Unknown · 111 lines · 111 code · 0 blank · 0 comment · 0 complexity · 9eb91779978285a591d879453125e5fb MD5 · raw file 

    

  1. object frmMain: TfrmMain

    2. 

  2.   Left = 0

    3. 

  3.   Top = 0

    4. 

  4.   Caption = 'TKBDynamic - example of record versioning'

    5. 

  5.   ClientHeight = 435

    6. 

  6.   ClientWidth = 718

    7. 

  7.   Color = clBtnFace

    8. 

  8.   Font.Charset = DEFAULT_CHARSET

    9. 

  9.   Font.Color = clWindowText

    10. 

  10.   Font.Height = -11

    11. 

  11.   Font.Name = 'Tahoma'

    12. 

  12.   Font.Style = []

    13. 

  13.   OldCreateOrder = False

    14. 

  14.   OnCreate = FormCreate

    15. 

  15.   DesignSize = (

    16. 

  16.     718

    17. 

  17.     435)

    18. 

  18.   PixelsPerInch = 96

    19. 

  19.   TextHeight = 13

    20. 

  20.   object mText: TMemo

    21. 

  21.     Left = 8

    22. 

  22.     Top = 107

    23. 

  23.     Width = 702

    24. 

  24.     Height = 320

    25. 

  25.     Anchors = [akLeft, akTop, akRight, akBottom]

    26. 

  26.     Lines.Strings = (

    27. 

  27.       '(Click "Load V1" or "Load V2")')

    28. 

  28.     ScrollBars = ssBoth

    29. 

  29.     TabOrder = 0

    30. 

  30.   end

    31. 

  31.   object edtName: TEdit

    32. 

  32.     Left = 8

    33. 

  33.     Top = 79

    34. 

  34.     Width = 341

    35. 

  35.     Height = 21

    36. 

  36.     Anchors = [akLeft, akTop, akRight]

    37. 

  37.     TabOrder = 1

    38. 

  38.   end

    39. 

  39.   object seId: TSpinEdit

    40. 

  40.     Left = 355

    41. 

  41.     Top = 79

    42. 

  42.     Width = 121

    43. 

  43.     Height = 22

    44. 

  44.     Anchors = [akTop, akRight]

    45. 

  45.     MaxValue = 0

    46. 

  46.     MinValue = 0

    47. 

  47.     TabOrder = 2

    48. 

  48.     Value = 0

    49. 

  49.   end

    50. 

  50.   object gbOld: TGroupBox

    51. 

  51.     Left = 8

    52. 

  52.     Top = 8

    53. 

  53.     Width = 185

    54. 

  54.     Height = 65

    55. 

  55.     Caption = 'First version of record'

    56. 

  56.     TabOrder = 3

    57. 

  57.     object btnLoadV1: TButton

    58. 

  58.       Left = 16

    59. 

  59.       Top = 24

    60. 

  60.       Width = 75

    61. 

  61.       Height = 25

    62. 

  62.       Caption = 'Load V1'

    63. 

  63.       TabOrder = 0

    64. 

  64.       OnClick = btnLoadV1Click

    65. 

  65.     end

    66. 

  66.     object btnSaveV1: TButton

    67. 

  67.       Left = 97

    68. 

  68.       Top = 24

    69. 

  69.       Width = 75

    70. 

  70.       Height = 25

    71. 

  71.       Caption = 'Save V1'

    72. 

  72.       TabOrder = 1

    73. 

  73.       OnClick = btnSaveV1Click

    74. 

  74.     end

    75. 

  75.   end

    76. 

  76.   object GroupBox1: TGroupBox

    77. 

  77.     Left = 199

    78. 

  78.     Top = 8

    79. 

  79.     Width = 185

    80. 

  80.     Height = 65

    81. 

  81.     Caption = 'Second version of record'

    82. 

  82.     TabOrder = 4

    83. 

  83.     object btnLoadV2: TButton

    84. 

  84.       Left = 16

    85. 

  85.       Top = 24

    86. 

  86.       Width = 75

    87. 

  87.       Height = 25

    88. 

  88.       Caption = 'Load V1/V2'

    89. 

  89.       TabOrder = 0

    90. 

  90.       OnClick = btnLoadV2Click

    91. 

  91.     end

    92. 

  92.     object btnSaveV2: TButton

    93. 

  93.       Left = 97

    94. 

  94.       Top = 24

    95. 

  95.       Width = 75

    96. 

  96.       Height = 25

    97. 

  97.       Caption = 'Save V2'

    98. 

  98.       TabOrder = 1

    99. 

  99.       OnClick = btnSaveV2Click

    100. 

  100.     end

    101. 

  101.   end

    102. 

  102.   object chkNewField: TCheckBox

    103. 

  103.     Left = 482

    104. 

  104.     Top = 81

    105. 

  105.     Width = 228

    106. 

  106.     Height = 17

    107. 

  107.     Anchors = [akTop, akRight]

    108. 

  108.     Caption = 'NewField (only in second version of record)'

    109. 

  109.     TabOrder = 5

    110. 

  110.   end

    111. 

  111. end
    112.