equal
deleted
inserted
replaced
400 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true); |
400 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true); |
401 PixelFormat:= SDLPrimSurface.format; |
401 PixelFormat:= SDLPrimSurface.format; |
402 SDL_ShowCursor(0) |
402 SDL_ShowCursor(0) |
403 end; |
403 end; |
404 |
404 |
405 procedure chVolUp_p(var s: shortstring); |
405 procedure chVol_p(var s: shortstring); |
406 begin |
406 begin |
407 cVolumeDelta:= 3 |
407 inc(cVolumeDelta, 3) |
408 end; |
408 end; |
409 |
409 |
410 procedure chVolUp_m(var s: shortstring); |
410 procedure chVol_m(var s: shortstring); |
411 begin |
411 begin |
412 cVolumeDelta:= 0 |
412 dec(cVolumeDelta, 3) |
413 end; |
413 end; |
414 |
414 |
415 procedure chVolDown_p(var s: shortstring); |
|
416 begin |
|
417 cVolumeDelta:= -3 |
|
418 end; |
|
419 |
|
420 procedure chVolDown_m(var s: shortstring); |
|
421 begin |
|
422 cVolumeDelta:= 0 |
|
423 end; |
|
424 |
|