source: trunk/Core.lfm

Last change on this file was 23, checked in by chronos, 5 days ago
  • Modified: All unit renamed to names without U prefix.
  • Modified: Removed global form variables.
  • Modified: Code cleanup.
File size: 3.5 KB
Line 
1object Core: TCore
2 OnCreate = DataModuleCreate
3 OnDestroy = DataModuleDestroy
4 OldCreateOrder = False
5 Height = 653
6 HorizontalOffset = 1060
7 VerticalOffset = 515
8 Width = 1039
9 PPI = 144
10 object ActionList1: TActionList
11 Images = ImageList1
12 Left = 432
13 Top = 264
14 object AQuit: TAction
15 Caption = 'Quit'
16 Hint = 'Quit'
17 OnExecute = AQuitExecute
18 end
19 object ASettings: TAction
20 Caption = 'Settings'
21 OnExecute = ASettingsExecute
22 ShortCut = 121
23 end
24 object AAbout: TAction
25 Caption = 'About'
26 end
27 object AHelp: TAction
28 Caption = 'Help'
29 ShortCut = 112
30 end
31 object AViewFavorites: TAction
32 Caption = 'Favorites'
33 end
34 object AProjectOpen: TAction
35 Category = 'Project'
36 Caption = 'Open...'
37 OnExecute = AProjectOpenExecute
38 ShortCut = 16463
39 end
40 object AProjectClose: TAction
41 Category = 'Project'
42 Caption = 'Close'
43 OnExecute = AProjectCloseExecute
44 end
45 object ACommandUpdate: TAction
46 Caption = 'Update'
47 OnExecute = ACommandUpdateExecute
48 end
49 object ACommandCleanup: TAction
50 Caption = 'Cleanup'
51 OnExecute = ACommandCleanupExecute
52 end
53 object ACommandCommit: TAction
54 Caption = 'Commit'
55 OnExecute = ACommandCommitExecute
56 end
57 object ACommandStatus: TAction
58 Caption = 'Status'
59 end
60 object AProjectCheckout: TAction
61 Category = 'Project'
62 Caption = 'Checkout...'
63 OnExecute = AProjectCheckoutExecute
64 end
65 object AViewTest: TAction
66 Caption = 'Test'
67 OnExecute = AViewTestExecute
68 ShortCut = 16468
69 end
70 object AProjectGroupNew: TAction
71 Category = 'ProjectGroup'
72 Caption = 'New'
73 OnExecute = AProjectGroupNewExecute
74 end
75 object AProjectGroupOpen: TAction
76 Category = 'ProjectGroup'
77 Caption = 'Open...'
78 OnExecute = AProjectGroupOpenExecute
79 end
80 object AProjectGroupClose: TAction
81 Category = 'ProjectGroup'
82 Caption = 'Close'
83 OnExecute = AProjectGroupCloseExecute
84 end
85 object AProjectGroupSave: TAction
86 Category = 'ProjectGroup'
87 Caption = 'Save'
88 OnExecute = AProjectGroupSaveExecute
89 end
90 object AProjectGroupSaveAs: TAction
91 Category = 'ProjectGroup'
92 Caption = 'Save as...'
93 OnExecute = AProjectGroupSaveAsExecute
94 end
95 object ARepositoryCreate: TAction
96 Caption = 'Create'
97 OnExecute = ARepositoryCreateExecute
98 end
99 end
100 object ImageList1: TImageList
101 Height = 32
102 Width = 32
103 Left = 432
104 Top = 360
105 end
106 object OpenDialog1: TOpenDialog
107 Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
108 Left = 432
109 Top = 144
110 end
111 object XMLConfig1: TXMLConfig
112 StartEmpty = False
113 RootName = 'CONFIG'
114 ReadOnly = False
115 Left = 144
116 Top = 144
117 end
118 object LastOpenedListProject: TLastOpenedList
119 MaxCount = 10
120 OnChange = LastOpenedListProjectChange
121 Left = 144
122 Top = 252
123 end
124 object LastOpenedListRepoURL: TLastOpenedList
125 MaxCount = 10
126 Left = 144
127 Top = 360
128 end
129 object LastOpenedListNewDir: TLastOpenedList
130 MaxCount = 10
131 Left = 697
132 Top = 454
133 end
134 object LastOpenedListProjectGroup: TLastOpenedList
135 MaxCount = 10
136 OnChange = LastOpenedListProjectGroupChange
137 Left = 696
138 Top = 336
139 end
140 object SaveDialog1: TSaveDialog
141 DefaultExt = '.vcgrp'
142 Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
143 Left = 432
144 Top = 36
145 end
146end
Note: See TracBrowser for help on using the repository browser.