src/editor/f_choosetype.pas

   1 unit f_choosetype;
   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   TChooseTypeForm = class (TForm)
  13     lbTypeSelect: TListBox;
  14     bOK: TButton;
  15
  16   private
  17     { Private declarations }
  18   public
  19     { Public declarations }
  20   end;
  21
  22 var
  23   ChooseTypeForm: TChooseTypeForm;
  24
  25 implementation
  26
  27 {$R *.lfm}
  28
  29 end.