paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 08:28:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support of Ctrl-F4 and Ctrl-F5 for modal dialogs, solves #6747

Browse Source 
git-svn-id: trunk@8796 -
This commit is contained in:
florian 2007-10-14 14:52:38 +00:00
parent aff5e1c197
commit 3744241d04
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fv/dialogs.pas
View File

@ -1136,13 +1136,23 @@ BEGIN
evNothing: Exit; { Speed up exit }
evKeyDown: { Key down event }
Case Event.KeyCode Of
kbEsc: Begin { Escape key press }
kbEsc, kbCtrlF4: Begin { Escape key press }
Event.What := evCommand; { Command event }
Event.Command := cmCancel; { cancel command }
Event.InfoPtr := Nil; { Clear info ptr }
PutEvent(Event); { Put event on queue }
ClearEvent(Event); { Clear the event }
End;
kbCtrlF5: Begin { movement of modal dialogs }
If (State AND sfModal <> 0) Then
begin
Event.What := evCommand;
Event.Command := cmResize;
Event.InfoPtr := Nil;
PutEvent(Event);
ClearEvent(Event);
end;
End;
kbEnter: Begin { Enter key press }
Event.What := evBroadcast; { Broadcast event }
Event.Command := cmDefault; { Default command }