mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 17:27:32 +00:00
ew8bakandClaude Sonnet 4.6
9716b88b0c
- 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>
30 lines
596 B
ObjectPascal
30 lines
596 B
ObjectPascal
unit BoardUtils;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE Delphi}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
function BoardTypeName(BoardType: Integer): string;
|
|
|
|
implementation
|
|
|
|
uses SysUtils;
|
|
|
|
function BoardTypeName(BoardType: Integer): string;
|
|
begin
|
|
case BoardType of
|
|
1: Result := 'HERMES (ANAN-10/100)';
|
|
2: Result := 'HERMES-E (ANAN-10E/100B)';
|
|
3: Result := 'ANGELIA (ANAN-100D)';
|
|
4: Result := 'ORION (ANAN-200D)';
|
|
5: Result := 'ORION MkII (ANAN-7000/8000)';
|
|
6: Result := 'HERMES-LITE 2';
|
|
10: Result := 'SATURN (G2)';
|
|
else Result := Format('Unknown Board #%d', [BoardType]);
|
|
end;
|
|
end;
|
|
|
|
end.
|