source: Registry/Demo/UFormMain.lfm

Last change on this file was 539, checked in by chronos, 5 years ago
  • Added: Allow to add, edit and delete registry values.
File size: 2.6 KB
Line 
1object FormMain: TFormMain
2 Left = 354
3 Height = 682
4 Top = 285
5 Width = 1061
6 Caption = 'General registry editor'
7 ClientHeight = 648
8 ClientWidth = 1061
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 OnShow = FormShow
12 LCLVersion = '2.0.2.0'
13 object StatusBar1: TStatusBar
14 Left = 0
15 Height = 28
16 Top = 620
17 Width = 1061
18 Panels = <>
19 ParentFont = False
20 end
21 object TreeView1: TTreeView
22 Left = 0
23 Height = 620
24 Top = 0
25 Width = 336
26 Align = alLeft
27 ParentFont = False
28 TabOrder = 1
29 end
30 object Splitter1: TSplitter
31 Left = 336
32 Height = 620
33 Top = 0
34 Width = 7
35 end
36 object ListView1: TListView
37 Left = 343
38 Height = 620
39 Top = 0
40 Width = 718
41 Align = alClient
42 Columns = <
43 item
44 Caption = 'Name'
45 Width = 226
46 end
47 item
48 Caption = 'Type'
49 Width = 226
50 end
51 item
52 Caption = 'Value'
53 Width = 251
54 end>
55 OwnerData = True
56 ParentFont = False
57 PopupMenu = PopupMenuValue
58 ReadOnly = True
59 RowSelect = True
60 TabOrder = 3
61 ViewStyle = vsReport
62 OnData = ListView1Data
63 OnDblClick = ListView1DblClick
64 end
65 object MainMenu1: TMainMenu
66 left = 192
67 top = 108
68 object MenuItem1: TMenuItem
69 Caption = 'File'
70 object MenuItem2: TMenuItem
71 Action = AImport
72 end
73 object MenuItem3: TMenuItem
74 Action = AExport
75 end
76 end
77 end
78 object ActionList1: TActionList
79 left = 192
80 top = 192
81 object AImport: TAction
82 Caption = 'Import'
83 end
84 object AExport: TAction
85 Caption = 'Export'
86 end
87 object AConnectionAdd: TAction
88 Caption = 'Add connection'
89 OnExecute = AConnectionAddExecute
90 end
91 object AConnectionDelete: TAction
92 Caption = 'Delete connection'
93 end
94 object AConnectionModify: TAction
95 Caption = 'Modify connection'
96 end
97 object AValueAdd: TAction
98 Caption = 'Add'
99 OnExecute = AValueAddExecute
100 end
101 object AValueDelete: TAction
102 Caption = 'Delete'
103 OnExecute = AValueDeleteExecute
104 end
105 object AValueEdit: TAction
106 Caption = 'Edit'
107 OnExecute = AValueEditExecute
108 end
109 end
110 object PopupMenuValue: TPopupMenu
111 left = 590
112 top = 212
113 object MenuItem4: TMenuItem
114 Action = AValueAdd
115 end
116 object MenuItem5: TMenuItem
117 Action = AValueEdit
118 end
119 object MenuItem6: TMenuItem
120 Action = AValueDelete
121 end
122 end
123end
Note: See TracBrowser for help on using the repository browser.