equal
deleted
inserted
replaced
498 begin |
498 begin |
499 CheckDefaultSlotKeys:= false; |
499 CheckDefaultSlotKeys:= false; |
500 {$ELSE} |
500 {$ELSE} |
501 var i, code: LongInt; |
501 var i, code: LongInt; |
502 begin |
502 begin |
503 WriteLnToConsole('Check'); |
|
504 for i:=1 to cMaxSlotIndex do |
503 for i:=1 to cMaxSlotIndex do |
505 begin |
504 begin |
506 code:= KeyNameToCode('f'+IntToStr(i)); |
505 code:= KeyNameToCode('f'+IntToStr(i)); |
507 WriteLnToConsole('f'+IntToStr(i)); |
|
508 WriteLnToConsole(CurrentBinds.binds[CurrentBinds.indices[code]]); |
|
509 if CurrentBinds.binds[CurrentBinds.indices[code]] <> 'slot '+char(i+48) then |
506 if CurrentBinds.binds[CurrentBinds.indices[code]] <> 'slot '+char(i+48) then |
510 begin |
507 begin |
511 WriteLnToConsole('false'); |
|
512 CheckDefaultSlotKeys:= false; |
508 CheckDefaultSlotKeys:= false; |
513 exit; |
509 exit; |
514 end; |
510 end; |
515 end; |
511 end; |
516 WriteLnToConsole('true'); |
|
517 CheckDefaultSlotKeys:= true; |
512 CheckDefaultSlotKeys:= true; |
518 {$ENDIF} |
513 {$ENDIF} |
519 end; |
514 end; |
520 {$ENDIF} |
515 {$ENDIF} |
521 |
516 |