source: trunk/Forms/UFormTables.lfm

Last change on this file was 28, checked in by chronos, 20 months ago
  • Modified: Do not create all application forms at initialization phase but dynamically.
File size: 2.6 KB
Line 
1object FormTables: TFormTables
2 Left = 731
3 Height = 792
4 Top = 117
5 Width = 1174
6 Caption = 'Tables'
7 ClientHeight = 792
8 ClientWidth = 1174
9 DesignTimePPI = 144
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnShow = FormShow
13 LCLVersion = '2.2.2.0'
14 object ListViewTables: TListView
15 Left = 5
16 Height = 739
17 Top = 5
18 Width = 1164
19 Align = alClient
20 BorderSpacing.Around = 5
21 Columns = <
22 item
23 Caption = 'Name'
24 Width = 600
25 end
26 item
27 Caption = 'Records'
28 Width = 549
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 = 43
43 Top = 749
44 Width = 1174
45 Align = alBottom
46 ButtonHeight = 38
47 ButtonWidth = 38
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 = 39
59 Top = 2
60 Action = AModify
61 end
62 object ToolButton3: TToolButton
63 Left = 77
64 Top = 2
65 Action = ARemove
66 end
67 object ToolButton4: TToolButton
68 Left = 115
69 Top = 2
70 Action = AShowRecords
71 end
72 object ToolButton5: TToolButton
73 Left = 153
74 Top = 2
75 Action = AShowFields
76 end
77 end
78 object ActionList1: TActionList
79 Images = Core.ImageList1
80 Left = 368
81 Top = 173
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 = 557
111 Top = 173
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.