Ignore:
Timestamp:
Sep 30, 2020, 12:04:52 PM (4 years ago)
Author:
chronos
Message:
  • Fixed: Crash also with city building sell dialog.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/CityScreen.pas

    r281 r284  
    14791479            (cpImp or cpIndex) then
    14801480          begin // loss of material -- do query
     1481            Application.ProcessMessages; // TODO: Needed for Gtk2, Lazarus gtk2 bug?
    14811482            if (pt1 = ptTrGoods) or (pt1 = ptShip) or (pt1 <> pt0) and
    1482               (pt0 <> ptCaravan) then
     1483              (pt0 <> ptCaravan) then begin
    14831484              QueryOk := SimpleQuery(mkOkCancel,
    14841485                Format(Phrases.Lookup('LOSEMAT'), [MyCity[cix].Prod0,
    14851486                MyCity[cix].Prod0]), 'MSG_DEFAULT') = mrOK
    1486             else if MyCity[cix].Project and (cpImp or cpIndex) = MyCity[cix]
     1487            end else
     1488            if MyCity[cix].Project and (cpImp or cpIndex) = MyCity[cix]
    14871489              .Project0 and (cpImp or cpIndex) then begin
    1488                 Application.ProcessMessages; // TODO: Needed for Gtk2, Lazarus gtk2 bug?
    14891490                QueryOk := SimpleQuery(mkOkCancel, Phrases.Lookup('LOSEMAT3'),
    14901491                  'MSG_DEFAULT') = mrOK;
    1491               end;
     1492            end;
    14921493          end;
    14931494        end;
Note: See TracChangeset for help on using the changeset viewer.