@@ -16,7 +16,7 @@ procedure BlankPattern(Pat: PPattern); |
| 16 |
procedure BlankCell(var Cell: TCell); |
16 |
procedure BlankCell(var Cell: TCell); |
| 17 |
function EffectCodeToStr(Code: Integer; Params: TEffectParams): String; |
17 |
function EffectCodeToStr(Code: Integer; Params: TEffectParams): String; |
| 18 |
function EffectToExplanation(Code: Integer; Params: TEffectParams): String; |
18 |
function EffectToExplanation(Code: Integer; Params: TEffectParams): String; |
| 19 |
function UniqueOrdersDuringPlayback(Song: TSong; FromPos, ToPos: Integer): Integer; |
19 |
//function UniqueOrdersDuringPlayback(Song: TSong; FromPos, ToPos: Integer): Integer; |
| 20 |
|
20 |
|
| 21 |
function ModInst(Inst: Integer): Integer; |
21 |
function ModInst(Inst: Integer): Integer; |
| 22 |
function UnmodInst(Bank: TInstrumentType; Inst: Integer): Integer; |
22 |
function UnmodInst(Bank: TInstrumentType; Inst: Integer): Integer; |