blob: 3d2994f4dc81180f758caeb47ab236f202d134c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Description: Fix compilation with more recent versions of FPC
This also improves code-quality and fixes warnings.
Forwarded: yes
Author: Matthias Klumpp <mak@debian.org>
--- a/unitmain.pas
+++ b/unitmain.pas
@@ -169,7 +169,7 @@
procedure AddFileAndDirectoryList(SL: TStringList; sublevels: Integer);
procedure UpdateFileCount;
procedure SortListView(Lv:TListView; Index:integer; Reverse: Boolean);
- function AddTask(ASongItem: TSongItem; AMediaGainAction: TMediaGainAction; AVolume: Double): Integer;
+ function AddTask(ASongItem: TSongItem; AMediaGainAction: TMediaGainAction; AVolume: Double): Integer; overload;
function FitsTaskType(ATask: TMediaGainTask; AMediaGainAction: TMediaGainAction; ASongItem: TSongItem): Boolean;
{ private declarations }
public
|
