Warning: Undefined array key "translationlc" in /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php on line 237
Warning: Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in /usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php on line 33
Warning: Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in /usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php on line 34
Warning: Cannot modify header information - headers already sent by (output started at /usr/www/users/fabook/_diggets/doc/v2/lib/plugins/translation/action.php:237) in /usr/www/users/fabook/_diggets/doc/v2/inc/parser/code.php on line 35
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
if not Assigned(GorillaModel1) then
Exit;
if (KeyChar = 'e') then
begin
// next animation if exists
if (GorillaModel1.AnimationManager.Animations.Count > 0) then
begin
GorillaModel1.AnimationManager.PlayNextAnimation();
end;
end
else if (KeyChar = 'q') then
begin
// previous animation if exists
if (GorillaModel1.AnimationManager.Animations.Count > 0) then
begin
GorillaModel1.AnimationManager.PlayPreviousAnimation();
end;
end;
end;