erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-10-11 00:17:28 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

feat(developer): handle form factor in platform options

Browse source
This commit is contained in:
Marc Durdin 2021-09-13 15:51:20 +10:00
parent f022a121df
commit 4aeb06f98d
1 changed files with 33 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
windows/src/developer/TIKE/debug/UfrmDebugStatus_Options.pas
View file

@ -55,14 +55,17 @@ const
PLATFORM_OS_ANDROID = 3;
PLATFORM_OS_IOS = 4;
PlatformFormFactor: array[0..2] of string = (
'Desktop',
PlatformFormFactor_Desktop: array[0..0] of string = (
'Desktop'
);
PLATFORM_FF_DESKTOP_DESKTOP = 0;
PlatformFormFactor_NonDesktop: array[0..1] of string = (
'Tablet',
'Phone'
);
PLATFORM_FF_DESKTOP = 0;
PLATFORM_FF_TABLET = 1;
PLATFORM_FF_PHONE = 2;
PLATFORM_FF_NONDESKTOP_TABLET = 1;
PLATFORM_FF_NONDESKTOP_PHONE = 2;
PlatformApplication: array[0..1] of string = (
'Native',
@ -103,6 +106,22 @@ begin
SetPlatform;
end;
procedure Fill(cb: TComboBox; const a: array of string);
var
s: string;
n: Integer;
begin
n := cb.ItemIndex;
cb.Clear;
cb.Items.BeginUpdate;
for s in a do
cb.Items.Add(s);
cb.Items.EndUpdate;
if (n < cb.Items.Count) and (n > 0)
then cb.ItemIndex := n
else cb.ItemIndex := 0;
end;
procedure TfrmDebugStatus_Options.EnableControlsAndSetValues;
begin
// Here we enable the specific allowable combinations of various
@ -114,22 +133,25 @@ begin
begin
cbPlatformUI.ItemIndex := PLATFORM_UI_HARDWARE;
cbPlatformUI.Enabled := False;
cbPlatformFormFactor.ItemIndex := PLATFORM_FF_DESKTOP;
Fill(cbPlatformFormFactor, PlatformFormFactor_Desktop);
cbPlatformFormFactor.ItemIndex := PLATFORM_FF_DESKTOP_DESKTOP;
cbPlatformFormFactor.Enabled := False;
end;
PLATFORM_OS_IOS:
begin
cbPlatformUI.ItemIndex := PLATFORM_UI_HARDWARE;
cbPlatformUI.Enabled := False;
if cbPlatformFormFactor.ItemIndex = PLATFORM_FF_DESKTOP then
cbPlatformFormFactor.ItemIndex := PLATFORM_FF_TABLET;
Fill(cbPlatformFormFactor, PlatformFormFactor_NonDesktop);
if cbPlatformFormFactor.ItemIndex < 0 then
cbPlatformFormFactor.ItemIndex := PLATFORM_FF_NONDESKTOP_TABLET;
cbPlatformFormFactor.Enabled := True;
end;
PLATFORM_OS_ANDROID:
begin
cbPlatformUI.Enabled := True;
if cbPlatformFormFactor.ItemIndex = PLATFORM_FF_DESKTOP then
cbPlatformFormFactor.ItemIndex := PLATFORM_FF_TABLET;
Fill(cbPlatformFormFactor, PlatformFormFactor_NonDesktop);
if cbPlatformFormFactor.ItemIndex < 0 then
cbPlatformFormFactor.ItemIndex := PLATFORM_FF_NONDESKTOP_TABLET;
cbPlatformFormFactor.Enabled := True;
end;
end;
@ -148,22 +170,11 @@ begin
end;
procedure TfrmDebugStatus_Options.FormCreate(Sender: TObject);
procedure Fill(cb: TComboBox; const a: array of string);
var
s: string;
begin
cb.Clear;
cb.Items.BeginUpdate;
for s in a do
cb.Items.Add(s);
cb.Items.EndUpdate;
cb.ItemIndex := 0;
end;
begin
inherited;
Fill(cbPlatformOS, PlatformOS);
Fill(cbPlatformUI, PlatformUI);
Fill(cbPlatformFormFactor, PlatformFormFactor);
// cbPlatformFormFactor is filled based on state of cbPlatformOS
Fill(cbPlatformApplication, PlatformApplication);
Fill(cbPlatformBrowser, PlatformBrowser);
end;