source: trunk/Forms/FormTables.lfm

Last change on this file was 32, checked in by chronos, 6 months ago
  • Modified: Removed U prefix from units names.
  • Modified: Use TFormEx for all forms.
File size: 2.6 KB
Line 
1object FormTables: TFormTables
2 Left = 731
3 Height = 688
4 Top = 117
5 Width = 1019
6 Caption = 'Tables'
7 ClientHeight = 688
8 ClientWidth = 1019
9 DesignTimePPI = 125
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnShow = FormShow
13 LCLVersion = '3.2.0.0'
14 object ListViewTables: TListView
15 Left = 4
16 Height = 643
17 Top = 4
18 Width = 1011
19 Align = alClient
20 BorderSpacing.Around = 4
21 Columns = <
22 item
23 Caption = 'Name'
24 Width = 521
25 end
26 item
27 Caption = 'Records'
28 Width = 477
29 end>
30 OwnerData = True
31 PopupMenu = PopupMenu1
32 ReadOnly = True
33 RowSelect = True
34 TabOrder = 0
35 ViewStyle = vsReport
36 OnData = ListViewTablesData
37 OnDblClick = AShowRecordsExecute
38 OnSelectItem = ListViewTablesSelectItem
39 end
40 object ToolBar1: TToolBar
41 Left = 0
42 Height = 37
43 Top = 651
44 Width = 1019
45 Align = alBottom
46 ButtonHeight = 33
47 ButtonWidth = 33
48 Images = Core.ImageList1
49 ParentShowHint = False
50 ShowHint = True
51 TabOrder = 1
52 object ToolButton1: TToolButton
53 Left = 1
54 Top = 2
55 Action = AAdd
56 end
57 object ToolButton2: TToolButton
58 Left = 37
59 Top = 2
60 Action = AModify
61 end
62 object ToolButton3: TToolButton
63 Left = 73
64 Top = 2
65 Action = ARemove
66 end
67 object ToolButton4: TToolButton
68 Left = 109
69 Top = 2
70 Action = AShowRecords
71 end
72 object ToolButton5: TToolButton
73 Left = 145
74 Top = 2
75 Action = AShowFields
76 end
77 end
78 object ActionList1: TActionList
79 Images = Core.ImageList1
80 Left = 319
81 Top = 150
82 object AAdd: TAction
83 Caption = 'Add'
84 ImageIndex = 5
85 OnExecute = AAddExecute
86 end
87 object AModify: TAction
88 Caption = 'Modify'
89 ImageIndex = 3
90 OnExecute = AModifyExecute
91 end
92 object ARemove: TAction
93 Caption = 'Remove'
94 ImageIndex = 4
95 OnExecute = ARemoveExecute
96 end
97 object AShowRecords: TAction
98 Caption = 'Records'
99 ImageIndex = 7
100 OnExecute = AShowRecordsExecute
101 end
102 object AShowFields: TAction
103 Caption = 'Design'
104 ImageIndex = 6
105 OnExecute = AShowFieldsExecute
106 end
107 end
108 object PopupMenu1: TPopupMenu
109 Images = Core.ImageList1
110 Left = 484
111 Top = 150
112 object MenuItem4: TMenuItem
113 Action = AShowRecords
114 Default = True
115 end
116 object MenuItem1: TMenuItem
117 Action = AAdd
118 end
119 object MenuItem2: TMenuItem
120 Action = AModify
121 end
122 object MenuItem3: TMenuItem
123 Action = ARemove
124 end
125 object MenuItem5: TMenuItem
126 Action = AShowFields
127 end
128 end
129end
Note: See TracBrowser for help on using the repository browser.