Changeset 517 for trunk


Ignore:
Timestamp:
Jan 5, 2024, 4:35:41 PM (12 months ago)
Author:
chronos
Message:
  • Fixed: Possible exception if there is no active form.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/Term.pas

    r515 r517  
    56295629begin
    56305630  if Idle and (Me >= 0) and (GameMode <> cMovie) then
    5631     if (TFormStateType.fsModal in Screen.ActiveForm.FormState) or
     5631    if Assigned(Screen.ActiveForm) and
     5632      (TFormStateType.fsModal in Screen.ActiveForm.FormState) or
    56325633      (Screen.ActiveForm is TBufferedDrawDlg) and
    56335634      (TBufferedDrawDlg(Screen.ActiveForm).WindowMode <> wmPersistent) then
     
    56625663        if (dx <> 0) or (dy <> 0) then
    56635664        begin
    5664           if (Screen.ActiveForm <> MainScreen) and
     5665          if Assigned(Screen.ActiveForm) and
     5666            (Screen.ActiveForm <> MainScreen) and
    56655667            (@Screen.ActiveForm.OnDeactivate <> nil) then
    56665668            Screen.ActiveForm.OnDeactivate(nil);
Note: See TracChangeset for help on using the changeset viewer.