You've already forked lazarus-ccr
a0367219ee
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
66 lines
1.3 KiB
ObjectPascal
66 lines
1.3 KiB
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ButtonPanel, rxlogin;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
ButtonPanel1: TButtonPanel;
|
|
RxLoginDialog1: TRxLoginDialog;
|
|
procedure RxLoginDialog1AfterLogin(Sender: TObject);
|
|
procedure RxLoginDialog1BeforeLogin(Sender: TObject);
|
|
procedure RxLoginDialog1UnlockApp(Sender: TObject; const UserName,
|
|
Password: string; var AllowUnlock: Boolean);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
procedure LocalizeApp;
|
|
implementation
|
|
uses gettext, translations, rxFileUtils;
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure LocalizeApp;
|
|
var
|
|
Lang, FallbackLang: String;
|
|
begin
|
|
GetLanguageIDs(Lang{%H-},FallbackLang{%H-}); // in unit gettext
|
|
TranslateUnitResourceStrings('rxconst', NormalizeDirectoryName('../../languages/rxconst.%s.po'), Lang, FallbackLang);
|
|
TranslateUnitResourceStrings('rxdconst', NormalizeDirectoryName('../../languages/rxdconst.%s.po'), Lang, FallbackLang);
|
|
end;
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.RxLoginDialog1UnlockApp(Sender: TObject; const UserName,
|
|
Password: string; var AllowUnlock: Boolean);
|
|
begin
|
|
ShowMessage('Password = '+ Password);
|
|
AllowUnlock:=true
|
|
end;
|
|
|
|
procedure TForm1.RxLoginDialog1BeforeLogin(Sender: TObject);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
procedure TForm1.RxLoginDialog1AfterLogin(Sender: TObject);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
end.
|
|
|