source: trunk/Forms/FormGameSystems.lfm

Last change on this file was 320, checked in by chronos, 6 months ago
  • Fixed: Show toolbars hints.
File size: 2.4 KB
Line 
1object FormGameSystems: TFormGameSystems
2 Left = 1080
3 Height = 300
4 Top = 570
5 Width = 400
6 Caption = 'Game systems'
7 ClientHeight = 300
8 ClientWidth = 400
9 DesignTimePPI = 144
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnShow = FormShow
13 LCLVersion = '3.4.0.0'
14 object ListView1: TListView
15 Left = 0
16 Height = 262
17 Top = 0
18 Width = 400
19 Align = alClient
20 Columns = <
21 item
22 Caption = 'Name'
23 Width = 466
24 end>
25 MultiSelect = True
26 OwnerData = True
27 ParentFont = False
28 PopupMenu = PopupMenu1
29 ReadOnly = True
30 RowSelect = True
31 TabOrder = 0
32 ViewStyle = vsReport
33 OnData = ListView1Data
34 OnDblClick = AModifyExecute
35 OnKeyPress = ListView1KeyPress
36 OnSelectItem = ListView1SelectItem
37 end
38 object ToolBar1: TToolBar
39 Left = 0
40 Height = 38
41 Top = 262
42 Width = 400
43 Align = alBottom
44 Images = Core.ImageListSmall
45 ParentFont = False
46 ParentShowHint = False
47 ShowHint = True
48 TabOrder = 1
49 object ToolButton1: TToolButton
50 Left = 1
51 Top = 2
52 Action = AAdd
53 end
54 object ToolButton2: TToolButton
55 Left = 36
56 Top = 2
57 Action = AModify
58 end
59 object ToolButton3: TToolButton
60 Left = 71
61 Top = 2
62 Action = ARemove
63 end
64 object ToolButton4: TToolButton
65 Left = 106
66 Top = 2
67 Action = AClone
68 end
69 end
70 object ActionList1: TActionList
71 Images = Core.ImageListSmall
72 Left = 208
73 Top = 163
74 object AAdd: TAction
75 Caption = 'Add'
76 ImageIndex = 16
77 OnExecute = AAddExecute
78 end
79 object AModify: TAction
80 Caption = 'Modify'
81 ImageIndex = 6
82 OnExecute = AModifyExecute
83 end
84 object ARemove: TAction
85 Caption = 'Remove'
86 ImageIndex = 18
87 OnExecute = ARemoveExecute
88 end
89 object AClone: TAction
90 Caption = 'Clone'
91 ImageIndex = 17
92 end
93 object ASelectAll: TAction
94 Caption = 'Select all'
95 OnExecute = ASelectAllExecute
96 ShortCut = 16449
97 end
98 end
99 object PopupMenu1: TPopupMenu
100 Images = Core.ImageListSmall
101 Left = 352
102 Top = 160
103 object MenuItem1: TMenuItem
104 Action = AAdd
105 end
106 object MenuItem2: TMenuItem
107 Action = AModify
108 end
109 object MenuItem3: TMenuItem
110 Action = ARemove
111 end
112 object MenuItem4: TMenuItem
113 Action = AClone
114 end
115 object MenuItem5: TMenuItem
116 Action = ASelectAll
117 end
118 end
119end
Note: See TracBrowser for help on using the repository browser.