Ignore:
Timestamp:
Nov 3, 2021, 11:22:02 AM (3 years ago)
Author:
chronos
Message:
  • Modified: Merged changes from trunk r404.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/highdpi/Start.pas

    r378 r405  
    428428    Free;
    429429  end;
     430
     431  KeyBindings.LoadFromRegistry(HKEY_CURRENT_USER, AppRegistryKey + '\KeyBindings');
    430432end;
    431433
     
    450452    Free;
    451453  end;
     454
     455  KeyBindings.SaveToRegistry(HKEY_CURRENT_USER, AppRegistryKey + '\KeyBindings');
    452456end;
    453457
     
    16241628  f: file;
    16251629  ok: boolean;
     1630  MapPictureFileName: string;
    16261631begin
    16271632  if List.ItemIndex >= 0 then
     
    16441649        begin
    16451650          SimpleMessage(Format(Phrases.Lookup('NOFILENAME'), [NewName[i]]));
    1646           exit
     1651          Exit;
    16471652        end;
    16481653      if Page = pgLoad then
     
    16591664      except
    16601665        // Play('INVALID');
    1661         ok := false
    1662       end;
    1663       if Page <> pgLoad then
    1664         try // rename map picture
     1666        ok := False;
     1667      end;
     1668      if Page <> pgLoad then begin
     1669        // Rename map picture
     1670        MapPictureFileName := GetMapsDir + DirectorySeparator +
     1671          List.Items[List.ItemIndex] + CevoMapPictureExt;
     1672        if FileExists(MapPictureFileName) then
     1673        try
    16651674          AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex]
    1666             + '.png');
    1667           Rename(f, GetMapsDir + DirectorySeparator + NewName + '.png');
     1675            + CevoMapPictureExt);
     1676          Rename(f, GetMapsDir + DirectorySeparator + NewName + CevoMapPictureExt);
    16681677        except
    16691678        end;
    1670       if ok then
    1671       begin
     1679      end;
     1680      if ok then begin
    16721681        if Page = pgLoad then
    16731682          FormerGames[List.ItemIndex] := NewName
Note: See TracChangeset for help on using the changeset viewer.