mirror of
https://github.com/keymanapp/keyman.git
synced 2026-10-06 14:07:32 +00:00
62dd0de786
Some checks failed
Keyman Build Summary / Summarize build status checks (push) Has been cancelled
What we was needed was the ability to recompile installed keyboards against a basekeyboard id. MCompileForBaseKeyboard which will take the base keyboard id. This allows the call to be done elevated and seperates out the actuall selecting the base keyboard.
136 lines
3.4 KiB
ObjectPascal
136 lines
3.4 KiB
ObjectPascal
(*
|
|
Name: keymanoptions
|
|
Copyright: Copyright (C) SIL International.
|
|
Documentation:
|
|
Description:
|
|
Create Date: 20 Jun 2006
|
|
|
|
Modified Date: 6 Feb 2015
|
|
Authors: mcdurdin
|
|
Related Files:
|
|
Dependencies:
|
|
|
|
Bugs:
|
|
Todo:
|
|
Notes:
|
|
History: 20 Jun 2006 - mcdurdin - Initial version
|
|
01 Aug 2006 - mcdurdin - Add AutoRefershKeyman call
|
|
12 Aug 2008 - mcdurdin - Avoid crash with missing options
|
|
12 Mar 2010 - mcdurdin - I2230 - Resolve crashes due to incorrect reference counting
|
|
01 Jan 2013 - mcdurdin - I3717 - V9.0 - Need ability to select base keyboard in Keyman Configuration
|
|
17 Jan 2013 - mcdurdin - I3759 - V9.0 - UnderlyingLayout stores a HKL in the registry but expects a KLID in the code
|
|
16 Apr 2014 - mcdurdin - I4169 - V9.0 - Mnemonic layouts should be recompiled to positional based on user-selected base keyboard
|
|
*)
|
|
unit keymanoptions;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.Win.ComObj,
|
|
System.Win.StdVCL,
|
|
Winapi.ActiveX,
|
|
|
|
keymanapi_TLB,
|
|
keymanautoobject,
|
|
KeymanContext,
|
|
keymanoption,
|
|
internalinterfaces,
|
|
utilkeymanoption;
|
|
|
|
type
|
|
TKeymanOptionList = TAutoObjectList;
|
|
|
|
TKeymanOptions = class(TKeymanAutoCollectionObject, IKeymanOptions, IIntKeymanOptions)
|
|
private
|
|
FKeymanOptions: TKeymanOptionList;
|
|
FInternalOptions: TUtilKeymanOptions;
|
|
protected
|
|
procedure DoRefresh; override;
|
|
|
|
{ IKeymanOptions }
|
|
function Get_Items(Index: OleVariant): IKeymanOption; safecall;
|
|
|
|
procedure Apply; safecall;
|
|
function IndexOf(const ID: WideString): Integer; safecall;
|
|
public
|
|
constructor Create(AContext: TKeymanContext);
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Winapi.Windows,
|
|
System.SysUtils,
|
|
System.Variants,
|
|
|
|
ErrorControlledRegistry,
|
|
RegistryKeys,
|
|
Glossary,
|
|
isadmin,
|
|
Keyman.System.BaseKeyboard,
|
|
KeymanOptionNames,
|
|
keymanerrorcodes;
|
|
|
|
constructor TKeymanOptions.Create(AContext: TKeymanContext);
|
|
begin
|
|
FKeymanOptions := TKeymanOptionList.Create;
|
|
inherited Create(AContext, IKeymanOptions, FKeymanOptions);
|
|
FInternalOptions := TUtilKeymanOptions.Create;
|
|
Refresh;
|
|
end;
|
|
|
|
destructor TKeymanOptions.Destroy;
|
|
begin
|
|
FKeymanOptions.Free;
|
|
FInternalOptions.Free;
|
|
inherited;
|
|
end;
|
|
|
|
function TKeymanOptions.Get_Items(Index: OleVariant): IKeymanOption;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
Result := nil;
|
|
if VarType(Index) = varOleStr
|
|
then i := IndexOf(Index)
|
|
else i := Index;
|
|
|
|
if (i < Get_Count) and (i >= 0)
|
|
then Result := FKeymanOptions[i] as IKeymanOption
|
|
else ErrorFmt(KMN_E_Collection_InvalidIndex, VarArrayOf([VarToStr(Index)]));
|
|
end;
|
|
|
|
function TKeymanOptions.IndexOf(const ID: WideString): Integer;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
for i := 0 to Get_Count - 1 do
|
|
if AnsiCompareText(ID, (FKeymanOptions[i] as IKeymanOption).ID) = 0 then
|
|
Exit(i);
|
|
Result := -1;
|
|
end;
|
|
|
|
procedure TKeymanOptions.Apply;
|
|
begin
|
|
FInternalOptions.Save(Context);
|
|
Context.Control.AutoApplyKeyman;
|
|
end;
|
|
|
|
procedure TKeymanOptions.DoRefresh;
|
|
var
|
|
i: TUtilKeymanOption;
|
|
v: IKeymanOption;
|
|
begin
|
|
FKeymanOptions.Clear;
|
|
FInternalOptions.Load;
|
|
for i := Low(TUtilKeymanOption) to High(TUtilKeymanOption) do
|
|
if FInternalOptions.Option[i] <> nil then
|
|
FKeymanOptions.Add(TKeymanOption.Create(Context, FInternalOptions.Option[i]));
|
|
|
|
v := Get_Items('koBaseLayout');
|
|
if v.Value = v.DefaultValue then
|
|
v.Value := TBaseKeyboard.GetDefaultBaseLayoutID;
|
|
end;
|
|
|
|
end.
|