Commit c5c2c54

Nick Faro committed on
Tweak for pasting FT volumes
commit c5c2c540fb07142c6fc197fb7426ed5383792c2a parent 21d8231
2 changed files +10−3
Modifiedclipboardutils.pas +8−1
@@ -5,7 +5,7 @@ unit ClipboardUtils;
5 interface 5 interface
6 6
7 uses 7 uses
8 Classes, SysUtils, Constants, Clipbrd, HugeDatatypes, Utils; 8 Classes, SysUtils, Constants, Clipbrd, HugeDatatypes, Utils, Math;
9 9
10 type 10 type
11 EClipboardFormatException = class(Exception); 11 EClipboardFormatException = class(Exception);
@@ -123,6 +123,13 @@ function GetFamitrackerPastedCells: TSelection;
123 Result.EffectCode := FTM_EFFECTS[Note.EffNumber[0]]; 123 Result.EffectCode := FTM_EFFECTS[Note.EffNumber[0]];
124 Result.EffectParams.Value := Note.EffParam[0]; 124 Result.EffectParams.Value := Note.EffParam[0];
125 end; 125 end;
126
127 if (Result.EffectCode = 0)
128 and (Result.EffectParams.Value = 0)
129 and InRange(Note.Vol, 0, $F) then begin
130 Result.EffectCode := $C;
131 Result.EffectParams.Param2 := Note.Vol;
132 end;
126 end; 133 end;
127 function FTMColumnToPart(Col: TFTMColumn): TCellPart; 134 function FTMColumnToPart(Col: TFTMColumn): TCellPart;
128 begin 135 begin
Modifiedtracker.lfm +2−2
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1572 2 Left = 502
3 Height = 857 3 Height = 857
4 Top = 160 4 Top = 100
5 Width = 1318 5 Width = 1318
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'