From Clomosy Docs
(Created page with "The clStrToLan function operates based on the language setting of the device where the application is being used. It processes by using the vertical bar '|' as a separator. The sentence on the left side of the separator is defined in English, while the one on the right side is defined in Turkish. BtnOk.Text := clStrToLan('Ok|Tamam'); '''Example:'''<br> Change your device's language settings to Turkish or English so you can see this feature change. var MyForm:TclF...") |
No edit summary |
||
| Line 29: | Line 29: | ||
MyForm.Run; | MyForm.Run; | ||
end; | end; | ||
= See Also = | |||
* [[Controls| Controls]] | |||
Revision as of 06:32, 24 January 2024
The clStrToLan function operates based on the language setting of the device where the application is being used. It processes by using the vertical bar '|' as a separator. The sentence on the left side of the separator is defined in English, while the one on the right side is defined in Turkish.
BtnOk.Text := clStrToLan('Ok|Tamam');
Example:
Change your device's language settings to Turkish or English so you can see this feature change.
var
MyForm:TclForm;
testBtn : TclButton;
procedure deviceLanguageSupport;
begin
ShowMessage(clStrToLan('Ok|Tamam'));
end;
begin
MyForm := TclForm.Create(Self);
testBtn:= MyForm.AddNewButton(MyForm,'testBtn','Send message according to device language support...');
testBtn.TextSettings.Font.Size:=20;
testBtn.Align := alCenter;
testBtn.Height := 50;
testBtn.Width := 300;
MyForm.AddNewEvent(testBtn,tbeOnClick,'deviceLanguageSupport');
MyForm.Run;
end;