Commit `573f7a0`

Nick committed on Mar 31, 2020

Tweaks

commit 573f7a0220ffffacb9e4789c3366ff2fff25e256 parent d4184b5

3 changed files +14−12

ModifiedGBEmu.lpi +4−1

             </SyntaxOptions>
           </Parsing>
           <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <RelocatableUnit Value="True"/>
             <TargetCPU Value="i386"/>
             <TargetOS Value="win32"/>
             <Optimizations>
-              <OptimizationLevel Value="0"/>
+              <OptimizationLevel Value="4"/>
             </Optimizations>
           </CodeGeneration>
           <Linking>
               <UseLineInfoUnit Value="False"/>
               <StripSymbols Value="True"/>
             </Debugging>
+            <LinkSmart Value="True"/>
             <Options>
               <Win32>
                 <GraphicApplication Value="True"/>

Modifiedconstants.pas +1−1

`@@ -20,7 +20,7 @@ type`
20	`const`	20	`const`
21	`UGE_FORMAT_VERSION = 3;`	21	`UGE_FORMAT_VERSION = 3;`
22		22
23	`INSTRUMENTS_COUNT = 15;`	23	`INSTRUMENTS_COUNT = 45;`
24	`ROUTINES_COUNT = 16;`	24	`ROUTINES_COUNT = 16;`
25	`WAVES_COUNT = 16;`	25	`WAVES_COUNT = 16;`
26		26

Modifiedtracker.pas +9−10

     if S{weep} = 0 then begin
        LineTo(L*Interval, H-V*HInterval); // no sweep
-       MoveTo(L*Interval, H-(V*HInterval));
        LineTo(L*Interval, H);
        LineTo(W, H);
     end
   end;
   WavePaintbox.Invalidate;
+  EnvelopePaintBox.Invalidate;
 end;
 procedure TfrmTracker.ChangeToSquare;
 procedure TfrmTracker.StartVolSpinnerChange(Sender: TObject);
 begin
   CurrentInstrument^.InitialVolume := Round(StartVolTrackbar.Position);
-  DrawEnvelope(EnvelopePaintBox);
+  EnvelopePaintBox.Invalidate;
 end;
 procedure TfrmTracker.SweepDirectionComboboxChange(Sender: TObject);
     'Up': CurrentInstrument^.SweepIncDec := Up;
     'Down': CurrentInstrument^.SweepIncDec := Down;
   end;
-  DrawEnvelope(EnvelopePaintBox);
+  EnvelopePaintBox.Invalidate;
 end;
 procedure TfrmTracker.SweepSizeSpinnerChange(Sender: TObject);
     'Up': CurrentInstrument^.VolSweepDirection := Up;
     'Down': CurrentInstrument^.VolSweepDirection := Down;
   end;
-  DrawEnvelope(EnvelopePaintBox);
+  EnvelopePaintBox.Invalidate;
 end;
 procedure TfrmTracker.CommentMemoChange(Sender: TObject);
 procedure TfrmTracker.EnvChangeSpinnerChange(Sender: TObject);
 begin
   CurrentInstrument^.VolSweepAmount := Round(EnvChangeTrackbar.Position);
-  DrawEnvelope(EnvelopePaintBox);
+  EnvelopePaintBox.Invalidate;
 end;
 procedure TfrmTracker.EnvelopePaintboxPaint(Sender: TObject);
 procedure TfrmTracker.InstrumentNumberSpinnerChange(Sender: TObject);
 begin
   LoadInstrument(CurrentInstrumentBank, InstrumentNumberSpinner.Value);
-  DrawEnvelope(EnvelopePaintBox);
 end;
 procedure TfrmTracker.LengthSpinnerChange(Sender: TObject);
 begin
   CurrentInstrument^.Length := Round(LengthTrackbar.Position);
-  DrawEnvelope(EnvelopePaintBox);
+  EnvelopePaintBox.Invalidate;
 end;
 procedure TfrmTracker.DebugPlayNoteButtonClick(Sender: TObject);
   if OrderEditStringGrid.Row > -1 then
     ReloadPatterns;
-  if Playing = True then begin
+  if Playing then begin
      if TrackerGrid.HighlightedRow <> 0 then begin
         if OrderEditStringGrid.Row = 1 then begin
            if PreparePreview then
 var
   Highest: Integer;
 begin
-  if Playing = True then begin
+  if Playing then begin
      if  OrderEditStringGrid.Row = 1 then begin
         if PreparePreview then begin
            Playing := True;
 begin
   LengthTrackbar.Enabled := LengthEnabledCheckbox.Checked;
   CurrentInstrument^.LengthEnabled := LengthEnabledCheckbox.Checked;
-  DrawEnvelope(EnvelopePaintBox);
+  EnvelopePaintBox.Invalidate;
 end;
 end.

Commit 573f7a0

Commit `573f7a0`