Extract helpers into BoardUtils, WisdomBuilder, UISync, PlatformUtils

- BoardUtils: BoardTypeName (removes duplication with DeviceForm)
- WisdomBuilder: TWisdomBuildThread + TWisdomProgressDialog
- UISync: TDeviceFoundSync/TStatusUISync/TDDCSeqSync via callbacks
  (avoids circular dependency, removes TObject casts)
- PlatformUtils: HasOpenGLSpectrumSwitch + CurrentScreenDPI

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

WisdomBuilder.pas

@@ -0,0 +1,129 @@
+unit WisdomBuilder;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, ExtCtrls, StdCtrls,
+  WDSP, AppTheme, FlatProgressBar;
+
+type
+  TWisdomBuildThread = class(TThread)
+  private
+    FDirectory: string;
+    FError:     string;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(const ADirectory: string);
+    property ErrorText: string read FError;
+  end;
+
+  TWisdomProgressDialog = class(TForm)
+  private
+    FInfoLabel: TLabel;
+    FProgress:  TFlatProgressBar;
+    FTimer:     TTimer;
+    FThread:    TWisdomBuildThread;
+    FPhase:     Integer;
+    procedure TimerTick(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent; AThread: TWisdomBuildThread;
+      const ATheme: TAppTheme); reintroduce;
+  end;
+
+implementation
+
+constructor TWisdomBuildThread.Create(const ADirectory: string);
+begin
+  inherited Create(False);
+  FreeOnTerminate := False;
+  FDirectory      := ADirectory;
+  FError          := '';
+end;
+
+procedure TWisdomBuildThread.Execute;
+var
+  DirA: AnsiString;
+begin
+  try
+    if not Assigned(@WDSPwisdom) then Exit;
+    DirA := AnsiString(FDirectory);
+    WDSPwisdom(PAnsiChar(DirA));
+  except
+    on E: Exception do
+      FError := E.ClassName + ': ' + E.Message;
+  end;
+end;
+
+constructor TWisdomProgressDialog.Create(AOwner: TComponent;
+  AThread: TWisdomBuildThread; const ATheme: TAppTheme);
+begin
+  inherited CreateNew(AOwner);
+  FThread := AThread;
+  FPhase  := 0;
+
+  Caption     := 'WDSP Wisdom';
+  Width       := 520;
+  Height      := 140;
+  Position    := poScreenCenter;
+  BorderStyle := bsDialog;
+  BorderIcons := [];
+  Color       := ATheme.BG;
+  Font.Name   := 'Courier New';
+  Font.Size   := 9;
+  Font.Color  := ATheme.Text;
+
+  FInfoLabel := TLabel.Create(Self);
+  FInfoLabel.Parent := Self;
+  FInfoLabel.SetBounds(16, 16, 480, 40);
+  FInfoLabel.AutoSize := False;
+  FInfoLabel.WordWrap := True;
+  FInfoLabel.Font.Color := ATheme.Text;
+  FInfoLabel.Caption :=
+    'Creating FFTW wisdom for WDSP. This is done once and may take a while on the first run.';
+
+  FProgress := TFlatProgressBar.Create(Self);
+  FProgress.Parent := Self;
+  FProgress.SetBounds(16, 72, 480, 22);
+  FProgress.Min      := 0;
+  FProgress.Max      := 100;
+  FProgress.Position := 0;
+  FProgress.SetAppTheme(ATheme);
+
+  FTimer := TTimer.Create(Self);
+  FTimer.Interval := 250;
+  FTimer.OnTimer  := TimerTick;
+  FTimer.Enabled  := True;
+end;
+
+procedure TWisdomProgressDialog.TimerTick(Sender: TObject);
+var
+  P: PAnsiChar;
+  S: string;
+begin
+  FPhase := (FPhase + 7) mod 101;
+  FProgress.Position := FPhase;
+
+  if Assigned(@wisdom_get_status) then
+  begin
+    P := wisdom_get_status;
+    if P <> nil then
+    begin
+      S := Trim(string(AnsiString(P)));
+      if S <> '' then
+        FInfoLabel.Caption := S;
+    end;
+  end;
+
+  if Assigned(FThread) and FThread.Finished then
+  begin
+    FTimer.Enabled := False;
+    ModalResult := mrOk;
+  end;
+end;
+
+end.