/
swan.lpr
60 lines (51 loc) · 2.21 KB
/
swan.lpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
program swan;
// Copyright 2022-2024 Zoran Vučenović
// SPDX-License-Identifier: Apache-2.0
{$mode objfpc}{$H+}
uses
{$ifdef unix}
cthreads, clocale,
{$endif}
SysUtils,
Interfaces, // this includes the LCL widgetset
Forms,
UnitInit, // keep this at the top (above other our units; rtl, fcl and lcl units can be above, of course)
UnitFrameWordDisplay, UnitSnapshotFiles, UnitSpectrumKeyboard,
unit1, UnitSpectrum, UnitVer, UnitConfigs, UnitTzxPlayer, UnitFormBrowser,
UnitColourPalette, UnitSpectrumColourMap, UnitKeyMaps,
UnitSpectrumColoursBGRA, UnitKeyMapRecords, UnitFrameOneKeyMap,
UnitSpectrumKeysDialog, UnitFormPressAKey, UnitCommon, UnitCommonSpectrum,
UnitJoystick, UnitFrameJoystickSetup, AboutBox, UnitColourFunctions,
UnitDataModuleImages, PortAudioHeader, UnitSoundPlayer, unitSoundVolume,
FastIntegers, UnitInputLibraryPathDialog, UnitFormInputPokes, UnitSZX,
UnitStreamCompression, UnitFormHistorySnapshots, UnitControlScreenBitmap,
UnitTapePlayer, UnitPzxPlayer, UnitSpectrumKeysControl, UnitKeyboardOnScreen,
UnitFormForOptionsBasic, UnitFrameKeyMappings, UnitOptions,
UnitFrameOtherOptions, UnitFrameSpectrumModel, UnitFrameSound,
UnitFrameHistorySnapshotOptions, UnitRecentFiles, UnitMemory, SnapshotZ80,
SnapshotSNA, SoundChipAY_3_8912, UnitFrameChooseFile, UnitFileZip,
UnitRomPaths, UnitSwanToolbar, UnitFrameSoundVolume, UnitFormChooseString,
UnitCSW, UnitDisassembler, UnitDlgStartAdress, UnitGridSpectrumMemory,
UnitFormDebug, UnitFrameGridMemory, UnitDebugCpuState;
{$R *.res}
procedure InitBuildDateString;
begin
// Keep this here in main project file, so that included values are updated.
TCommonSpectrum.SetBuildDate({$i %dateyear%}, {$i %datemonth%}, {$i %dateday%});
end;
procedure SetApplicationTitle;
begin
Application.Title := OnGetApplicationName();
end;
begin
RequireDerivedFormResource := True;
InitBuildDateString;
SetApplicationTitle;
Application.Scaled := True;
Application.TaskBarBehavior := TTaskBarBehavior.tbSingleButton;
Application.Initialize;
Application.ShowButtonGlyphs := TApplicationShowGlyphs.sbgAlways;
Application.ShowMenuGlyphs := TApplicationShowGlyphs.sbgAlways;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.