From 88bb92aee892fde875bd5589ceaddb6b1e5f0b1b Mon Sep 17 00:00:00 2001
From: Jordan Russell <jr-github@jrsoftware.org>
Date: Wed, 25 Dec 2024 01:58:18 -0600
Subject: [PATCH] Initially focus OK button on New Disk form.

---
 Projects/Src/Setup.NewDiskForm.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Projects/Src/Setup.NewDiskForm.pas b/Projects/Src/Setup.NewDiskForm.pas
index eac2348a..31febcd3 100644
--- a/Projects/Src/Setup.NewDiskForm.pas
+++ b/Projects/Src/Setup.NewDiskForm.pas
@@ -58,6 +58,7 @@ function SelectDisk(const DiskNumber: Integer; const AFilename: String;
       Filename := AFilename;
       SelectDiskLabel.Caption := FmtSetupMessage(msgSelectDiskLabel2, [IntToStr(DiskNumber)]);
       PathEdit.Text := Path;
+      ActiveControl := OKButton;
       Result := ShowModal = mrOK;
       if Result then
         Path := GetSanitizedPath;