paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-12 08:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity
376564528b
lazarus/ide/keymapping.pp
lazarus 041250d1cf Changes for wordcompletion and many other things from Mattias. 
Shane

git-svn-id: trunk@186 -
2001-02-20 16:53:27 +00:00

926 lines
30 KiB
ObjectPascal
Raw Blame History

unit keymapping;
{
Author: Mattias Gaertner
Abstract:
Contains classes to store key-command relationships, can update
TSynEditKeyStrokes and provides a dialog for editing a single
commandkey.
ToDo:
}
{$mode objfpc}
interface
uses
LCLLinux,
Forms, Classes, SysUtils, Buttons, LResources, StdCtrls, Controls,
SynEdit, SynEditKeyCmds, XMLCfg;
const
// editor commands constants. see syneditkeycmds.pp for more
ecFind = ecUserFirst + 1;
ecFindAgain = ecUserFirst + 2;
ecReplace = ecUserFirst + 3;
ecFindProcedureDefinition = ecUserFirst + 4;
ecFindProcedureMethod = ecUserFirst + 5;
ecGotoLineNumber = ecUserFirst + 6;
ecNextEditor = ecUserFirst + 7;
ecPrevEditor = ecUserFirst + 8;
ecPeriod = ecUserFirst + 9;
ecWordCompletion = ecUserFirst + 100;
ecCodeCompletion = ecUserFirst + 101;
ecSave = ecUserFirst + 200;
ecOpen = ecSave + 1;
ecClose = ecOpen + 2;
ecJumpToEditor = ecUserFirst + 300;
ecGotoEditor1 = ecUserFirst + 2000;
ecGotoEditor2 = ecGotoEditor1 + 1;
ecGotoEditor3 = ecGotoEditor2 + 1;
ecGotoEditor4 = ecGotoEditor3 + 1;
ecGotoEditor5 = ecGotoEditor4 + 1;
ecGotoEditor6 = ecGotoEditor5 + 1;
ecGotoEditor7 = ecGotoEditor6 + 1;
ecGotoEditor8 = ecGotoEditor7 + 1;
ecGotoEditor9 = ecGotoEditor8 + 1;
ecGotoEditor0 = ecGotoEditor9 + 1;
type
//---------------------------------------------------------------------------
// class for storing the keys for a single command (key-command relationship)
TKeyCommandRelation = class
private
public
Name:ShortString;
Command:TSynEditorCommand; // see the ecXXX constants above
Key1:word;
Shift1:TShiftState;
Key2:word;
Shift2:TShiftState;
constructor Create(AName:ShortString;ACommand:TSynEditorCommand;
AKey1:Word;AShift1:TShiftState;AKey2:Word;AShift2:TShiftState);
end;
//---------------------------------------------------------------------------
// class for a list of key - command relations
TKeyCommandRelationList = class
private
FRelations:TList;
function GetRelation(Index:integer):TKeyCommandRelation;
function Add(Name:shortstring;Command:TSynEditorCommand;
Key1:Word; Shift1:TShiftState;
Key2:Word; Shift2:TShiftState):integer;
function ShiftStateToStr(Shift:TShiftState):AnsiString;
public
property Relations[Index:integer]:TKeyCommandRelation read GetRelation;
function Count:integer;
function Find(AKey:Word; AShiftState:TShiftState):TKeyCommandRelation;
function FindByCommand(ACommand:TSynEditorCommand):TKeyCommandRelation;
function LoadFromXMLConfig(XMLConfig:TXMLConfig; Prefix:AnsiString):boolean;
function SaveToXMLConfig(XMLConfig:TXMLConfig; Prefix:AnsiString):boolean;
procedure AssignTo(ASynEditKeyStrokes:TSynEditKeyStrokes);
constructor Create;
destructor Destroy; override;
end;
//---------------------------------------------------------------------------
// form for editing one command - key relationship
TKeyMappingEditForm = class(TForm)
OkButton:TButton;
CancelButton:TButton;
CommandLabel:TLabel;
Key1GroupBox:TGroupBox;
Key1CtrlCheckBox:TCheckBox;
Key1AltCheckBox:TCheckBox;
Key1ShiftCheckBox:TCheckBox;
Key1KeyComboBox:TComboBox;
Key2GroupBox:TGroupBox;
Key2CtrlCheckBox:TCheckBox;
Key2AltCheckBox:TCheckBox;
Key2ShiftCheckBox:TCheckBox;
Key2KeyComboBox:TComboBox;
procedure OkButtonClick(Sender:TObject);
procedure CancelButtonClick(Sender:TObject);
public
constructor Create(AOwner:TComponent); override;
KeyCommandRelationList:TKeyCommandRelationList;
KeyIndex:integer;
end;
function KeyAndShiftStateToStr(Key:Word; ShiftState:TShiftState):AnsiString;
function ShowKeyMappingEditForm(Index:integer;
AKeyCommandRelationList:TKeyCommandRelationList):TModalResult;
function KeyStrokesConsistencyErrors(ASynEditKeyStrokes:TSynEditKeyStrokes;
Protocol: TStrings; var Index1,Index2:integer):integer;
function EditorCommandToDescriptionString(cmd: TSynEditorCommand):AnsiString;
var KeyMappingEditForm:TKeyMappingEditForm;
implementation
function ShowKeyMappingEditForm(Index:integer;
AKeyCommandRelationList:TKeyCommandRelationList):TModalResult;
begin
Result:=mrCancel;
if KeyMappingEditForm<>nil then exit;
KeyMappingEditForm:=TKeyMappingEditForm.Create(Application);
with KeyMappingEditForm do
try
KeyCommandRelationList:=AKeyCommandRelationList;
KeyIndex:=Index;
Caption:='Edit Keys';
with KeyCommandRelationList.Relations[Index] do begin
CommandLabel.Caption:='Command: '+Name;
if Key1<>VK_UNKNOWN then begin
Key1CtrlCheckBox.Checked:=ssCtrl in Shift1;
Key1AltCheckBox.Checked:=ssAlt in Shift1;
Key1ShiftCheckBox.Checked:=ssShift in Shift1;
Key1KeyComboBox.ItemIndex:=Key1KeyComboBox.Items.IndexOf(
KeyAndShiftStateToStr(Key1,[]));
end;
if Key2<>VK_UNKNOWN then begin
Key2CtrlCheckBox.Checked:=ssCtrl in Shift2;
Key2AltCheckBox.Checked:=ssAlt in Shift2;
Key2ShiftCheckBox.Checked:=ssShift in Shift2;
Key2KeyComboBox.ItemIndex:=Key1KeyComboBox.Items.IndexOf(
KeyAndShiftStateToStr(Key2,[]));
end;
end;
Result:=ShowModal;
finally
Free;
KeyMappingEditForm:=nil;
end;
end;
function EditorCommandToDescriptionString(cmd: TSynEditorCommand):AnsiString;
begin
case cmd of
ecNone: Result:= 'None';
ecLeft: Result:= 'Left';
ecRight: Result:= 'Right';
ecUp: Result:= 'Up';
ecDown: Result:= 'Down';
ecWordLeft: Result:= 'WordLeft';
ecWordRight: Result:= 'WordRight';
ecLineStart: Result:= 'LineStart';
ecLineEnd: Result:= 'LineEnd';
ecPageUp: Result:= 'PageUp';
ecPageDown: Result:= 'PageDown';
ecPageLeft: Result:= 'PageLeft';
ecPageRight: Result:= 'PageRight';
ecPageTop: Result:= 'PageTop';
ecPageBottom: Result:= 'PageBottom';
ecEditorTop: Result:= 'EditorTop';
ecEditorBottom: Result:= 'EditorBottom';
ecGotoXY: Result:= 'GotoXY';
ecSelLeft: Result:= 'SelLeft';
ecSelRight: Result:= 'SelRight';
ecSelUp: Result:= 'SelUp';
ecSelDown: Result:= 'SelDown';
ecSelWordLeft: Result:= 'SelWordLeft';
ecSelWordRight: Result:= 'SelWordRight';
ecSelLineStart: Result:= 'SelLineStart';
ecSelLineEnd: Result:= 'SelLineEnd';
ecSelPageUp: Result:= 'SelPageUp';
ecSelPageDown: Result:= 'SelPageDown';
ecSelPageLeft: Result:= 'SelPageLeft';
ecSelPageRight: Result:= 'SelPageRight';
ecSelPageTop: Result:= 'SelPageTop';
ecSelPageBottom: Result:= 'SelPageBottom';
ecSelEditorTop: Result:= 'SelEditorTop';
ecSelEditorBottom: Result:= 'SelEditorBottom';
ecSelGotoXY: Result:= 'SelGotoXY';
ecSelectAll: Result:= 'SelectAll';
ecDeleteLastChar: Result:= 'DeleteLastChar';
ecDeleteChar: Result:= 'DeleteChar';
ecDeleteWord: Result:= 'DeleteWord';
ecDeleteLastWord: Result:= 'DeleteLastWord';
ecDeleteBOL: Result:= 'DeleteBOL';
ecDeleteEOL: Result:= 'DeleteEOL';
ecDeleteLine: Result:= 'DeleteLine';
ecClearAll: Result:= 'ClearAll';
ecLineBreak: Result:= 'LineBreak';
ecInsertLine: Result:= 'InsertLine';
ecChar: Result:= 'Char';
ecImeStr: Result:= 'ImeStr';
ecUndo: Result:= 'Undo';
ecRedo: Result:= 'Redo';
ecCut: Result:= 'Cut';
ecCopy: Result:= 'Copy';
ecPaste: Result:= 'Paste';
ecScrollUp: Result:= 'ScrollUp';
ecScrollDown: Result:= 'ScrollDown';
ecScrollLeft: Result:= 'ScrollLeft';
ecScrollRight: Result:= 'ScrollRight';
ecInsertMode: Result:= 'InsertMode';
ecOverwriteMode: Result:= 'OverwriteMode';
ecToggleMode: Result:= 'ToggleMode';
ecBlockIndent: Result:= 'BlockIndent';
ecBlockUnindent: Result:= 'BlockUnindent';
ecTab: Result:= 'Tab';
ecShiftTab: Result:= 'ShiftTab';
ecMatchBracket: Result:= 'MatchBracket';
ecNormalSelect: Result:= 'NormalSelect';
ecColumnSelect: Result:= 'ColumnSelect';
ecLineSelect: Result:= 'LineSelect';
ecAutoCompletion: Result:= 'AutoCompletion';
ecUserFirst: Result:= 'UserFirst';
ecGotoMarker0: Result:= 'GotoMarker0';
ecGotoMarker1: Result:= 'GotoMarker1';
ecGotoMarker2: Result:= 'GotoMarker2';
ecGotoMarker3: Result:= 'GotoMarker3';
ecGotoMarker4: Result:= 'GotoMarker4';
ecGotoMarker5: Result:= 'GotoMarker5';
ecGotoMarker6: Result:= 'GotoMarker6';
ecGotoMarker7: Result:= 'GotoMarker7';
ecGotoMarker8: Result:= 'GotoMarker8';
ecGotoMarker9: Result:= 'GotoMarker9';
ecSetMarker0: Result:= 'SetMarker0';
ecSetMarker1: Result:= 'SetMarker1';
ecSetMarker2: Result:= 'SetMarker2';
ecSetMarker3: Result:= 'SetMarker3';
ecSetMarker4: Result:= 'SetMarker4';
ecSetMarker5: Result:= 'SetMarker5';
ecSetMarker6: Result:= 'SetMarker6';
ecSetMarker7: Result:= 'SetMarker7';
ecSetMarker8: Result:= 'SetMarker8';
ecSetMarker9: Result:= 'SetMarker9';
ecFind: Result:= 'Find text';
ecFindAgain: Result:= 'Find again';
ecReplace: Result:= 'Replace text';
ecFindProcedureDefinition: Result:= 'find procedure definition';
ecFindProcedureMethod: Result:= 'find procedure method';
ecGotoLineNumber: Result:= 'goto line number';
ecNextEditor: Result:= 'next editor';
ecPrevEditor: Result:= 'previous editor';
ecPeriod: Result:= 'period';
ecWordCompletion: Result:= 'word completion';
ecCodeCompletion: Result:= 'code completion';
ecSave: Result:= 'save';
ecOpen: Result:= 'open';
ecClose: Result:= 'close';
ecJumpToEditor: Result:='jump to editor';
ecGotoEditor1: Result:= 'goto editor 1';
ecGotoEditor2: Result:= 'goto editor 2';
ecGotoEditor3: Result:= 'goto editor 3';
ecGotoEditor4: Result:= 'goto editor 4';
ecGotoEditor5: Result:= 'goto editor 5';
ecGotoEditor6: Result:= 'goto editor 6';
ecGotoEditor7: Result:= 'goto editor 7';
ecGotoEditor8: Result:= 'goto editor 8';
ecGotoEditor9: Result:= 'goto editor 9';
ecGotoEditor0: Result:= 'goto editor 10';
else
Result:='unknown editor command';
end;
end;
function KeyStrokesConsistencyErrors(ASynEditKeyStrokes:TSynEditKeyStrokes;
Protocol: TStrings; var Index1,Index2:integer):integer;
// 0 = ok, no errors
// >0 number of errors found
var a,b:integer;
Key1,Key2:TSynEditKeyStroke;
begin
Result:=0;
for a:=0 to ASynEditKeyStrokes.Count-1 do begin
Key1:=ASynEditKeyStrokes[a];
for b:=a+1 to ASynEditKeyStrokes.Count-1 do begin
Key2:=ASynEditKeyStrokes[b];
if (Key1.Command<>Key2.Command)
and (Key1.Key<>VK_UNKNOWN)
and (Key1.Key=Key2.Key) and (Key1.Shift=Key2.Shift) then begin
if (Key1.Key2=VK_UNKNOWN) or (Key2.Key2=VK_UNKNOWN)
or ((Key1.Key2=Key2.Key2) and (Key1.Shift2=Key2.Shift2)) then begin
// consistency error
if Result=0 then begin
Index1:=a;
Index2:=b;
end;
inc(Result);
if Protocol<>nil then begin
Protocol.Add('Conflict '+IntToStr(Result));
Protocol.Add(' command1 "'
+EditorCommandToDescriptionString(Key1.Command)+'"'
+'->'+KeyAndShiftStateToStr(Key1.Key,Key1.Shift));
Protocol.Add(' conflicts with ');
Protocol.Add(' command2 "'
+EditorCommandToDescriptionString(Key2.Command)+'"'
+'->'+KeyAndShiftStateToStr(Key2.Key,Key2.Shift)
);
Protocol.Add('');
end;
end;
end;
end;
end;
end;
function KeyAndShiftStateToStr(Key:Word; ShiftState:TShiftState):AnsiString;
begin
Result:='';
if ssCtrl in ShiftState then Result:=Result+'+Ctrl';
if ssAlt in ShiftState then Result:=Result+'+Alt';
if ssShift in ShiftState then Result:=Result+'+Shift';
if Result<>'' then
Result:=copy(Result,2,length(Result)-1)+'+';
case Key of
VK_UNKNOWN :Result:=Result+'Unknown';
VK_LBUTTON :Result:=Result+'Mouse Button Left';
VK_RBUTTON :Result:=Result+'Mouse Button Right';
VK_CANCEL :Result:=Result+'Cancel';
VK_MBUTTON :Result:=Result+'Mouse Button Middle';
VK_BACK :Result:=Result+'Backspace';
VK_TAB :Result:=Result+'Tab';
VK_CLEAR :Result:=Result+'Clear';
VK_RETURN :Result:=Result+'Return';
VK_SHIFT :Result:=Result+'Shift';
VK_CONTROL :Result:=Result+'Control';
VK_MENU :Result:=Result+'Menu';
VK_PAUSE :Result:=Result+'Pause';
VK_CAPITAL :Result:=Result+'Capital';
VK_KANA :Result:=Result+'Kana';
// VK_HANGUL :Result:=Result+'Hangul';
VK_JUNJA :Result:=Result+'Junja';
VK_FINAL :Result:=Result+'Final';
VK_HANJA :Result:=Result+'Hanja';
// VK_KANJI :Result:=Result+'Kanji';
VK_ESCAPE :Result:=Result+'Escape';
VK_CONVERT :Result:=Result+'Convert';
VK_NONCONVERT :Result:=Result+'Nonconvert';
VK_ACCEPT :Result:=Result+'Accept';
VK_MODECHANGE :Result:=Result+'Mode Change';
VK_SPACE :Result:=Result+'Space';
VK_PRIOR :Result:=Result+'Prior';
VK_NEXT :Result:=Result+'Next';
VK_END :Result:=Result+'End';
VK_HOME :Result:=Result+'Home';
VK_LEFT :Result:=Result+'Left';
VK_UP :Result:=Result+'Up';
VK_RIGHT :Result:=Result+'Right';
VK_DOWN :Result:=Result+'Down';
VK_SELECT :Result:=Result+'Select';
VK_PRINT :Result:=Result+'Print';
VK_EXECUTE :Result:=Result+'Execute';
VK_SNAPSHOT :Result:=Result+'Snapshot';
VK_INSERT :Result:=Result+'Insert';
VK_DELETE :Result:=Result+'Delete';
VK_HELP :Result:=Result+'Help';
VK_0..VK_9 :Result:=Result+IntToStr(Key-VK_0);
VK_A..VK_Z :Result:=Result+chr(ord('A')+Key-VK_A);
VK_LWIN :Result:=Result+'left windows key';
VK_RWIN :Result:=Result+'right windows key';
VK_APPS :Result:=Result+'application key';
VK_NUMPAD0..VK_NUMPAD9:Result:=Result+'Numpad '+IntToStr(Key-VK_NUMPAD0);
VK_MULTIPLY :Result:=Result+'*';
VK_ADD :Result:=Result+'+';
VK_SEPARATOR :Result:=Result+'|';
VK_SUBTRACT :Result:=Result+'-';
VK_DECIMAL :Result:=Result+'.';
VK_DIVIDE :Result:=Result+'/';
VK_F1..VK_F24 :Result:=Result+'F'+IntToStr(Key-VK_F1+1);
VK_NUMLOCK :Result:=Result+'Numlock';
VK_SCROLL :Result:=Result+'Scroll';
else
Result:=Result+'Word('''+IntToStr(Key)+''')';
end;
end;
{ TKeyMappingEditForm }
constructor TKeyMappingEditForm.Create(AOwner:TComponent);
var a:integer;
s:AnsiString;
begin
inherited Create(AOwner);
if LazarusResources.Find(ClassName)=nil then begin
SetBounds((Screen.Width-200) div 2,(Screen.Height-270) div 2,220,250);
Caption:='Edit keys for command';
OkButton:=TButton.Create(Self);
with OkButton do begin
Name:='OkButton';
Parent:=Self;
Caption:='Ok';
Left:=15;
Top:=Self.ClientHeight-Height-15;
Width:=80;
OnClick:=@OkButtonClick;
Show;
end;
CancelButton:=TButton.Create(Self);
with CancelButton do begin
Name:='CancelButton';
Parent:=Self;
Caption:='Cancel';
Left:=125;
Top:=OkButton.Top;
Width:=OkButton.Width;
OnClick:=@CancelButtonClick;
Show;
end;
CommandLabel:=TLabel.Create(Self);
with CommandLabel do begin
Name:='CommandLabel';
Parent:=Self;
Caption:='Command';
Left:=10;
Top:=5;
Width:=Self.ClientWidth-Left-Left-4;
Height:=20;
Show;
end;
Key1GroupBox:=TGroupBox.Create(Self);
with Key1GroupBox do begin
Name:='Key1GroupBox';
Parent:=Self;
Caption:='Key';
Left:=5;
Top:=CommandLabel.Top+CommandLabel.Height+8;
Width:=Self.ClientWidth-4-Left-Left;
Height:=80;
Show;
end;
Key1CtrlCheckBox:=TCheckBox.Create(Self);
with Key1CtrlCheckBox do begin
Name:='Key1CtrlCheckBox';
Parent:=Key1GroupBox;
Caption:='Ctrl';
Left:=5;
Top:=2;
Width:=55;
Height:=20;
Show;
end;
Key1AltCheckBox:=TCheckBox.Create(Self);
with Key1AltCheckBox do begin
Name:='Key1AltCheckBox';
Parent:=Key1GroupBox;
Caption:='Alt';
Left:=Key1CtrlCheckBox.Left+Key1CtrlCheckBox.Width+10;
Top:=Key1CtrlCheckBox.Top;
Height:=20;
Width:=Key1CtrlCheckBox.Width;
Show;
end;
Key1ShiftCheckBox:=TCheckBox.Create(Self);
with Key1ShiftCheckBox do begin
Name:='Key1ShiftCheckBox';
Parent:=Key1GroupBox;
Caption:='Shift';
Left:=Key1AltCheckBox.Left+Key1AltCheckBox.Width+10;
Top:=Key1CtrlCheckBox.Top;
Height:=20;
Width:=Key1CtrlCheckBox.Width;
Show;
end;
Key1KeyComboBox:=TComboBox.Create(Self);
with Key1KeyComboBox do begin
Name:='Key1KeyComboBox';
Parent:=Key1GroupBox;
Left:=10;
Top:=Key1CtrlCheckBox.Top+Key1CtrlCheckBox.Height+5;
Width:=180;
Items.BeginUpdate;
Items.Add('none');
for a:=1 to 145 do begin
s:=KeyAndShiftStateToStr(a,[]);
if lowercase(copy(s,1,5))<>'word(' then
Items.Add(s);
end;
Items.EndUpdate;
ItemIndex:=0;
Show;
end;
Key2GroupBox:=TGroupBox.Create(Self);
with Key2GroupBox do begin
Name:='Key2GroupBox';
Parent:=Self;
Caption:='Alternative Key';
Left:=5;
Top:=Key1GroupBox.Top+Key1GroupBox.Height+8;
Width:=Key1GroupBox.Width;
Height:=80;
Show;
end;
Key2CtrlCheckBox:=TCheckBox.Create(Self);
with Key2CtrlCheckBox do begin
Name:='Key2CtrlCheckBox';
Parent:=Key2GroupBox;
Caption:='Ctrl';
Left:=5;
Top:=2;
Width:=55;
Height:=20;
Show;
end;
Key2AltCheckBox:=TCheckBox.Create(Self);
with Key2AltCheckBox do begin
Name:='Key2AltCheckBox';
Parent:=Key2GroupBox;
Caption:='Alt';
Left:=Key2CtrlCheckBox.Left+Key2CtrlCheckBox.Width+10;
Top:=Key2CtrlCheckBox.Top;
Height:=20;
Width:=Key2CtrlCheckBox.Width;
Show;
end;
Key2ShiftCheckBox:=TCheckBox.Create(Self);
with Key2ShiftCheckBox do begin
Name:='Key2ShiftCheckBox';
Parent:=Key2GroupBox;
Caption:='Shift';
Left:=Key2AltCheckBox.Left+Key2AltCheckBox.Width+10;
Top:=Key2CtrlCheckBox.Top;
Height:=20;
Width:=Key2CtrlCheckBox.Width;
Show;
end;
Key2KeyComboBox:=TComboBox.Create(Self);
with Key2KeyComboBox do begin
Name:='Key2KeyComboBox';
Parent:=Key2GroupBox;
Left:=10;
Top:=Key2CtrlCheckBox.Top+Key2CtrlCheckBox.Height+5;
Width:=180;
Items.BeginUpdate;
Items.Add('none');
for a:=1 to 145 do begin
s:=KeyAndShiftStateToStr(a,[]);
if lowercase(copy(s,1,5))<>'word(' then
Items.Add(s);
end;
Items.EndUpdate;
ItemIndex:=0;
Show;
end;
end;
end;
procedure TKeyMappingEditForm.OkButtonClick(Sender:TObject);
var NewKey1,NewKey2,a:integer;
NewShiftState1,NewShiftState2:TShiftState;
s,ACaption,AText:AnsiString;
DummyRelation:TKeyCommandRelation;
begin
NewKey1:=VK_UNKNOWN;
NewShiftState1:=[];
NewKey2:=VK_UNKNOWN;
NewShiftState2:=[];
s:=Key1KeyComboBox.Text;
if s<>'none' then
for a:=1 to 145 do
if KeyAndShiftStateToStr(a,[])=s then
NewKey1:=a;
if NewKey1<>VK_UNKNOWN then begin
if Key1CtrlCheckBox.Checked then include(NewShiftState1,ssCtrl);
if Key1AltCheckBox.Checked then include(NewShiftState1,ssAlt);
if Key1ShiftCheckBox.Checked then include(NewShiftState1,ssShift);
end;
DummyRelation:=KeyCommandRelationList.Find(NewKey1,NewShiftState1);
if (DummyRelation<>nil)
and (DummyRelation<>KeyCommandRelationList.Relations[KeyIndex]) then begin
ACaption:='No No No';
AText:=' The key "'+KeyAndShiftStateToStr(NewKey1,NewShiftState1)+'"'
+' is already connected to "'+DummyRelation.Name+'".';
Application.MessageBox(PChar(AText),PChar(ACaption),0);
exit;
end;
s:=Key2KeyComboBox.Text;
if s<>'none' then
for a:=1 to 145 do
if KeyAndShiftStateToStr(a,[])=s then
NewKey2:=a;
if (NewKey1=NewKey2) and (NewShiftState1=NewShiftState2) then
NewKey2:=VK_UNKNOWN;
if NewKey2<>VK_UNKNOWN then begin
if Key2CtrlCheckBox.Checked then include(NewShiftState2,ssCtrl);
if Key2AltCheckBox.Checked then include(NewShiftState2,ssAlt);
if Key2ShiftCheckBox.Checked then include(NewShiftState2,ssShift);
end;
DummyRelation:=KeyCommandRelationList.Find(NewKey2,NewShiftState2);
if (DummyRelation<>nil)
and (DummyRelation<>KeyCommandRelationList.Relations[KeyIndex]) then begin
ACaption:='No No No';
AText:=' The key "'+KeyAndShiftStateToStr(NewKey2,NewShiftState2)+'"'
+' is already connected to "'+DummyRelation.Name+'".';
Application.MessageBox(PChar(AText),PChar(ACaption),0);
exit;
end;
if NewKey1=VK_UNKNOWN then begin
NewKey1:=NewKey2;
NewShiftState1:=NewShiftState2;
NewKey2:=VK_UNKNOWN;
end;
with KeyCommandRelationList.Relations[KeyIndex] do begin
Key1:=NewKey1;
Shift1:=NewShiftState1;
Key2:=NewKey2;
Shift2:=NewShiftState2;
end;
ModalResult:=mrOk;
end;
procedure TKeyMappingEditForm.CancelButtonClick(Sender:TObject);
begin
ModalResult:=mrCancel;
end;
{ TKeyCommandRelation }
constructor TKeyCommandRelation.Create(AName:ShortString;
ACommand:TSynEditorCommand;
AKey1:Word;AShift1:TShiftState;AKey2:Word;AShift2:TShiftState);
begin
Name:=AName;
Command:=ACommand;
Key1:=AKey1;
Shift1:=AShift1;
Key2:=AKey2;
Shift2:=AShift2;
end;
{ TKeyCommandRelationList }
constructor TKeyCommandRelationList.Create;
begin
inherited Create;
FRelations:=TList.Create;
// normal synedit commands
Add('Select All',ecSelectAll,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Copy selection to clipboard',ecCopy,VK_C,[ssCtrl],VK_UNKNOWN,[]);
Add('Cut selection to clipboard',ecCut,VK_X,[ssCtrl],VK_UNKNOWN,[]);
Add('Paste clipboard to current position',ecPaste,VK_V,[ssCtrl],VK_UNKNOWN,[]);
Add('Undo',ecUndo,VK_Z,[ssCtrl],VK_UNKNOWN,[]);
Add('Redo',ecRedo,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Normal selection mode',ecNormalSelect,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Column selection mode',ecColumnSelect,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Line selection mode',ecLineSelect,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Go to matching bracket',ecMatchBracket,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add('Indent block',ecBlockIndent,VK_I,[ssCtrl],VK_UNKNOWN,[]);
Add('Unindent block',ecBlockUnindent,VK_U,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 0',ecGotoMarker0,VK_0,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 1',ecGotoMarker1,VK_1,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 2',ecGotoMarker2,VK_2,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 3',ecGotoMarker3,VK_3,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 4',ecGotoMarker4,VK_4,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 5',ecGotoMarker5,VK_5,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 6',ecGotoMarker6,VK_6,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 7',ecGotoMarker7,VK_7,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 8',ecGotoMarker8,VK_8,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to marker 9',ecGotoMarker9,VK_9,[ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 0',ecSetMarker0,VK_0,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 1',ecSetMarker1,VK_1,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 2',ecSetMarker2,VK_2,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 3',ecSetMarker3,VK_3,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 4',ecSetMarker4,VK_4,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 5',ecSetMarker5,VK_5,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 6',ecSetMarker6,VK_6,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 7',ecSetMarker7,VK_7,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 8',ecSetMarker8,VK_8,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Set marker 9',ecSetMarker9,VK_9,[ssShift,ssCtrl],VK_UNKNOWN,[]);
Add('Code template completion',ecAutoCompletion,VK_J,[ssCtrl],VK_UNKNOWN,[]);
// user defined commands
Add('Word completion',ecWordCompletion,VK_W,[ssCtrl],VK_UNKNOWN,[]);
Add('Code completion',ecCodeCompletion,VK_SPACE,[ssCtrl],VK_UNKNOWN,[]);
Add('Find text',ecFind,VK_F,[SSCtrl],VK_UNKNOWN,[]);
Add('Find text again',ecFindAgain,VK_F3,[],VK_UNKNOWN,[]);
Add('Replace text',ecReplace,VK_R,[SSCtrl],VK_UNKNOWN,[]);
Add('Find procedure definiton',ecFindProcedureDefinition,
VK_UP,[ssShift,SSCtrl],VK_UNKNOWN,[]);
Add('Find procedure method',ecFindProcedureMethod,
VK_DOWN,[ssShift,SSCtrl],VK_UNKNOWN,[]);
Add('Go to line number',ecGotoLineNumber,VK_G,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to next editor',ecNextEditor, VK_S, [ssShift,ssCtrl], VK_UNKNOWN, []);
Add('Go to prior editor',ecPrevEditor, VK_A, [ssShift,ssCtrl], VK_UNKNOWN, []);
Add('Save',ecSave,VK_S,[ssCtrl],VK_UNKNOWN,[]);
Add('Open',ecOpen,VK_O,[ssCtrl],VK_UNKNOWN,[]);
Add('Close',ecClose,VK_F4,[ssCtrl],VK_UNKNOWN,[]);
Add('Go to source editor 1',ecGotoEditor0,VK_1,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 2',ecGotoEditor0,VK_2,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 3',ecGotoEditor0,VK_3,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 4',ecGotoEditor0,VK_4,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 5',ecGotoEditor0,VK_5,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 6',ecGotoEditor0,VK_6,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 7',ecGotoEditor0,VK_7,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 8',ecGotoEditor0,VK_8,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 9',ecGotoEditor0,VK_9,[ssAlt],VK_UNKNOWN,[]);
Add('Go to source editor 10',ecGotoEditor0,VK_0,[ssAlt],VK_UNKNOWN,[]);
end;
destructor TKeyCommandRelationList.Destroy;
var a:integer;
begin
for a:=0 to FRelations.Count-1 do
Relations[a].Free;
FRelations.Free;
inherited Destroy;
end;
function TKeyCommandRelationList.GetRelation(
Index:integer):TKeyCommandRelation;
begin
if (Index<0) or (Index>=Count) then begin
writeln('[TKeyCommandRelationList.GetRelation] Index out of bounds '
,Index,' Count=',Count);
Halt;
end;
Result:= TKeyCommandRelation(FRelations[Index]);
end;
function TKeyCommandRelationList.Count:integer;
begin
Result:=FRelations.Count;
end;
function TKeyCommandRelationList.Add(Name:shortstring;
Command:TSynEditorCommand;
Key1:Word; Shift1:TShiftState; Key2:Word; Shift2:TShiftState):integer;
begin
Result:=FRelations.Add(TKeyCommandRelation.Create(Name,Command
,Key1,Shift1,Key2,Shift2));
end;
function TKeyCommandRelationList.LoadFromXMLConfig(
XMLConfig:TXMLConfig; Prefix:AnsiString):boolean;
var a,b,p:integer;
Name:ShortString;
Default,NewValue:AnsiString;
function ReadNextInt:integer;
begin
Result:=0;
while (p<=length(NewValue)) and (not (NewValue[p] in ['0'..'9']))
do inc(p);
while (p<=length(NewValue)) and (NewValue[p] in ['0'..'9'])
and (Result<$10000)do begin
Result:=Result*10+ord(NewValue[p])-ord('0');
inc(p);
end;
end;
function IntToShiftState(i:integer):TShiftState;
begin
Result:=[];
if (i and 1)>0 then Include(Result,ssCtrl);
if (i and 2)>0 then Include(Result,ssShift);
if (i and 4)>0 then Include(Result,ssAlt);
end;
// LoadFromXMLConfig
begin
for a:=0 to FRelations.Count-1 do begin
Name:=lowercase(Relations[a].Name);
for b:=1 to length(Name) do
if Name[b]=' ' then Name[b]:='_';
with Relations[a] do
Default:=IntToStr(Key1)+','+ShiftStateToStr(Shift1)
+','+IntToStr(Key2)+','+ShiftStateToStr(Shift2);
NewValue:=XMLConfig.GetValue(Prefix+Name,Default);
p:=1;
with Relations[a] do begin
Key1:=ReadNextInt;
Shift1:=IntToShiftState(ReadNextInt);
Key2:=ReadNextInt;
Shift2:=IntToShiftState(ReadNextInt);
end;
end;
Result:=true;
end;
function TKeyCommandRelationList.SaveToXMLConfig(
XMLConfig:TXMLConfig; Prefix:AnsiString):boolean;
var a,b:integer;
Name:ShortString;
s:AnsiString;
begin
for a:=0 to FRelations.Count-1 do begin
Name:=lowercase(Relations[a].Name);
for b:=1 to length(Name) do
if Name[b]=' ' then Name[b]:='_';
with Relations[a] do
s:=IntToStr(Key1)+','+ShiftStateToStr(Shift1)
+','+IntToStr(Key2)+','+ShiftStateToStr(Shift2);
XMLConfig.SetValue(Prefix+Name,s);
end;
Result:=true;
end;
function TKeyCommandRelationList.ShiftStateToStr(Shift:TShiftState):AnsiString;
var i:integer;
begin
i:=0;
if ssCtrl in Shift then inc(i,1);
if ssShift in Shift then inc(i,2);
if ssAlt in Shift then inc(i,4);
Result:=IntToStr(i);
end;
function TKeyCommandRelationList.Find(AKey:Word; AShiftState:TShiftState
):TKeyCommandRelation;
var a:integer;
begin
Result:=nil;
if AKey=VK_UNKNOWN then exit;
for a:=0 to FRelations.Count-1 do with Relations[a] do
if ((Key1=AKey) and (Shift1=AShiftState))
or ((Key2=AKey) and (Shift2=AShiftState)) then begin
Result:=Relations[a];
exit;
end;
end;
function TKeyCommandRelationList.FindByCommand(
ACommand:TSynEditorCommand):TKeyCommandRelation;
var a:integer;
begin
Result:=nil;
for a:=0 to FRelations.Count-1 do with Relations[a] do
if (Command=ACommand) then begin
Result:=Relations[a];
exit;
end;
end;
procedure TKeyCommandRelationList.AssignTo(
ASynEditKeyStrokes:TSynEditKeyStrokes);
var a,b,MaxKeyCnt,KeyCnt:integer;
Key:TSynEditKeyStroke;
begin
for a:=0 to FRelations.Count-1 do begin
if Relations[a].Key1=VK_UNKNOWN then MaxKeyCnt:=0
else if Relations[a].Key2=VK_UNKNOWN then MaxKeyCnt:=1
else MaxKeyCnt:=2;
KeyCnt:=1;
b:=0;
while b<ASynEditKeyStrokes.Count do begin
if ASynEditKeyStrokes[b].Command=Relations[a].Command then begin
if KeyCnt>MaxKeyCnt then begin
ASynEditKeyStrokes[b].Free;
end else if KeyCnt=1 then begin
ASynEditKeyStrokes[b].Key:=Relations[a].Key1;
ASynEditKeyStrokes[b].Shift:=Relations[a].Shift1;
ASynEditKeyStrokes[b].Key2:=VK_UNKNOWN;
ASynEditKeyStrokes[b].Shift2:=[];
inc(b);
end else if KeyCnt=2 then begin
ASynEditKeyStrokes[b].Key:=Relations[a].Key2;
ASynEditKeyStrokes[b].Shift:=Relations[a].Shift2;
ASynEditKeyStrokes[b].Key2:=VK_UNKNOWN;
ASynEditKeyStrokes[b].Shift2:=[];
inc(b);
end;
inc(KeyCnt);
end else inc(b);
end;
while KeyCnt<=MaxKeyCnt do begin
Key:=ASynEditKeyStrokes.Add;
Key.Command:=Relations[a].Command;
Key.Key:=Relations[a].Key1;
Key.Shift:=Relations[a].Shift1;
Key.Key2:=VK_UNKNOWN;
Key.Shift2:=[];
inc(KeyCnt);
end;
end;
end;
initialization
KeyMappingEditForm:=nil;
end.
Reference in New Issue View Git Blame Copy Permalink