Changeset 30 for trunk/Forms/UItemEdit.lfm
- Timestamp:
- Nov 24, 2011, 8:35:25 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UItemEdit.lfm
r23 r30 1 1 object ItemEditForm: TItemEditForm 2 Left = 251 3 Height = 423 4 Top = 92 5 Width = 552 6 ActiveControl = Panel1 2 Left = 274 3 Height = 486 4 Top = 137 5 Width = 608 7 6 Caption = 'Edit item' 8 ClientHeight = 4 239 ClientWidth = 5527 ClientHeight = 486 8 ClientWidth = 608 10 9 OnClose = FormClose 11 10 OnCreate = FormCreate … … 13 12 OnShow = FormShow 14 13 LCLVersion = '0.9.31' 15 object Panel1: TPanel16 Left = 017 Height = 38018 Top = 019 Width = 55220 Align = alTop21 Anchors = [akLeft, akRight, akBottom]22 BevelOuter = bvNone23 TabOrder = 024 end25 14 object ButtonCancel: TButton 26 Left = 37815 Left = 434 27 16 Height = 25 28 Top = 39417 Top = 457 29 18 Width = 75 30 19 Anchors = [akRight, akBottom] 31 20 Caption = 'Cancel' 32 21 OnClick = ButtonCancelClick 33 TabOrder = 122 TabOrder = 0 34 23 end 35 24 object ButtonSave: TButton 36 Left = 46625 Left = 522 37 26 Height = 25 38 Top = 39427 Top = 457 39 28 Width = 75 40 29 Anchors = [akRight, akBottom] 41 30 Caption = 'Save' 42 31 OnClick = ButtonSaveClick 32 TabOrder = 1 33 end 34 object Panel1: TPanel 35 Left = 0 36 Height = 451 37 Top = 0 38 Width = 608 39 Align = alTop 40 Anchors = [akTop, akLeft, akRight, akBottom] 41 BevelOuter = bvNone 42 ClientHeight = 451 43 ClientWidth = 608 43 44 TabOrder = 2 45 object Splitter1: TSplitter 46 Cursor = crVSplit 47 Left = 0 48 Height = 3 49 Top = 248 50 Width = 608 51 Align = alBottom 52 ResizeAnchor = akBottom 53 end 54 object PanelControls: TPanel 55 Left = 0 56 Height = 248 57 Top = 0 58 Width = 608 59 Align = alClient 60 Anchors = [akLeft, akRight, akBottom] 61 BevelOuter = bvNone 62 TabOrder = 1 63 end 64 object Panel2: TPanel 65 Left = 0 66 Height = 200 67 Top = 251 68 Width = 608 69 Align = alBottom 70 BevelOuter = bvNone 71 ClientHeight = 200 72 ClientWidth = 608 73 TabOrder = 2 74 object TabControl1: TTabControl 75 Left = 0 76 Height = 24 77 Top = 0 78 Width = 608 79 TabStop = False 80 OnChange = TabControl1Change 81 TabIndex = 0 82 Tabs.Strings = ( 83 'Tab1' 84 'Tab2' 85 'Tab3' 86 ) 87 Align = alTop 88 TabOrder = 0 89 end 90 object ListView1: TListView 91 Left = 0 92 Height = 144 93 Top = 24 94 Width = 608 95 Align = alClient 96 Columns = <> 97 OwnerData = True 98 ReadOnly = True 99 RowSelect = True 100 TabOrder = 1 101 ViewStyle = vsReport 102 OnData = ListView1Data 103 OnDblClick = ListView1DblClick 104 OnKeyPress = ListView1KeyPress 105 OnResize = ListView1Resize 106 OnSelectItem = ListView1SelectItem 107 end 108 object Panel3: TPanel 109 Left = 0 110 Height = 32 111 Top = 168 112 Width = 608 113 Align = alBottom 114 BevelOuter = bvNone 115 ClientHeight = 32 116 ClientWidth = 608 117 TabOrder = 2 118 object ButtonAdd: TButton 119 Left = 8 120 Height = 25 121 Top = 6 122 Width = 64 123 Caption = 'Add' 124 OnClick = ButtonAddClick 125 TabOrder = 0 126 end 127 object ButtonDelete: TButton 128 Left = 80 129 Height = 25 130 Top = 6 131 Width = 67 132 Caption = 'Delete' 133 OnClick = ButtonDeleteClick 134 TabOrder = 1 135 end 136 object ButtonView: TButton 137 Left = 156 138 Height = 25 139 Top = 6 140 Width = 64 141 Caption = 'View' 142 OnClick = ButtonViewClick 143 TabOrder = 2 144 end 145 object ButtonEdit: TButton 146 Left = 226 147 Height = 25 148 Top = 6 149 Width = 62 150 Caption = 'Edit' 151 OnClick = ButtonEditClick 152 TabOrder = 3 153 end 154 end 155 end 44 156 end 45 157 end
Note:
See TracChangeset
for help on using the changeset viewer.