Commit 944419d

Nick committed on
Add ability to drop modules onto tracker
commit 944419ddd9b2d72137897455edfb0f82a0836d8a parent 8ee5b1d
2 changed files +20−6
Modifiedtracker.lfm +8−6
@@ -1,8 +1,9 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 968 2 Left = 1872
3 Height = 726 3 Height = 726
4 Top = 181 4 Top = 301
5 Width = 1180 5 Width = 1180
6 AllowDropFiles = True
6 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
7 ClientHeight = 706 8 ClientHeight = 706
8 ClientWidth = 1180 9 ClientWidth = 1180
@@ -11,6 +12,7 @@ object frmTracker: TfrmTracker
11 OnClose = FormClose 12 OnClose = FormClose
12 OnCloseQuery = FormCloseQuery 13 OnCloseQuery = FormCloseQuery
13 OnCreate = FormCreate 14 OnCreate = FormCreate
15 OnDropFiles = FormDropFiles
14 OnKeyDown = FormKeyDown 16 OnKeyDown = FormKeyDown
15 OnKeyUp = FormKeyUp 17 OnKeyUp = FormKeyUp
16 OnShow = FormShow 18 OnShow = FormShow
@@ -60,10 +62,10 @@ object frmTracker: TfrmTracker
60 Height = 563 62 Height = 563
61 Top = 0 63 Top = 0
62 Width = 982 64 Width = 982
63 ActivePage = PatternTabSheet 65 ActivePage = InstrumentTabSheet
64 Align = alClient 66 Align = alClient
65 ParentFont = False 67 ParentFont = False
66 TabIndex = 1 68 TabIndex = 2
67 TabOrder = 0 69 TabOrder = 0
68 object GeneralTabSheet: TTabSheet 70 object GeneralTabSheet: TTabSheet
69 Caption = 'General' 71 Caption = 'General'
@@ -288,7 +290,7 @@ object frmTracker: TfrmTracker
288 end 290 end
289 object InstrumentTabSheet: TTabSheet 291 object InstrumentTabSheet: TTabSheet
290 Caption = 'Instruments' 292 Caption = 'Instruments'
291 ClientHeight = 452 293 ClientHeight = 535
292 ClientWidth = 974 294 ClientWidth = 974
293 ParentFont = False 295 ParentFont = False
294 object PaintBox1: TPaintBox 296 object PaintBox1: TPaintBox
@@ -296,7 +298,7 @@ object frmTracker: TfrmTracker
296 AnchorSideTop.Side = asrBottom 298 AnchorSideTop.Side = asrBottom
297 AnchorSideBottom.Side = asrBottom 299 AnchorSideBottom.Side = asrBottom
298 Left = 0 300 Left = 0
299 Height = 14 301 Height = 97
300 Hint = 'Preview of how the resulting waveform will look with envelope applied' 302 Hint = 'Preview of how the resulting waveform will look with envelope applied'
301 Top = 438 303 Top = 438
302 Width = 974 304 Width = 974
Modifiedtracker.pas +12−0
@@ -229,6 +229,7 @@ type
229 procedure EditDelete1Execute(Sender: TObject); 229 procedure EditDelete1Execute(Sender: TObject);
230 procedure FileSaveAs1BeforeExecute(Sender: TObject); 230 procedure FileSaveAs1BeforeExecute(Sender: TObject);
231 procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); 231 procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
232 procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
232 procedure HexWaveEditEditingDone(Sender: TObject); 233 procedure HexWaveEditEditingDone(Sender: TObject);
233 procedure MenuItem37Click(Sender: TObject); 234 procedure MenuItem37Click(Sender: TObject);
234 procedure MenuItem38Click(Sender: TObject); 235 procedure MenuItem38Click(Sender: TObject);
@@ -1383,6 +1384,17 @@ begin
1383 CanClose := CheckUnsavedChanges; 1384 CanClose := CheckUnsavedChanges;
1384 end; 1385 end;
1385 1386
1387 procedure TfrmTracker.FormDropFiles(Sender: TObject;
1388 const FileNames: array of String);
1389 begin
1390 if Length(FileNames) >= 1 then begin
1391 if not (ExtractFileExt(FileNames[0]) = '.uge') or (not CheckUnsavedChanges) then
1392 Exit;
1393
1394 LoadSong(FileNames[0]);
1395 end;
1396 end;
1397
1386 procedure TfrmTracker.HexWaveEditEditingDone(Sender: TObject); 1398 procedure TfrmTracker.HexWaveEditEditingDone(Sender: TObject);
1387 var 1399 var
1388 S: String; 1400 S: String;