PageRenderTime 44ms CodeModel.GetById 22ms RepoModel.GetById 0ms app.codeStats 0ms

/Demos/RecordVersions/uMainForm.dfm

http://kblib.googlecode.com/
Unknown | 111 lines | 111 code | 0 blank | 0 comment | 0 complexity | 9eb91779978285a591d879453125e5fb MD5 | raw file
Possible License(s): GPL-2.0, LGPL-3.0
  1. object 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
  111. end