source: tags/1.3.0/LocalPlayer/UKeyBindings.pas

Last change on this file was 387, checked in by chronos, 3 years ago
  • Added: New action keys for quick switching between units. "Next Unit" Insert key and "Previous Unit" Delete key.
File size: 12.3 KB
Line 
1unit UKeyBindings;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils, fgl, LCLProc, LCLType, Menus, Registry;
9
10type
11
12 { TKeyBinding }
13
14 TKeyBinding = class
15 ShortName: string;
16 FullName: string;
17 ShortCut: TShortCut;
18 ShortCut2: TShortCut;
19 DefaultShortCut: TShortCut;
20 DefaultShortCut2: TShortCut;
21 function Test(AShortCut: TShortCut): Boolean;
22 procedure Assign(Source: TKeyBinding);
23 procedure SetDefault;
24 end;
25
26 { TKeyBindings }
27
28 TKeyBindings = class(TFPGObjectList<TKeyBinding>)
29 private
30 public
31 function AddItem(const ShortName, FullName: string; ShortCut: TShortCut; ShortCut2: TShortCut = 0): TKeyBinding; overload;
32 function AddItem(const ShortName, FullName: string; ShortCutText: string; ShortCutText2: string = ''): TKeyBinding; overload;
33 function Search(ShortName: string): TKeyBinding;
34 procedure LoadFromRegistry(RootKey: HKEY; Key: string);
35 procedure SaveToRegistry(RootKey: HKEY; Key: string);
36 procedure LoadToStrings(Strings: TStrings);
37 procedure Assign(Source: TKeyBindings);
38 procedure ResetToDefault;
39 procedure RemoveShortCut(ShortCut: TShortCut);
40 end;
41
42var
43 KeyBindings: TKeyBindings;
44 BEndTurn: TKeyBinding;
45 BHelp: TKeyBinding;
46 BUnitStat: TKeyBinding;
47 BCityStat: TKeyBinding;
48 BScienceStat: TKeyBinding;
49 BEUnitStat: TKeyBinding;
50 BDiagram: TKeyBinding;
51 BWonders: TKeyBinding;
52 BShips: TKeyBinding;
53 BNations: TKeyBinding;
54 BEmpire: TKeyBinding;
55 BFullScreen: TKeyBinding;
56 BResign: TKeyBinding;
57 BRandomMap: TKeyBinding;
58 BDisbandUnit: TKeyBinding;
59 BFortify: TKeyBinding;
60 BCenterUnit: TKeyBinding;
61 BStay: TKeyBinding;
62 BNoOrders: TKeyBinding;
63 BPrevUnit: TKeyBinding;
64 BNextUnit: TKeyBinding;
65 BCancel: TKeyBinding;
66 BPillage: TKeyBinding;
67 BSelectTransport: TKeyBinding;
68 BTechTree: TKeyBinding;
69 BWait: TKeyBinding;
70 BJump: TKeyBinding;
71 BMapBtn0: TKeyBinding;
72 BMapBtn1: TKeyBinding;
73 BMapBtn4: TKeyBinding;
74 BMapBtn5: TKeyBinding;
75 BMapBtn6: TKeyBinding;
76 BSetDebugMap0: TKeyBinding;
77 BSetDebugMap1: TKeyBinding;
78 BSetDebugMap2: TKeyBinding;
79 BSetDebugMap3: TKeyBinding;
80 BSetDebugMap4: TKeyBinding;
81 BSetDebugMap5: TKeyBinding;
82 BSetDebugMap6: TKeyBinding;
83 BSetDebugMap7: TKeyBinding;
84 BSetDebugMap8: TKeyBinding;
85 BSetDebugMap9: TKeyBinding;
86 BDebugMap: TKeyBinding;
87 BLocCodes: TKeyBinding;
88 BLogDlg: TKeyBinding;
89 BNames: TKeyBinding;
90 BRun: TKeyBinding;
91 BTestMapRepaint: TKeyBinding;
92 BSetViewpoint0: TKeyBinding;
93 BSetViewpoint1: TKeyBinding;
94 BSetViewpoint2: TKeyBinding;
95 BSetViewpoint3: TKeyBinding;
96 BSetViewpoint4: TKeyBinding;
97 BSetViewpoint5: TKeyBinding;
98 BSetViewpoint6: TKeyBinding;
99 BSetViewpoint7: TKeyBinding;
100 BSetViewpoint8: TKeyBinding;
101 BSetViewpoint9: TKeyBinding;
102 BAirBase: TKeyBinding;
103 BBuildCity: TKeyBinding;
104 BEnhance: TKeyBinding;
105 BGoOn: TKeyBinding;
106 BHome: TKeyBinding;
107 BFarmClearIrrigation: TKeyBinding;
108 BLoad: TKeyBinding;
109 BAfforestMine: TKeyBinding;
110 BCanal: TKeyBinding;
111 BTrans: TKeyBinding;
112 BPollution: TKeyBinding;
113 BRailRoad: TKeyBinding;
114 BUnload: TKeyBinding;
115 BRecover: TKeyBinding;
116 BUtilize: TKeyBinding;
117 BMoveLeftDown: TKeyBinding;
118 BMoveDown: TKeyBinding;
119 BMoveRightDown: TKeyBinding;
120 BMoveRight: TKeyBinding;
121 BMoveRightUp: TKeyBinding;
122 BMoveUp: TKeyBinding;
123 BMoveLeftUp: TKeyBinding;
124 BMoveLeft: TKeyBinding;
125
126
127implementation
128
129{ TKeyBinding }
130
131function TKeyBinding.Test(AShortCut: TShortCut): Boolean;
132begin
133 Result := (AShortCut = ShortCut) or (AShortCut = ShortCut2);
134end;
135
136procedure TKeyBinding.Assign(Source: TKeyBinding);
137begin
138 ShortName := Source.ShortName;
139 FullName := Source.FullName;
140 ShortCut := Source.ShortCut;
141 ShortCut2 := Source.ShortCut2;
142 DefaultShortCut := Source.DefaultShortCut;
143 DefaultShortCut2 := Source.DefaultShortCut2;
144end;
145
146procedure TKeyBinding.SetDefault;
147begin
148 ShortCut := DefaultShortCut;
149 ShortCut2 := DefaultShortCut2;
150end;
151
152{ TKeyBindings }
153
154function TKeyBindings.AddItem(const ShortName, FullName: string; ShortCut: TShortCut;
155 ShortCut2: TShortCut = 0): TKeyBinding;
156begin
157 Result := TKeyBinding.Create;
158 Result.ShortName := ShortName;
159 Result.FullName := FullName;
160 Result.ShortCut := ShortCut;
161 Result.ShortCut2 := ShortCut2;
162 Result.DefaultShortCut := ShortCut;
163 Result.DefaultShortCut2 := ShortCut2;
164 Add(Result);
165end;
166
167function TKeyBindings.AddItem(const ShortName, FullName: string;
168 ShortCutText: string; ShortCutText2: string = ''): TKeyBinding;
169begin
170 Result := AddItem(ShortName, FullName, TextToShortCut(ShortCutText),
171 TextToShortCut(ShortCutText2));
172end;
173
174function TKeyBindings.Search(ShortName: string): TKeyBinding;
175var
176 I: Integer;
177begin
178 I := 0;
179 while (I < Count) and (Items[I].ShortName <> ShortName) do Inc(I);
180 if I < Count then Result := Items[I]
181 else Result := nil;
182end;
183
184procedure TKeyBindings.LoadFromRegistry(RootKey: HKEY; Key: string);
185var
186 I: Integer;
187 Registry: TRegistry;
188 Text: string;
189begin
190 Registry := TRegistry.Create;
191 Registry.RootKey := RootKey;
192 with Registry do
193 try
194 OpenKey(Key, True);
195 for I := 0 to Count - 1 do begin
196 Text := '';
197 if ValueExists(Items[I].ShortName) then begin
198 Text := ReadString(Items[I].ShortName);
199 if Pos(',', Text) > 0 then begin
200 Items[I].ShortCut2 := TextToShortCut(Copy(Text, Pos(',', Text) + 1, MaxInt));
201 Items[I].ShortCut := TextToShortCut(Copy(Text, 1, Pos(',', Text) - 1));
202 end else begin
203 Items[I].ShortCut := TextToShortCut(Text);
204 Items[I].ShortCut2 := 0;
205 end;
206 end else begin
207 Text := ShortCutToText(Items[I].ShortCut);
208 if Items[I].ShortCut2 <> 0 then Text := Text + ',' + ShortCutToText(Items[I].ShortCut2);
209 WriteString(Items[I].ShortName, Text);
210 end;
211 end;
212 finally
213 Free;
214 end;
215end;
216
217procedure TKeyBindings.SaveToRegistry(RootKey: HKEY; Key: string);
218var
219 I: Integer;
220 Registry: TRegistry;
221 Text: string;
222begin
223 Registry := TRegistry.Create;
224 Registry.RootKey := RootKey;
225 with Registry do
226 try
227 OpenKey(Key, True);
228 for I := 0 to Count - 1 do begin
229 Text := ShortCutToText(Items[I].ShortCut);
230 if Items[I].ShortCut2 <> 0 then Text := Text + ',' + ShortCutToText(Items[I].ShortCut2);
231 WriteString(Items[I].ShortName, Text);
232 end;
233 finally
234 Free;
235 end;
236end;
237
238procedure TKeyBindings.LoadToStrings(Strings: TStrings);
239var
240 I: Integer;
241 Text: string;
242begin
243 Strings.Clear;
244 for I := 0 to Count - 1 do begin
245 Text:= '';
246 if Items[I].ShortCut <> 0 then
247 Text:= Text + ShortCutToText(Items[I].ShortCut);
248 if Items[I].ShortCut2 <> 0 then begin
249 if Text <> '' then Text := Text + ', ';
250 Text:= Text + ShortCutToText(Items[I].ShortCut2);
251 end;
252 if Text <> '' then Text := Items[I].FullName + ' (' + Text + ')'
253 else Text := Items[I].FullName;
254 Strings.Add(Text);
255 end;
256end;
257
258procedure TKeyBindings.Assign(Source: TKeyBindings);
259var
260 I: Integer;
261begin
262 while Count < Source.Count do
263 Add(TKeyBinding.Create);
264 while Count > Source.Count do
265 Delete(Count - 1);
266 for I := 0 to Count - 1 do
267 Items[I].Assign(Source.Items[I]);
268end;
269
270procedure TKeyBindings.ResetToDefault;
271var
272 I: Integer;
273begin
274 for I := 0 to Count - 1 do
275 Items[I].SetDefault;
276end;
277
278procedure TKeyBindings.RemoveShortCut(ShortCut: TShortCut);
279var
280 I: Integer;
281begin
282 for I := 0 to Count - 1 do begin
283 if Items[I].ShortCut = ShortCut then Items[I].ShortCut := 0;
284 if Items[I].ShortCut2 = ShortCut then Items[I].ShortCut2 := 0;
285 end;
286end;
287
288
289initialization
290
291KeyBindings := TKeyBindings.Create;
292with KeyBindings do begin
293 BEndTurn := AddItem('EndTurn', 'End turn', 'NumPlus');
294 BHelp := AddItem('Help', 'Help', 'F1');
295 BUnitStat := AddItem('UnitStat', 'Unit stat', 'F2');
296 BCityStat := AddItem('CityStat', 'City stat', 'F3');
297 BScienceStat := AddItem('ScienceStat', 'Science research', 'F4');
298 BEUnitStat := AddItem('EnemyUnitStat', 'Enemy unit stat', 'F5');
299 BDiagram := AddItem('Diagram', 'Charts', 'F6');
300 BWonders := AddItem('Wonders', 'World wonders', 'F7');
301 BShips := AddItem('Ships', 'Colonization ships', 'F8');
302 BNations := AddItem('Nations', 'Nations', 'F9');
303 BEmpire := AddItem('Empire', 'Empire', 'F10');
304 BFullScreen := AddItem('FullScreen', 'Full screen', 'F11');
305 BResign := AddItem('Resign', 'Resign', 'Ctrl+Q');
306 BRandomMap := AddItem('RandomMap', 'Random map', 'Ctrl+R');
307 BDisbandUnit := AddItem('DisbandUnit', 'Disband unit', 'Ctrl+D');
308 BFortify := AddItem('Fortify', 'Fortify', 'F');
309 BCenterUnit := AddItem('CenterUnit', 'Center', 'C');
310 BStay := AddItem('Stay', 'Stay', 'S');
311 BNoOrders := AddItem('NoOrders', 'No orders', 'Space');
312 BPrevUnit := AddItem('PrevUnit', 'Previous unit', 'Del');
313 BNextUnit := AddItem('NextUnit', 'Next unit', 'Ins');
314 BCancel := AddItem('Cancel', 'Cancel', 'Ctrl+C');
315 BPillage := AddItem('Pillage', 'Pillage', 'Ctrl+P');
316 BSelectTransport := AddItem('SelectTransport', 'Select transport', 'Ctrl+T');
317 BTechTree := AddItem('TechTree', 'Tech tree', 'T');
318 BWait := AddItem('Wait', 'Wait', 'W');
319 BJump := AddItem('Jump', 'Jump 20 turns', 'Ctrl+J');
320 BMapBtn0 := AddItem('MapButton1', 'Map button 1', '1');
321 BMapBtn1 := AddItem('MapButton2', 'Map button 2', '2');
322 BMapBtn4 := AddItem('MapButton3', 'Map button 3', '3');
323 BMapBtn5 := AddItem('MapButton4', 'Map button 4', '4');
324 BMapBtn6 := AddItem('MapButton5', 'Map button 5', '5');
325 BSetDebugMap0 := AddItem('SetDebugMap0', 'Set debug map 0', '0');
326 BSetDebugMap1 := AddItem('SetDebugMap1', 'Set debug map 1', '1');
327 BSetDebugMap2 := AddItem('SetDebugMap2', 'Set debug map 2', '2');
328 BSetDebugMap3 := AddItem('SetDebugMap3', 'Set debug map 3', '3');
329 BSetDebugMap4 := AddItem('SetDebugMap4', 'Set debug map 4', '4');
330 BSetDebugMap5 := AddItem('SetDebugMap5', 'Set debug map 5', '5');
331 BSetDebugMap6 := AddItem('SetDebugMap6', 'Set debug map 6', '6');
332 BSetDebugMap7 := AddItem('SetDebugMap7', 'Set debug map 7', '7');
333 BSetDebugMap8 := AddItem('SetDebugMap8', 'Set debug map 8', '8');
334 BSetDebugMap9 := AddItem('SetDebugMap9', 'Set debug map 9', '9');
335 BDebugMap := AddItem('DebugMap', 'Debug map', 'Ctrl+K');
336 BLocCodes := AddItem('LocCodes', 'Location codes', 'Ctrl+L');
337 BLogDlg := AddItem('LogDlg', 'Log dialog', 'Ctrl+M');
338 BNames := AddItem('ShowNames', 'Show names', 'Ctrl+N');
339 BRun := AddItem('Run', 'Run', 'Ctrl+R');
340 BTestMapRepaint := AddItem('TestMapRepaint', 'Test map reapaint', 'Ctrl+Space');
341 BSetViewpoint0 := AddItem('SetViewpoint0', 'Set viewpoint 0', 'Ctrl+0');
342 BSetViewpoint1 := AddItem('SetViewpoint1', 'Set viewpoint 1', 'Ctrl+1');
343 BSetViewpoint2 := AddItem('SetViewpoint2', 'Set viewpoint 2', 'Ctrl+2');
344 BSetViewpoint3 := AddItem('SetViewpoint3', 'Set viewpoint 3', 'Ctrl+3');
345 BSetViewpoint4 := AddItem('SetViewpoint4', 'Set viewpoint', 'Ctrl+4');
346 BSetViewpoint5 := AddItem('SetViewpoint0', 'Set viewpoint', 'Ctrl+5');
347 BSetViewpoint6 := AddItem('SetViewpoint1', 'Set viewpoint', 'Ctrl+6');
348 BSetViewpoint7 := AddItem('SetViewpoint2', 'Set viewpoint', 'Ctrl+7');
349 BSetViewpoint8 := AddItem('SetViewpoint3', 'Set viewpoint', 'Ctrl+8');
350 BSetViewpoint9 := AddItem('SetViewpoint4', 'Set viewpoint', 'Ctrl+9');
351 BAirBase := AddItem('AirBase', 'Air base', 'A');
352 BBuildCity := AddItem('BuildCity', 'Build city', 'B');
353 BEnhance := AddItem('Enhance', 'Enhance', 'E');
354 BGoOn := AddItem('GoOn', 'Go on', 'G');
355 BHome := AddItem('Home', 'Home', 'H');
356 BFarmClearIrrigation := AddItem('FarmClearIrrigation', 'Farm/Clear/Irrigation', 'I');
357 BLoad := AddItem('Load', 'Load', 'L');
358 BAfforestMine := AddItem('AfforestMine', 'Afforest/Mine', 'M');
359 BCanal := AddItem('Canal', 'Canal', 'N');
360 BTrans := AddItem('Trans', 'Trans', 'O');
361 BPollution := AddItem('Pollution', 'Pollution', 'P');
362 BRailRoad := AddItem('RailRoad', 'Rails/Road', 'R');
363 BUnload := AddItem('Unload', 'Unload', 'U');
364 BRecover := AddItem('Recover', 'Recover', 'V');
365 BUtilize := AddItem('Utilize', 'Utilize', 'Z');
366 BMoveLeftDown := AddItem('MoveLeftDown', 'Move unit left-down', 'Num1', 'End');
367 BMoveDown := AddItem('MoveDown', 'Move unit down', 'Num2', 'Down');
368 BMoveRightDown := AddItem('MoveRightDown', 'Move unit right-down', 'Num3', 'PgDn');
369 BMoveRight := AddItem('MoveRight', 'Move unit right', 'Num6', 'Right');
370 BMoveRightUp := AddItem('MoveRightUp', 'Move unit right-up', 'Num9', 'PgUp');
371 BMoveUp := AddItem('MoveUp', 'Move unit up', 'Num8', 'Up');
372 BMoveLeftUp := AddItem('MoveLeftUp', 'Move unit left-up', 'Num7', 'Home');
373 BMoveLeft := AddItem('MoveLeft', 'Move unit left', 'Num4', 'Left');
374end;
375
376
377finalization
378
379FreeAndNil(KeyBindings);
380
381end.
382
Note: See TracBrowser for help on using the repository browser.