paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: updating schema selection dialog to recognize additional custom schemas, issue #39805

Browse Source
This commit is contained in:
Dmitry Boyarintsev 2022-06-19 15:09:28 -04:00 committed by Maxim Ganetsky
parent 905bf25a94
commit 83cb0631ad
1 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ide/keymapschemedlg.pas
View File

@ -47,6 +47,7 @@ type
private
function GetKeymapScheme: string;
procedure SetKeymapScheme(const AValue: string);
procedure UpdateColumns;
public
property KeymapScheme: string read GetKeymapScheme write SetKeymapScheme;// untranslated
end;
@ -72,6 +73,8 @@ end;
{ TChooseKeySchemeDlg }
procedure TChooseKeySchemeDlg.ChooseKeySchemeDlgCREATE(Sender: TObject);
var
i : integer;
begin
Caption:=lisKMChooseKeymappingScheme;
NoteLabel.Caption:=lisKMNoteAllKeysWillBeSetToTheValuesOfTheChosenScheme;
@ -89,6 +92,12 @@ begin
Add(lisKMDefaultToOSX);
// do not add custom
end;
// searching configuration files on the main thread is not really good
LoadCustomKeySchemas;
for i:=0 to CustomKeySchemas.Count-1 do
SchemeRadiogroup.Items.Add(CustomKeySchemas[i]);
UpdateColumns;
end;
procedure TChooseKeySchemeDlg.HelpButtonClick(Sender: TObject);
@ -109,15 +118,30 @@ end;
procedure TChooseKeySchemeDlg.SetKeymapScheme(const AValue: string);
var
kms: TKeyMapScheme;
i : integer;
begin
kms:=KeySchemeNameToSchemeType(AValue);
if kms=kmsCustom then begin
if SchemeRadiogroup.Items.Count<=ord(kms) then
SchemeRadiogroup.Items.Add(AValue)
else
SchemeRadiogroup.Items[SchemeRadiogroup.Items.Count-1]:=AValue;
end;
SchemeRadiogroup.ItemIndex:=ord(kms);
i := CustomKeySchemas.IndexOf(AValue);
if i < 0 then begin
if (SchemeRadiogroup.Items.IndexOf(AValue)<0) then
i := SchemeRadiogroup.Items.Add(AValue)
else
i := SchemeRadiogroup.Items.Count-1;
end else
i := i + Ord(kmsCustom);
end else
i := ord(kms);
SchemeRadiogroup.ItemIndex:=i;
UpdateColumns;
end;
procedure TChooseKeySchemeDlg.UpdateColumns;
begin
if (SchemeRadiogroup.Items.Count>8) then
SchemeRadiogroup.Columns := 2
else
SchemeRadiogroup.Columns := 1;
end;
end.