/Demos/RecordVersions/uMainForm.dfm
Unknown | 111 lines | 111 code | 0 blank | 0 comment | 0 complexity | 9eb91779978285a591d879453125e5fb MD5 | raw file
Possible License(s): GPL-2.0, LGPL-3.0
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