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

MG: added keymapping to designer

Browse Source 
git-svn-id: trunk@2952 -
This commit is contained in:
lazarus 2002-08-18 08:56:30 +00:00
parent c669d3de48
commit cff2ddd3bb
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/uniteditor.pp
View File

@ -62,9 +62,9 @@ type
TOnCreateDeleteBreakPoint = procedure(Sender: TObject; line:integer) of object;
TOnProcessUserCommand = procedure(Sender: TObject;
Command: integer; var Handled: boolean) of object;
Command: word; var Handled: boolean) of object;
TOnUserCommandProcessed = procedure(Sender: TObject;
Command: integer; var Handled: boolean) of object;
Command: word; var Handled: boolean) of object;
TOnLinesInsertedDeleted = procedure(Sender : TObject;
FirstLine,Count : Integer) of Object;
@ -1741,7 +1741,7 @@ begin
MarksImgList.Add(Pixmap1,nil);
FKeyStrokes:=TSynEditKeyStrokes.Create(Self);
EditorOpts.KeyMap.AssignTo(FKeyStrokes);
EditorOpts.KeyMap.AssignTo(FKeyStrokes,[caSourceEditor]);
aCompletion := TSynCompletion.Create(AOwner);
with aCompletion do
@ -3154,12 +3154,6 @@ begin
ecPrevEditor :
PrevEditor;
ecSave :
SaveClicked(self);
ecOpen :
OpenClicked(self);
ecOpenFileAtCursor:
OpenAtCursorClicked(self);
@ -3238,7 +3232,7 @@ Begin
IndentToTokenStart:=EditorOpts.CodeTemplateIndentToTokenStart;
end;
EditorOpts.KeyMap.AssignTo(FKeyStrokes);
EditorOpts.KeyMap.AssignTo(FKeyStrokes,[caSourceEditor]);
if NoteBook<>nil then begin
if EditorOpts.ShowTabCloseButtons then
NoteBook.Options:=NoteBook.Options+[nboShowCloseButtons]