Commit 0057d26

Nick Faro committed on
Add version string baked in during compile time
commit 0057d262bb0ad32f2edc2bd708aab5af4b1f1b4b parent 07f720a
4 changed files +75−61
Modified.github/workflows/build.yml +1−0
@@ -96,6 +96,7 @@ jobs:
96 working-directory: hUGETracker 96 working-directory: hUGETracker
97 run: | # The PATH manipulation is because the macOS and Windows installs do NOT put it in the PATH >_< 97 run: | # The PATH manipulation is because the macOS and Windows installs do NOT put it in the PATH >_<
98 export PATH="$PATH":/Applications/Lazarus:/c/lazarus 98 export PATH="$PATH":/Applications/Lazarus:/c/lazarus
99 export VERSION_STRING=`git describe --tags --dirty --always`
99 100
100 lazbuild --add-package-link src/rackctls/RackCtlsPkg.lpk 101 lazbuild --add-package-link src/rackctls/RackCtlsPkg.lpk
101 lazbuild --add-package-link src/bgrabitmap/bgrabitmap/bgrabitmappack.lpk 102 lazbuild --add-package-link src/bgrabitmap/bgrabitmap/bgrabitmappack.lpk
Modifiedsrc/about_hugetracker.lfm +34−34
@@ -1,36 +1,31 @@
1 object frmAboutHugetracker: TfrmAboutHugetracker 1 object frmAboutHugetracker: TfrmAboutHugetracker
2 Left = 1187 2 Left = 1719
3 Height = 322 3 Height = 350
4 Top = 331 4 Top = 326
5 Width = 545 5 Width = 545
6 BorderStyle = bsDialog 6 BorderStyle = bsDialog
7 Caption = 'About hUGETracker' 7 Caption = 'About hUGETracker'
8 ClientHeight = 322 8 ClientHeight = 350
9 ClientWidth = 545 9 ClientWidth = 545
10 OnCreate = FormCreate
10 OnDeactivate = FormDeactivate 11 OnDeactivate = FormDeactivate
11 Position = poDesktopCenter 12 Position = poDesktopCenter
12 LCLVersion = '2.0.12.0' 13 LCLVersion = '2.2.7.0'
13 object Label1: TLabel 14 object Label1: TLabel
14 Left = 185 15 Left = 179
15 Height = 15 16 Height = 17
16 Top = 120 17 Top = 144
17 Width = 175 18 Width = 186
18 Alignment = taCenter 19 Alignment = taCenter
19 Caption = 'Created by Nick "SuperDisk" Faro' 20 Caption = 'Created by Nick "SuperDisk" Faro'
20 Font.CharSet = ANSI_CHARSET
21 Font.Color = clBlack
22 Font.Height = -12
23 Font.Name = 'Segoe UI'
24 Font.Pitch = fpVariable
25 Font.Quality = fqDraft
26 ParentColor = False 21 ParentColor = False
27 ParentFont = False 22 ParentFont = False
28 WordWrap = True 23 WordWrap = True
29 end 24 end
30 object Button1: TButton 25 object Button1: TButton
31 Left = 208 26 Left = 207
32 Height = 25 27 Height = 25
33 Top = 280 28 Top = 312
34 Width = 135 29 Width = 135
35 Caption = 'Close' 30 Caption = 'Close'
36 OnClick = Button1Click 31 OnClick = Button1Click
@@ -38,33 +33,28 @@ object frmAboutHugetracker: TfrmAboutHugetracker
38 TabOrder = 0 33 TabOrder = 0
39 end 34 end
40 object Label2: TLabel 35 object Label2: TLabel
41 Left = 145 36 Left = 144
42 Height = 90 37 Height = 102
43 Top = 176 38 Top = 192
44 Width = 98 39 Width = 104
45 Caption = 'Christian Hackbart'#13#10'Toxa'#13#10'RichardULZ'#13#10'Daid'#13#10'LIJI32'#13#10'ISSOtm' 40 Caption = 'Christian Hackbart'#13#10'Toxa'#13#10'RichardULZ'#13#10'Daid'#13#10'LIJI32'#13#10'ISSOtm'
46 ParentColor = False 41 ParentColor = False
47 end 42 end
48 object Label3: TLabel 43 object Label3: TLabel
49 Left = 321 44 Left = 320
50 Height = 90 45 Height = 102
51 Top = 176 46 Top = 192
52 Width = 78 47 Width = 81
53 Caption = 'Eevee'#13#10'B00daW'#13#10'MelonadeM'#13#10'Goodnight Girl'#13#10'Kabcorp'#13#10'TakuikaNinja' 48 Caption = 'Eevee'#13#10'B00daW'#13#10'MelonadeM'#13#10'Goodnight Girl'#13#10'Kabcorp'#13#10'TakuikaNinja'
54 ParentColor = False 49 ParentColor = False
55 end 50 end
56 object Label4: TLabel 51 object Label4: TLabel
57 Left = 235 52 Left = 232
58 Height = 15 53 Height = 17
59 Top = 152 54 Top = 168
60 Width = 75 55 Width = 80
61 Caption = 'Special thanks' 56 Caption = 'Special thanks'
62 Font.CharSet = ANSI_CHARSET
63 Font.Color = clBlack
64 Font.Height = -12 57 Font.Height = -12
65 Font.Name = 'Segoe UI'
66 Font.Pitch = fpVariable
67 Font.Quality = fqDraft
68 Font.Style = [fsUnderline] 58 Font.Style = [fsUnderline]
69 ParentColor = False 59 ParentColor = False
70 ParentFont = False 60 ParentFont = False
@@ -5726,4 +5716,14 @@ object frmAboutHugetracker: TfrmAboutHugetracker
5726 } 5716 }
5727 end 5717 end
5728 end 5718 end
5719 object VersionLabel: TLabel
5720 Left = 10
5721 Height = 24
5722 Top = 104
5723 Width = 524
5724 Alignment = taRightJustify
5725 AutoSize = False
5726 Caption = 'Version'
5727 ParentColor = False
5728 end
5729 end 5729 end
Modifiedsrc/about_hugetracker.pas +13−0
@@ -18,8 +18,10 @@ type
18 Label2: TLabel; 18 Label2: TLabel;
19 Label3: TLabel; 19 Label3: TLabel;
20 Label4: TLabel; 20 Label4: TLabel;
21 VersionLabel: TLabel;
21 Panel1: TPanel; 22 Panel1: TPanel;
22 procedure Button1Click(Sender: TObject); 23 procedure Button1Click(Sender: TObject);
24 procedure FormCreate(Sender: TObject);
23 procedure FormDeactivate(Sender: TObject); 25 procedure FormDeactivate(Sender: TObject);
24 private 26 private
25 27
@@ -41,6 +43,17 @@ begin
41 Close; 43 Close;
42 end; 44 end;
43 45
46 procedure TfrmAboutHugetracker.FormCreate(Sender: TObject);
47 var
48 GitVersion: String;
49 begin
50 GitVersion := {$I %VERSION_STRING%};
51 if GitVersion = '' then
52 VersionLabel.Caption := 'Unknown Version'
53 else
54 VersionLabel.Caption := 'Version '+GitVersion;
55 end;
56
44 procedure TfrmAboutHugetracker.FormDeactivate(Sender: TObject); 57 procedure TfrmAboutHugetracker.FormDeactivate(Sender: TObject);
45 begin 58 begin
46 Close; 59 Close;
Modifiedsrc/tracker.lfm +27−27
@@ -78,7 +78,7 @@ object frmTracker: TfrmTracker
78 Top = 8 78 Top = 8
79 Width = 297 79 Width = 297
80 Caption = 'Song information' 80 Caption = 'Song information'
81 ClientHeight = 173 81 ClientHeight = 188
82 ClientWidth = 293 82 ClientWidth = 293
83 ParentFont = False 83 ParentFont = False
84 TabOrder = 0 84 TabOrder = 0
@@ -299,28 +299,28 @@ object frmTracker: TfrmTracker
299 MinSize = 33 299 MinSize = 33
300 MaxSize = 33 300 MaxSize = 33
301 Title.Caption = 'Dty1' 301 Title.Caption = 'Dty1'
302 Width = 35 302 Width = 38
303 end 303 end
304 item 304 item
305 Alignment = taCenter 305 Alignment = taCenter
306 MinSize = 33 306 MinSize = 33
307 MaxSize = 33 307 MaxSize = 33
308 Title.Caption = 'Dty2' 308 Title.Caption = 'Dty2'
309 Width = 35 309 Width = 38
310 end 310 end
311 item 311 item
312 Alignment = taCenter 312 Alignment = taCenter
313 MinSize = 33 313 MinSize = 33
314 MaxSize = 33 314 MaxSize = 33
315 Title.Caption = 'Wav' 315 Title.Caption = 'Wav'
316 Width = 35 316 Width = 38
317 end 317 end
318 item 318 item
319 Alignment = taCenter 319 Alignment = taCenter
320 MinSize = 33 320 MinSize = 33
321 MaxSize = 33 321 MaxSize = 33
322 Title.Caption = 'Nse' 322 Title.Caption = 'Nse'
323 Width = 38 323 Width = 39
324 end> 324 end>
325 DefaultColWidth = 17 325 DefaultColWidth = 17
326 DefaultRowHeight = 21 326 DefaultRowHeight = 21
@@ -344,10 +344,10 @@ object frmTracker: TfrmTracker
344 OnValidateEntry = OrderEditStringGridValidateEntry 344 OnValidateEntry = OrderEditStringGridValidateEntry
345 ColWidths = ( 345 ColWidths = (
346 64 346 64
347 35
348 35
349 35
350 38 347 38
348 38
349 38
350 39
351 ) 351 )
352 end 352 end
353 object Splitter2: TSplitter 353 object Splitter2: TSplitter
@@ -1862,7 +1862,7 @@ object frmTracker: TfrmTracker
1862 ParentShowHint = False 1862 ParentShowHint = False
1863 end 1863 end
1864 object PanicToolButton: TToolButton 1864 object PanicToolButton: TToolButton
1865 Left = 495 1865 Left = 499
1866 Hint = 'Stops all sound output' 1866 Hint = 'Stops all sound output'
1867 Top = 0 1867 Top = 0
1868 AutoSize = True 1868 AutoSize = True
@@ -1873,17 +1873,17 @@ object frmTracker: TfrmTracker
1873 ShowHint = True 1873 ShowHint = True
1874 end 1874 end
1875 object ToolButton2: TToolButton 1875 object ToolButton2: TToolButton
1876 Left = 119 1876 Left = 120
1877 Top = 0 1877 Top = 0
1878 Action = PlayCursorAction 1878 Action = PlayCursorAction
1879 end 1879 end
1880 object ToolButton4: TToolButton 1880 object ToolButton4: TToolButton
1881 Left = 148 1881 Left = 149
1882 Top = 0 1882 Top = 0
1883 Action = StopAction 1883 Action = StopAction
1884 end 1884 end
1885 object ExportGBButton: TToolButton 1885 object ExportGBButton: TToolButton
1886 Left = 214 1886 Left = 217
1887 Hint = 'Export the song as a standalone ROM' 1887 Hint = 'Export the song as a standalone ROM'
1888 Top = 0 1888 Top = 0
1889 AutoSize = True 1889 AutoSize = True
@@ -1899,21 +1899,21 @@ object frmTracker: TfrmTracker
1899 Style = tbsDivider 1899 Style = tbsDivider
1900 end 1900 end
1901 object ToolButton6: TToolButton 1901 object ToolButton6: TToolButton
1902 Left = 177 1902 Left = 178
1903 Height = 22 1903 Height = 22
1904 Top = 0 1904 Top = 0
1905 Caption = 'ToolButton6' 1905 Caption = 'ToolButton6'
1906 Style = tbsDivider 1906 Style = tbsDivider
1907 end 1907 end
1908 object ToolButton7: TToolButton 1908 object ToolButton7: TToolButton
1909 Left = 1037 1909 Left = 1043
1910 Height = 22 1910 Height = 22
1911 Top = 0 1911 Top = 0
1912 Caption = 'ToolButton7' 1912 Caption = 'ToolButton7'
1913 Style = tbsSeparator 1913 Style = tbsSeparator
1914 end 1914 end
1915 object OctaveSpinEdit: TSpinEdit 1915 object OctaveSpinEdit: TSpinEdit
1916 Left = 603 1916 Left = 609
1917 Height = 27 1917 Height = 27
1918 Hint = 'The octave offset for entering new notes' 1918 Hint = 'The octave offset for entering new notes'
1919 Top = 0 1919 Top = 0
@@ -1924,14 +1924,14 @@ object frmTracker: TfrmTracker
1924 TabOrder = 0 1924 TabOrder = 0
1925 end 1925 end
1926 object ToolButton9: TToolButton 1926 object ToolButton9: TToolButton
1927 Left = 554 1927 Left = 558
1928 Height = 22 1928 Height = 22
1929 Top = 0 1929 Top = 0
1930 Caption = 'ToolButton9' 1930 Caption = 'ToolButton9'
1931 Style = tbsSeparator 1931 Style = tbsSeparator
1932 end 1932 end
1933 object Label22: TLabel 1933 object Label22: TLabel
1934 Left = 560 1934 Left = 566
1935 Height = 22 1935 Height = 22
1936 Top = 0 1936 Top = 0
1937 Width = 43 1937 Width = 43
@@ -1942,7 +1942,7 @@ object frmTracker: TfrmTracker
1942 ParentFont = False 1942 ParentFont = False
1943 end 1943 end
1944 object Label23: TLabel 1944 object Label23: TLabel
1945 Left = 668 1945 Left = 674
1946 Height = 22 1946 Height = 22
1947 Top = 0 1947 Top = 0
1948 Width = 70 1948 Width = 70
@@ -1953,7 +1953,7 @@ object frmTracker: TfrmTracker
1953 ParentFont = False 1953 ParentFont = False
1954 end 1954 end
1955 object InstrumentComboBox: TComboBox 1955 object InstrumentComboBox: TComboBox
1956 Left = 738 1956 Left = 744
1957 Height = 25 1957 Height = 25
1958 Hint = 'The selected instrument for new notes' 1958 Hint = 'The selected instrument for new notes'
1959 Top = 0 1959 Top = 0
@@ -1971,7 +1971,7 @@ object frmTracker: TfrmTracker
1971 Text = '(no instrument)' 1971 Text = '(no instrument)'
1972 end 1972 end
1973 object Label24: TLabel 1973 object Label24: TLabel
1974 Left = 952 1974 Left = 958
1975 Height = 22 1975 Height = 22
1976 Top = 0 1976 Top = 0
1977 Width = 35 1977 Width = 35
@@ -1982,7 +1982,7 @@ object frmTracker: TfrmTracker
1982 ParentFont = False 1982 ParentFont = False
1983 end 1983 end
1984 object StepSpinEdit: TSpinEdit 1984 object StepSpinEdit: TSpinEdit
1985 Left = 987 1985 Left = 993
1986 Height = 27 1986 Height = 27
1987 Hint = 'How many rows to step down after entering a new note' 1987 Hint = 'How many rows to step down after entering a new note'
1988 Top = 0 1988 Top = 0
@@ -1993,12 +1993,12 @@ object frmTracker: TfrmTracker
1993 TabOrder = 2 1993 TabOrder = 2
1994 end 1994 end
1995 object ToolButton3: TToolButton 1995 object ToolButton3: TToolButton
1996 Left = 90 1996 Left = 91
1997 Top = 0 1997 Top = 0
1998 Action = PlayStartAction 1998 Action = PlayStartAction
1999 end 1999 end
2000 object ExportGBSButton: TToolButton 2000 object ExportGBSButton: TToolButton
2001 Left = 299 2001 Left = 302
2002 Hint = 'Export the song as a GBS soundtrack' 2002 Hint = 'Export the song as a GBS soundtrack'
2003 Top = 0 2003 Top = 0
2004 Caption = 'Export GBS' 2004 Caption = 'Export GBS'
@@ -2006,14 +2006,14 @@ object frmTracker: TfrmTracker
2006 OnClick = ExportGBSButtonClick 2006 OnClick = ExportGBSButtonClick
2007 end 2007 end
2008 object ToolButton5: TToolButton 2008 object ToolButton5: TToolButton
2009 Left = 491 2009 Left = 494
2010 Height = 22 2010 Height = 22
2011 Top = 0 2011 Top = 0
2012 Caption = 'ToolButton5' 2012 Caption = 'ToolButton5'
2013 Style = tbsDivider 2013 Style = tbsDivider
2014 end 2014 end
2015 object ToolButton10: TToolButton 2015 object ToolButton10: TToolButton
2016 Left = 391 2016 Left = 394
2017 Hint = 'Export the song as WAV or MP3' 2017 Hint = 'Export the song as WAV or MP3'
2018 Top = 0 2018 Top = 0
2019 Caption = 'Render Song' 2019 Caption = 'Render Song'
@@ -2021,14 +2021,14 @@ object frmTracker: TfrmTracker
2021 OnClick = ToolButton10Click 2021 OnClick = ToolButton10Click
2022 end 2022 end
2023 object ToolButton11: TToolButton 2023 object ToolButton11: TToolButton
2024 Left = 210 2024 Left = 212
2025 Height = 22 2025 Height = 22
2026 Top = 0 2026 Top = 0
2027 Caption = 'ToolButton11' 2027 Caption = 'ToolButton11'
2028 Style = tbsDivider 2028 Style = tbsDivider
2029 end 2029 end
2030 object LoopSongToolButton: TToolButton 2030 object LoopSongToolButton: TToolButton
2031 Left = 181 2031 Left = 183
2032 Top = 0 2032 Top = 0
2033 ImageIndex = 87 2033 ImageIndex = 87
2034 OnClick = LoopSongToolButtonClick 2034 OnClick = LoopSongToolButtonClick