Changeset 660
- Timestamp:
- Jul 4, 2025, 9:07:01 PM (9 hours ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Term.pas
r648 r660 352 352 FMessgExDlg: TMessgExDlg; 353 353 FHelpDlg: THelpDlg; 354 procedure ProcessMessagesWithDisabledKeyboard; 354 355 procedure ResizeControls; 355 356 procedure ArrangeDialogs; … … 6521 6522 end; 6522 6523 6524 procedure TMainScreen.ProcessMessagesWithDisabledKeyboard; 6525 begin 6526 {$IFDEF UNIX} 6527 // TODO: Force animation under UNIX. Causes also to process keyboard events 6528 // which can lead to unexpected errors. 6529 KeyboardDisabled := True; 6530 try 6531 Application.ProcessMessages; 6532 finally 6533 KeyboardDisabled := False; 6534 end; 6535 {$ENDIF} 6536 end; 6537 6523 6538 procedure TMainScreen.MoveOnScreen(ShowMove: TShowMove; 6524 6539 Step0, Step1, nStep: Integer; Restore: Boolean = True); … … 6603 6618 NoMap.PaintUnit(xMoving - xMin, yMoving - yMin, UnitInfo, 0); 6604 6619 PaintBufferToScreen(xMin, yMin, xRange, yRange); 6605 {$IFDEF UNIX} 6606 // TODO: Force animation under UNIX. Causes also to process keyboard events 6607 // which can lead to unexpected errors. 6608 KeyboardDisabled := True; 6609 try 6610 Application.ProcessMessages; 6611 finally 6612 KeyboardDisabled := False; 6613 end; 6614 {$ENDIF} 6620 6621 ProcessMessagesWithDisabledKeyboard; 6615 6622 6616 6623 SliceCount := 0; … … 6622 6629 begin 6623 6630 if not Idle or (GameMode = cMovie) then 6624 Application.ProcessMessages;6631 ProcessMessagesWithDisabledKeyboard; 6625 6632 Sleep(1); 6626 6633 Inc(SliceCount); -
trunk/Start.pas
r648 r660 389 389 if ValueExists('WorldSize') then WorldSize := Reg.ReadInteger('WorldSize') 390 390 else WorldSize := DefaultWorldSize; 391 if WorldSize > MaxWorldSize then WorldSize := MaxWorldSize; 392 if WorldSize > 0 then WorldSize := 0; 391 393 if ValueExists('LandMass') then StartLandMass := Reg.ReadInteger('LandMass') 392 394 else StartLandMass := DefaultLandMass;
Note:
See TracChangeset
for help on using the changeset viewer.