Commit `97fea04`

Nick Faro committed on Apr 20, 2024

Correct uge spec, add checks for tracker grid casting

commit 97fea04e5ee186a9b5e6220df786a3dfec8ed435 parent aed1006

2 changed files +29−8

Modifiedmanual/src/hUGETracker/uge-format.md +9−8

`@@ -1,14 +1,15 @@`
1	`# hUGETracker .UGE v5/v6 format spec`	1	`# hUGETracker .UGE v5/v6 format spec`
2	`## Data types`	2	`## Data types`
3		3
4	`\| Name \| Byte length \| Description \|`	4	`\| Name \| Byte length \| Description \|`
5	`\|---------------\|-------------\|--------------------------------------------------------------------------\|`	5	`\|---------------\|-------------\|--------------------------------------------------------------------------------------------------------------------------------\|`
6	\| `uint8` \| 1 \| Also known as char, ranges from 0 to 255. \|	6	\| `uint8` \| 1 \| Also known as char, ranges from 0 to 255. \|
7	\| `uint32` \| 4 \| Also known as word, ranges from 0 to 4,294,967,295. \|	7	\| `uint32` \| 4 \| Also known as word, ranges from 0 to 4,294,967,295. \|
8	\| `int8` \| 1 \| Ranges from -127 to 127. \|	8	\| `int8` \| 1 \| Ranges from -127 to 127. \|
9	\| `bool` \| 1 \| If not-zero, then True. \|	9	\| `bool` \| 1 \| If not-zero, then True. \|
10	\| `shortstring` \| 256 \| Consists of a byte defining the readable length and then 255 characters. \|	10	\| `shortstring` \| 256 \| Consists of a byte defining the readable length and then 255 characters. \|
11	\| `string` \| - \| A stream of characters, with 0x00 being the terminator value. \|	11	\| `string` \| - \| Consists of a uint32 defining the number of characters, and then a stream of characters, with 0x00 being the terminator value. \|
		12	`\| \| \| \|`
12		13
13	`All types are little endian unless noted otherwise.`	14	`All types are little endian unless noted otherwise.`
14		15

Modifiedsrc/tracker.pas +20−0

 procedure TfrmTracker.MenuItem56Click(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).ChangeSelectionInstrument;
 end;
 procedure TfrmTracker.MenuItem31Click(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).InterpolateSelection;
 end;
 procedure TfrmTracker.OnIncrementValueBy1Click(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).IncrementSelection(1, 1, 0, 0, 1);
 end;
 procedure TfrmTracker.OnDecrementValueBy1Click(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).IncrementSelection(-1, -1, 0, 0, -1);
 end;
 procedure TfrmTracker.OnIncrementValueBy10Click(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).IncrementSelection(12, 10, 0, 0, $10);
 end;
 procedure TfrmTracker.OnDecrementValueBy10Click(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).IncrementSelection(-12, -10, 0, 0, -$10);
 end;
 procedure TfrmTracker.TrackerPopupCopyClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   SendMessage((ActiveControl as TTrackerGrid).Handle, LM_COPY, 0, 0)
 end;
 procedure TfrmTracker.TrackerPopupCutClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   SendMessage((ActiveControl as TTrackerGrid).Handle, LM_CUT, 0, 0)
 end;
 procedure TfrmTracker.TrackerPopupEditEffectClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).OpenEffectEditor;
 end;
 procedure TfrmTracker.TrackerPopupEraseClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).EraseSelection
 end;
 procedure TfrmTracker.TrackerPopupFloodPasteClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).DoRepeatPaste;
 end;
 procedure TfrmTracker.TrackerPopupPasteClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   SendMessage((ActiveControl as TTrackerGrid).Handle, LM_PASTE, 0, 0)
 end;
 procedure TfrmTracker.TrackerPopupRedoClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).DoRedo
 end;
 procedure TfrmTracker.TrackerPopupSelectAllClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).SelectAll
 end;
 procedure TfrmTracker.TrackerPopupSelectChannelClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).SelectColumn
 end;
 procedure TfrmTracker.TrackerPopupTransposeOctaveDownClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).TransposeSelection(-12);
   if TrackerSettings.PreviewWhenBumping then
     PreviewNoteUnderCursor;
 procedure TfrmTracker.TrackerPopupTransposeOctaveUpClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).TransposeSelection(12);
   if TrackerSettings.PreviewWhenBumping then
     PreviewNoteUnderCursor;
 procedure TfrmTracker.TrackerPopupTransposeSemiDownClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).TransposeSelection(-1);
   if TrackerSettings.PreviewWhenBumping then
     PreviewNoteUnderCursor;
 procedure TfrmTracker.TrackerPopupTransposeSemiUpClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).TransposeSelection(1);
   if TrackerSettings.PreviewWhenBumping then
     PreviewNoteUnderCursor;
 procedure TfrmTracker.TrackerPopupUndoClick(Sender: TObject);
 begin
+  if not (ActiveControl is TTrackerGrid) then Exit;
   (ActiveControl as TTrackerGrid).DoUndo
 end;

Commit 97fea04

Commit `97fea04`