Changeset 340 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

Apr 2, 2021, 9:09:49 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for F11 full screen switch key in Start dialog.
• Fixed: Allow F1 and F11 key in Start dialog even if listbox is focused.
• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -87 +87 @@
 end;
 
-
 constructor TBufferedDrawDlg.Create(AOwner: TComponent);
 begin
@@ -112 +111 @@
 procedure TBufferedDrawDlg.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  if FWindowMode = wmPersistent then
-  begin
+  if FWindowMode = wmPersistent then begin
     UserLeft := Left;
-    UserTop := Top
+    UserTop := Top;
   end;
   if OffscreenUser = self then
@@ -131 +129 @@
   Shift: TShiftState);
 begin
-  if Key = VK_ESCAPE then
-  begin
+  if Key = VK_ESCAPE then begin
     if fsModal in FormState then
-      ModalResult := mrCancel
-  end
-  else if Key = VK_RETURN then
-  begin
+      ModalResult := mrCancel;
+  end else
+  if Key = VK_RETURN then begin
     if fsModal in FormState then
-      ModalResult := mrOK
-  end
-  else if Key = VK_F1 then begin
+      ModalResult := mrOK;
+  end else
+  if Key = VK_F1 then begin
     if Assigned(ShowNewContentProc) then
       ShowNewContentProc(FWindowMode or wmPersistent, HelpContext);
-  end else if FWindowMode = wmPersistent then begin
+  end else
+  if FWindowMode = wmPersistent then begin
     if Assigned(MainFormKeyDown) then
       MainFormKeyDown(Sender, Key, Shift);