Commit 7220346

Nick committed on
More work on windows messages crap
commit 7220346fe61cc5b3c2205c8f788d97743e4a1df3 parent c62b314
1 changed files +7−0
Modifiedtracker.pas +7−0
@@ -297,6 +297,8 @@ type
297 SymbolTable: TSymbolMap; 297 SymbolTable: TSymbolMap;
298 OptionsFile: TIniFile; 298 OptionsFile: TIniFile;
299 299
300 PerformingOscilloscopeUpdate: Boolean;
301
300 procedure ChangeToSquare; 302 procedure ChangeToSquare;
301 procedure ChangeToWave; 303 procedure ChangeToWave;
302 procedure ChangeToNoise; 304 procedure ChangeToNoise;
@@ -1457,6 +1459,9 @@ var
1457 I: Integer; 1459 I: Integer;
1458 Samp: Integer; 1460 Samp: Integer;
1459 begin 1461 begin
1462 if PerformingOscilloscopeUpdate then Exit;
1463 PerformingOscilloscopeUpdate := True;
1464
1460 Application.ProcessMessages; 1465 Application.ProcessMessages;
1461 // Hack to prevent the effect editor from choking when it's trying to close. 1466 // Hack to prevent the effect editor from choking when it's trying to close.
1462 if Playing then 1467 if Playing then
@@ -1485,6 +1490,8 @@ begin
1485 Max2 := Trunc((Max2/512)*100); 1490 Max2 := Trunc((Max2/512)*100);
1486 if Max1 > LEDMeter1.Position then LEDMeter1.Position := Max1; 1491 if Max1 > LEDMeter1.Position then LEDMeter1.Position := Max1;
1487 if Max2 > LEDMeter2.Position then LEDMeter2.Position := Max2; 1492 if Max2 > LEDMeter2.Position then LEDMeter2.Position := Max2;
1493
1494 PerformingOscilloscopeUpdate := False;
1488 end; 1495 end;
1489 1496
1490 procedure TfrmTracker.ExportGBSButtonClick(Sender: TObject); 1497 procedure TfrmTracker.ExportGBSButtonClick(Sender: TObject);