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); |
|
406 begin |
|
407 cVolumeDelta:= 3 |
|
408 end; |
|
409 |
|
410 procedure chVolUp_m(var s: shortstring); |
|
411 begin |
|
412 cVolumeDelta:= 0 |
|
413 end; |
|
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 |