src/editor/f_keys.pas

   1 unit f_keys;
   2
   3 {$INCLUDE ../shared/a_modes.inc}
   4
   5 interface
   6
   7 uses
   8   LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes,
   9   Graphics, Controls, Forms, Dialogs, StdCtrls;
  10
  11 type
  12   TKeysForm = class (TForm)
  13   var
  14     cbRedKey: TCheckBox;
  15     cbGreenKey: TCheckBox;
  16     cbBlueKey: TCheckBox;
  17     cbRedTeam: TCheckBox;
  18     cbBlueTeam: TCheckBox;
  19     bOK: TButton;
  20
  21   private
  22     { Private declarations }
  23   public
  24     { Public declarations }
  25   end;
  26
  27 var
  28   KeysForm: TKeysForm;
  29
  30 implementation
  31
  32 {$R *.lfm}
  33
  34 initialization
  35   KeysForm := TKeysForm.Create(Application);
  36 end.