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

added missing ecToggleSearchResults

Browse Source 
git-svn-id: trunk@8567 -
This commit is contained in:
mattias 2006-01-19 22:06:21 +00:00
parent 9787dc1ed6
commit 5571a611a1
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -2430,6 +2430,9 @@ begin
ecToggleObjectInsp:
mnuViewInspectorClicked(Self);
ecToggleSearchResults:
mnuViewSearchResultsClick(Self);
ecAboutLazarus:
MainIDEBar.itmHelpAboutLazarus.OnClick(Self);

19
ide/uniteditor.pp
View File

@ -1151,9 +1151,12 @@ end;
Procedure TSourceEditor.ProcessCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
// these are normal commands for synedit, define extra actions here
// otherwise use ProcessUserCommand
// these are normal commands for synedit (lower than ecUserFirst),
// define extra actions here
// for non synedit keys (bigger than ecUserFirst) use ProcessUserCommand
begin
//DebugLn('TSourceEditor.ProcessCommand Command=',dbgs(Command));
IdentCompletionTimer.AutoEnabled:=false;
if (FSourceNoteBook<>nil)
@ -1227,9 +1230,8 @@ var
Handled: boolean;
LogCaret: TPoint;
Begin
Handled:=true;
//debugln('TSourceEditor.ProcessUserCommand A ',dbgs(Command));
Handled:=true;
case Command of
@ -1384,6 +1386,7 @@ end;
Procedure TSourceEditor.UserCommandProcessed(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
// called after the source editor processed a key
var Handled: boolean;
begin
Handled:=true;
@ -1392,15 +1395,15 @@ begin
ecNone: ;
ecUndo:
if (FEditor.Modified=false) and (CodeBuffer<>nil) then
CodeBuffer.Assign(FEditor.Lines);
if (FEditor.Modified=false) and (CodeBuffer<>nil) then
CodeBuffer.Assign(FEditor.Lines);
else
begin
Handled:=false;
if FaOwner<>nil then
TSourceNotebook(FaOwner).ParentCommandProcessed(self,Command,aChar,Data,
Handled);
TSourceNotebook(FaOwner).ParentCommandProcessed(Self,Command,aChar,Data,
Handled);
end;
end;
if Handled then Command:=ecNone;