DEADSOFTWARE

Two small additional fixes for Lazarus
[d2df-editor.git] / src / editor / f_selectlang.pas
1 unit f_selectlang;
3 {$INCLUDE ../shared/a_modes.inc}
5 interface
7 uses
8 LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
9 Dialogs, StdCtrls;
11 type
12 TSelectLanguageForm = class(TForm)
13 Button1: TButton;
14 Button2: TButton;
15 Label1: TLabel;
16 procedure FormActivate(Sender: TObject);
18 private
19 { Private declarations }
20 public
21 { Public declarations }
22 end;
24 var
25 SelectLanguageForm: TSelectLanguageForm;
27 implementation
29 {$R *.lfm}
31 procedure TSelectLanguageForm.FormActivate(Sender: TObject);
32 begin
33 Button1.ModalResult := 1;
34 Button2.ModalResult := 2;
35 end;
37 end.