You've already forked lazarus-ccr
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:
@ -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;
|
||||
|
Reference in New Issue
Block a user