source: trunk/Forms/FormRecords.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.0 KB
Line 
1object FormRecords: TFormRecords
2 Left = 621
3 Height = 824
4 Top = 308
5 Width = 1346
6 Caption = 'Records'
7 ClientHeight = 824
8 ClientWidth = 1346
9 DesignTimePPI = 144
10 OnShow = FormShow
11 Position = poMainFormCenter
12 LCLVersion = '2.2.2.0'
13 object ListViewRecords: TListView
14 Left = 6
15 Height = 758
16 Top = 6
17 Width = 1334
18 Align = alClient
19 BorderSpacing.Around = 6
20 Columns = <
21 item
22 Caption = 'Name'
23 Width = 750
24 end
25 item
26 Caption = 'Records'
27 Width = 680
28 end>
29 OwnerData = True
30 PopupMenu = PopupMenu1
31 ReadOnly = True
32 RowSelect = True
33 TabOrder = 0
34 ViewStyle = vsReport
35 OnData = ListViewRecordsData
36 OnDblClick = AModifyExecute
37 OnSelectItem = ListViewRecordsSelectItem
38 end
39 object ToolBar1: TToolBar
40 Left = 0
41 Height = 54
42 Top = 770
43 Width = 1346
44 Align = alBottom
45 ButtonHeight = 48
46 ButtonWidth = 48
47 Images = Core.ImageList1
48 ParentShowHint = False
49 ShowHint = True
50 TabOrder = 1
51 object ToolButton1: TToolButton
52 Left = 1
53 Top = 2
54 Action = AAdd
55 end
56 object ToolButton2: TToolButton
57 Left = 49
58 Top = 2
59 Action = AModify
60 end
61 object ToolButton3: TToolButton
62 Left = 97
63 Top = 2
64 Action = ARemove
65 end
66 end
67 object ActionList1: TActionList
68 Images = Core.ImageList1
69 Left = 525
70 Top = 252
71 object AAdd: TAction
72 Caption = 'Add'
73 ImageIndex = 5
74 OnExecute = AAddExecute
75 end
76 object AModify: TAction
77 Caption = 'Modify'
78 ImageIndex = 3
79 OnExecute = AModifyExecute
80 end
81 object ARemove: TAction
82 Caption = 'Remove'
83 ImageIndex = 4
84 OnExecute = ARemoveExecute
85 end
86 end
87 object PopupMenu1: TPopupMenu
88 Images = Core.ImageList1
89 Left = 738
90 Top = 258
91 object MenuItem1: TMenuItem
92 Action = AAdd
93 end
94 object MenuItem2: TMenuItem
95 Action = AModify
96 Default = True
97 end
98 object MenuItem3: TMenuItem
99 Action = ARemove
100 end
101 end
102end
Note: See TracBrowser for help on using the repository browser.