src/editor/f_selectlang.pas

   1 unit f_selectlang;
   2
   3 {$INCLUDE ../shared/a_modes.inc}
   4
   5 interface
   6
   7 uses
   8   LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   9   Dialogs, StdCtrls;
  10
  11 type
  12   TSelectLanguageForm = class(TForm)
  13     Button1: TButton;
  14     Button2: TButton;
  15     Label1: TLabel;
  16     procedure FormActivate(Sender: TObject);
  17
  18   private
  19     { Private declarations }
  20   public
  21     { Public declarations }
  22   end;
  23
  24 var
  25   SelectLanguageForm: TSelectLanguageForm;
  26
  27 implementation
  28
  29 {$R *.lfm}
  30
  31 procedure TSelectLanguageForm.FormActivate(Sender: TObject);
  32 begin
  33   Button1.ModalResult := 1;
  34   Button2.ModalResult := 2;
  35 end;
  36
  37 end.