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

synedit now stops, when key was handled

Browse Source 
git-svn-id: trunk@6321 -
This commit is contained in:
mattias 2004-12-02 11:23:41 +00:00
parent eb92b0e1d3
commit 330e4a4b46
2 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -6739,8 +6739,14 @@ begin
ExecuteCommand(Command, AChar, Data);
// notify hooked command handlers after the command was executed inside of
// the class
{$IFDEF SYN_LAZARUS}
if Command <> ecNone then
{$ENDIF}
NotifyHookedCommandHandlers(TRUE, Command, AChar, Data);
end;
{$IFDEF SYN_LAZARUS}
if Command <> ecNone then
{$ENDIF}
DoOnCommandProcessed(Command, AChar, Data);
end;

13
ide/main.pp
View File

@ -2034,6 +2034,9 @@ begin
ecSaveAll:
DoSaveAll([sfCheckAmbigiousFiles]);
ecQuit:
mnuQuitClicked(Self);
ecBuild:
begin
GetCurrentUnit(ASrcEdit,AnUnitInfo);
@ -6233,6 +6236,7 @@ procedure TMainIDE.DoRestart;
{$IFNDEF VER1_0}
StartLazProcess := TProcess.Create(nil);
try
// TODO: use the target directory, where the new startlazarus is
StartLazProcess.CurrentDirectory := ExtractFileDir(ParamStr(0));
ExeName := AppendPathDelim(StartLazProcess.CurrentDirectory) +
'startlazarus' + GetDefaultExecutableExt;
@ -6250,6 +6254,7 @@ procedure TMainIDE.DoRestart;
{$ENDIF}
end;
var CanClose: boolean;
begin
{$IFDEF VER1_0}
if not StartedByStartLazarus then begin
@ -6257,7 +6262,10 @@ begin
exit;
end;
{$ENDIF}
mnuQuitClicked(Self);
CanClose:=true;
MainIDEBar.OnCloseQuery(Self, CanClose);
if not CanClose then exit;
MainIDEBar.Close;
if Application.Terminated then begin
if StartedByStartLazarus then
ExitCode := ExitCodeRestartLazarus
@ -10955,6 +10963,9 @@ end.
{ =============================================================================
$Log$
Revision 1.802 2004/12/02 11:23:41 mattias
synedit now stops, when key was handled
Revision 1.801 2004/11/26 21:43:41 vincents
fixed fpc 1.0.x compilation