Last change
on this file was 219, checked in by chronos, 5 days ago |
- Modified: Updated Common package.
- Modified: Remove U prefix from unit names.
- Modified: Use Gneeric.Collections instead of fgl.
- Modified: Do not use global form variables.
|
File size:
1.5 KB
|
Line | |
---|
1 | object FormKeyShortcuts: TFormKeyShortcuts
|
---|
2 | Left = 839
|
---|
3 | Height = 329
|
---|
4 | Top = 609
|
---|
5 | Width = 704
|
---|
6 | Caption = 'Key shortcuts'
|
---|
7 | ClientHeight = 329
|
---|
8 | ClientWidth = 704
|
---|
9 | DesignTimePPI = 144
|
---|
10 | OnCreate = FormCreate
|
---|
11 | OnDestroy = FormDestroy
|
---|
12 | OnShow = FormShow
|
---|
13 | LCLVersion = '3.6.0.0'
|
---|
14 | object ListView1: TListView
|
---|
15 | Left = 10
|
---|
16 | Height = 262
|
---|
17 | Top = 10
|
---|
18 | Width = 684
|
---|
19 | Align = alTop
|
---|
20 | Anchors = [akTop, akLeft, akRight, akBottom]
|
---|
21 | BorderSpacing.Around = 10
|
---|
22 | Columns = <
|
---|
23 | item
|
---|
24 | Caption = 'Action'
|
---|
25 | Width = 240
|
---|
26 | end
|
---|
27 | item
|
---|
28 | Caption = 'Window'
|
---|
29 | Width = 240
|
---|
30 | end
|
---|
31 | item
|
---|
32 | Caption = 'Shortcut'
|
---|
33 | Width = 199
|
---|
34 | end>
|
---|
35 | OwnerData = True
|
---|
36 | PopupMenu = PopupMenu1
|
---|
37 | ReadOnly = True
|
---|
38 | RowSelect = True
|
---|
39 | TabOrder = 0
|
---|
40 | ViewStyle = vsReport
|
---|
41 | OnData = ListView1Data
|
---|
42 | OnDblClick = MenuItem1Click
|
---|
43 | OnKeyPress = ListView1KeyPress
|
---|
44 | end
|
---|
45 | object ButtonClose: TButton
|
---|
46 | Left = 581
|
---|
47 | Height = 37
|
---|
48 | Top = 284
|
---|
49 | Width = 113
|
---|
50 | Anchors = [akRight, akBottom]
|
---|
51 | Caption = 'Close'
|
---|
52 | ModalResult = 11
|
---|
53 | TabOrder = 1
|
---|
54 | OnClick = ButtonCloseClick
|
---|
55 | end
|
---|
56 | object PopupMenu1: TPopupMenu
|
---|
57 | Left = 408
|
---|
58 | Top = 144
|
---|
59 | object MenuItem1: TMenuItem
|
---|
60 | Caption = 'Execute'
|
---|
61 | OnClick = MenuItem1Click
|
---|
62 | end
|
---|
63 | end
|
---|
64 | object ListViewSort1: TListViewSort
|
---|
65 | ListView = ListView1
|
---|
66 | OnCompareItem = ListViewSort1CompareItem
|
---|
67 | Column = 0
|
---|
68 | Order = soNone
|
---|
69 | Left = 221
|
---|
70 | Top = 144
|
---|
71 | end
|
---|
72 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.