Hi all.
I'm on a PC with the Italian language and an Italian true keyboard.
In the VCL software, I would like to use the TTouchKeyboard.
Is a technical software where I need to force TTouchKeyoard to display US keyboard layout,
because chars as [ ] | # etc are mandatory instead of accented èéòàù of specific Italian layout.
I've imported the Vcl.Touch.Keyboard.pas in project to add minor graphics changes, which works fine,
but I'm not able to understand how to force English layout.
I've tried to change CreateKeyboard method to say "use alwyas 'en' but doesn't works.
function TCustomTouchKeyboard.CreateKeyboard(const Language: string): Boolean;
var
Index, RowIndex, ColIndex: Integer;
Button: TCustomKeyboardButton;
LeftPosition, TopPosition: Integer;
KeyboardState: TKeyboardState;
KeyboardLayout: TVirtualKeyLayout;
Row: TVirtualKeys;
FoundCaps: Boolean;
_Language: string;
begin
Result := False;
FoundCaps := False;
for Index := 0 to FButtons.Count - 1 do
FButtons[Index].Free;
FButtons.Clear;
FDeadKey := VKey(-1, -1);
TopPosition := 0;
_Language := 'en';
if _Language <> '' then
FLanguage := _Language;
The result is always:
There is a way to force it ?