pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:TRxLoginDialog - support for i18n. patch from Michal Gawrycki with small corrections

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-12-12 06:37:09 +00:00
parent e224f3a826
commit a0367219ee
23 changed files with 220 additions and 223 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/rx/trunk/demos/RxLogin/unit1.lfm
View File

@ -4,8 +4,25 @@ object Form1: TForm1
Top = 285
Width = 455
Caption = 'RxLogin demo'
ClientHeight = 335
ClientWidth = 455
Position = poScreenCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
Top = 287
Width = 443
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
end
object RxLoginDialog1: TRxLoginDialog
DetailItems.Strings = (
'Line 1'

3
components/rx/trunk/demos/RxLogin/unit1.pas
View File

@ -5,13 +5,14 @@ unit Unit1;
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, rxlogin;
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);