Changeset 93 for trunk/Forms


Ignore:
Timestamp:
Sep 26, 2022, 10:39:03 PM (2 years ago)
Author:
chronos
Message:
  • Added: Support for train carriages.
  • Added: City support implementation preparation.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormImages.lfm

    r86 r93  
    8585  object ImageTunnel: TImage
    8686    Left = 48
    87     Height = 76
     87    Height = 52
    8888    Top = 156
    89     Width = 84
     89    Width = 48
    9090    Picture.Data = {
    9191      1754506F727461626C654E6574776F726B47726170686963E40E000089504E47
    … …  
    654654    Stretch = True
    655655  end
     656  object ImageCarriage: TImage
     657    Left = 51
     658    Height = 34
     659    Top = 326
     660    Width = 37
     661    Picture.Data = {
     662      1754506F727461626C654E6574776F726B47726170686963D100000089504E47
     663      0D0A1A0A0000000D494844520000002000000020080300000044A48AC6000000
     664      1B504C5445000000000000010101020202030303050505070707080808090909
     665      2516B4820000000174524E530040E6D8660000006449444154789CED91DB0AC0
     666      3008434D6CD7FDFF17AF17A43A287D1B1BEC3C04A251B015F931B062D747B600
     667      55D51455696A81A61C6E4C8DD2BB029B877828A022C935CCCECFB86D72D54EC2
     668      BCB0A2D1F670F113C01117886490482BDB38C9E22CA2FD3E176AF201C23336DB
     669      110000000049454E44AE426082
     670    }
     671  end
    656672end

  • trunk/Forms/UFormImages.pas

    r86 r93  
    1111
    1212  TFormImages = class(TForm)
     13    ImageCarriage: TImage;
    1314    ImageFastForward: TImage;
    1415    ImagePause: TImage;

  • trunk/Forms/UFormMain.pas

    r86 r93  
    196196      Translator1.Language := Translator1.Languages.SearchByCode(LangCode);
    197197    end else Translator1.Language := Translator1.Languages.SearchByCode('');
    198     Engine.DarkMode := ReadBoolWithDefault('DarkMode', False);
    199     Engine.HighestServedPassengerCount := ReadIntegerWithDefault('HighestPassengers', 0);
    200     Engine.HighestServedDaysCount := ReadIntegerWithDefault('HighestDays', 0);
     198    Engine.LoadFromRegistry(CurrentContext);
    201199  finally
    202200    Free;
    … …  
    213211      WriteString('LanguageCode', Translator1.Language.Code)
    214212      else DeleteValue('LanguageCode');
    215     WriteBool('DarkMode', Engine.DarkMode);
    216     WriteInteger('HighestPassengers', Engine.HighestServedPassengerCount);
    217     WriteInteger('HighestDays', Engine.HighestServedDaysCount);
     213    Engine.SaveToRegistry(CurrentContext);
    218214  finally
    219215    Free;
    … …  
    227223  CopyImage(Engine.ImageLocomotive.Bitmap, FormImages.ImageLocomotive.Picture.Bitmap);
    228224  CopyImage(Engine.ImageLocomotive.BitmapDisabled, FormImages.ImageLocomotive.Picture.Bitmap, True);
     225  CopyImage(Engine.ImageCarriage.Bitmap, FormImages.ImageCarriage.Picture.Bitmap);
     226  CopyImage(Engine.ImageCarriage.BitmapDisabled, FormImages.ImageCarriage.Picture.Bitmap, True);
    229227  CopyImage(Engine.ButtonBack.Bitmap, FormImages.ImageLeftArrow.Picture.Bitmap);
    230228  CopyImage(Engine.ButtonBack.BitmapDisabled, FormImages.ImageLeftArrow.Picture.Bitmap, True);
    … …  
    240238    BitmapInvert(Engine.ImageLocomotive.Bitmap);
    241239    BitmapInvert(Engine.ImageLocomotive.BitmapDisabled);
     240    BitmapInvert(Engine.ImageCarriage.Bitmap);
     241    BitmapInvert(Engine.ImageCarriage.BitmapDisabled);
    242242    BitmapInvert(Engine.ButtonBack.Bitmap);
    243243    BitmapInvert(Engine.ButtonBack.BitmapDisabled);
Note: See TracChangeset for help on using the changeset viewer.