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

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

View File

@ -264,7 +264,7 @@ const
implementation
uses Messages, RXCtrls, rxconst, rxtooledit, rxlclutils, math, LCLStrConsts, LResources;
uses Messages, RXCtrls, rxconst, rxtooledit, rxlclutils, math, LResources;
{$R pickdate.res}
@ -1348,7 +1348,7 @@ begin
begin
Parent := Control;
SetBounds(0, 0, 112, 21);
Caption := rsmbOK;
Caption := GetButtonCaption(idButtonOk);
ModalResult := mrOk;
end;
@ -1356,7 +1356,7 @@ begin
begin
Parent := Control;
SetBounds(111, 0, 111, 21);
Caption := rsmbCancel;
Caption := GetButtonCaption(idButtonCancel);
ModalResult := mrCancel;
Cancel := True;
end;