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

git-svn-id: trunk@8796 -

fv/dialogs.pas

@@ -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 }