Changeset 100 for trunk/Forms


Ignore:
Timestamp:
Sep 28, 2022, 7:14:22 PM (20 months ago)
Author:
chronos
Message:
  • Added: New game mode carrier where user needs to play existing cities and gradually unlock them by reaching exprected transported number of passengers.
Location:
trunk/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormImages.lfm

    r98 r100  
    787787    Stretch = True
    788788  end
     789  object ImageAchievement: TImage
     790    Left = 345
     791    Height = 71
     792    Top = 208
     793    Width = 64
     794    Picture.Data = {
     795      1754506F727461626C654E6574776F726B47726170686963DD05000089504E47
     796      0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000002
     797      0A504C5445000000000000000000000000000000000000000000000000000000
     798      0000000000000000000000000000000000000000000000000000000000000000
     799      0000000000000000000000000000000000000000000000000000000000000000
     800      0000000000000000000000000000000000000000000000000000000000000000
     801      0000000000000000000000000000000000000000000000000000000000000000
     802      0000000000000000000000000000000000000000000000000000000000000000
     803      0000000000000000000000000000000000000000000000000000000000000000
     804      0000000000000000000000000000000000000000000000000000000000000000
     805      0000000000000000000000000000000000000000000000000000000000000000
     806      0000000000000000000000000000000000000000000000000000000000000000
     807      0000000000000000000000000000000000000000000000000000000000000000
     808      0000000000000000000000000000000000000000000000000000000000000000
     809      0000000000000000000000000000000000000000000000000000000000000000
     810      0000000000000000000000000000000000000000000000000000000000000000
     811      0000000000000000000000000000000000000000000000000000000000000000
     812      0000000000000000000000000000000000000000000000000000000000000000
     813      000000000000000000000000000000884D8C6A000000AD74524E530001020304
     814      050708090A0C0E0F101112131415161718191A1B1E202122242526282B2D2F30
     815      313334353638393A3E414243454648494A4B4F51525357585A5C5E5F60616266
     816      686A6C6D6E70727374757677797A7B7C7E7F8082838687888A8D909192949798
     817      999A9B9C9FA0A1A3A4A7A8A9ABAEB0B2B3B4B5B6B8BCBEBFC1C3C4C8C9CACDCE
     818      CFD2D3D4D5D6D7D8D9DADBDCDDDEE0E1E2E3E5E6E7E8E9EBECEEEFF0F1F2F3F4
     819      F5F6F7F8FAFBFCFD5CCA7DDC000002D549444154789CED96E95B125114C60F22
     820      26214A8B1564496A9B956161645656B6D966B6D12269B699A6A6660B569ADAA6
     821      D91EEDA4AD24F03F76CE0C30C330772EF03C3DF6C1F7CB3D73CEFBFE9E99CB2C
     822      004CEBFFD3AC5BAF3475C3C201D48639AAE5008EF100C73980A33CC0110EA08E
     823      07D8CF085ABB8605F978802FE266DEB42A00DDBCA0521D0AC0935401030AC030
     824      F6BEFAFDFE0985AFB58B01B8AB00F461AF00D745F1B680D51E8CEFCC459319D7
     825      1E05A01D7B65B866C5FB2F0174C4357EE9D0548CC57905E024F67653F1526EFF
     826      B81060C96779E71179AAB038A80050AF858ADEA8F56775699E38B3ACDE3119ED
     827      5EA386070BA7025080BDE7D15311D5101BEA9A63CD7A3A1E088743B315007883
     828      533BAE15D2E99E8D8C322E4A3D071EE7072397122732B96987FF48EE53E2A851
     829      F6AB18F1782F169E048003BB3E0316FD92BD4D1CC9EE522F5DD0632C962700F4
     830      B4FDBBB03824D90F8823B7D4A1B7C1265C1F24E401F661FF03EEBB2D14B3AF83
     831      C2CE369B901035390F20FB1916DB5500D9F42076E27DE28DF9D75EC00D09346E
     832      88357AD1D784EB48A60A00B692055F389561A6D603D4D0AABC0922EAA1D9095D
     833      C6282B3FA4831ABAA55AD4F3601923D7F505552C80D324DC11834606000ADFD3
     834      FCBB674C3D3F78F8132D4FF359797C9899672FE9BE461E20E72A271E6A9AA195
     835      47950F69E5FB5672E22447FBB87ADAD7BC2C89382973D59E730FE3C35EF7167B
     836      92E9887247E4F93B86D4D2A4E2DF52DE3F3FF53C408304E07D92D595F72D9A7F
     837      979516002E4701A7D3CB83330A589126C014F9CE4DE8D30480D12C6866BAF9A9
     838      5339EB3FDEB624019B59CF62DDBF05984A042DD606D84457AE0AA0E887607AAB
     839      0DB827148152B553A80C260D50FB30A1EA93059C616D436B72806E1D0BB05404
     840      54F819DA2902CA5879F3A808D012015ECF519FE96FD3698E6F74A17212C706EA
     841      BB5E90A75FFD0523FB27132E491CE7CAC657D4F26BE4575B943837CBE72EE635
     842      4E6B2AF4175050B7AFF09D59AE0000000049454E44AE426082
     843    }
     844    Proportional = True
     845    Stretch = True
     846  end
    789847end

  • trunk/Forms/UFormImages.pas

    r96 r100  
    1111
    1212  TFormImages = class(TForm)
     13    ImageAchievement: TImage;
    1314    ImageLine: TImage;
    1415    ImageCarriage: TImage;

  • trunk/Forms/UFormMain.lfm

    r94 r100  
    99  Color = clBlack
    1010  DesignTimePPI = 144
    11   OnActivate = FormActivate
    1211  OnClose = FormClose
    1312  OnCreate = FormCreate

  • trunk/Forms/UFormMain.pas

    r96 r100  
    1818    Timer1: TTimer;
    1919    Translator1: TTranslator;
    20     procedure FormActivate(Sender: TObject);
    2120    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2221    procedure FormCreate(Sender: TObject);
    … …  
    8584
    8685  Engine := TEngine.Create;
     86  Engine.RegistryContext := ApplicationInfo1.GetRegistryContext;
    8787  LoadConfig;
     88  // Load cities after language core is loaded to have city names translated
     89  Engine.InitCities;
     90  Engine.LoadFromRegistry;
    8891  //PaintBox1.ControlStyle := [csOpaque];
    8992  Randomize;
    90 end;
    91 
    92 procedure TFormMain.FormActivate(Sender: TObject);
    93 begin
    9493end;
    9594
    … …  
    217216      Translator1.Language := Translator1.Languages.SearchByCode(LangCode);
    218217    end else Translator1.Language := Translator1.Languages.SearchByCode('');
    219     Engine.LoadFromRegistry(CurrentContext);
     218    Engine.LoadFromRegistry;
    220219  finally
    221220    Free;
    … …  
    232231      WriteString('LanguageCode', Translator1.Language.Code)
    233232      else DeleteValue('LanguageCode');
    234     Engine.SaveToRegistry(CurrentContext);
     233    Engine.SaveToRegistry;
    235234  finally
    236235    Free;
    … …  
    260259  CopyImage(Engine.ImageFastForward.Bitmap, FormImages.ImageFastForward.Picture.Bitmap);
    261260  CopyImage(Engine.ImageFastForward.BitmapDisabled, FormImages.ImageFastForward.Picture.Bitmap, True);
     261  CopyImage(Engine.ImageAchievement.Bitmap, FormImages.ImageAchievement.Picture.Bitmap);
     262  CopyImage(Engine.ImageAchievement.BitmapDisabled, FormImages.ImageAchievement.Picture.Bitmap, True);
    262263  if Engine.DarkMode then begin
    263264    BitmapInvert(Engine.ImagePassenger.Bitmap);
    … …  
    281282    BitmapInvert(Engine.ImageFastForward.Bitmap);
    282283    BitmapInvert(Engine.ImageFastForward.BitmapDisabled);
     284    BitmapInvert(Engine.ImageAchievement.Bitmap);
     285    BitmapInvert(Engine.ImageAchievement.BitmapDisabled);
    283286  end;
    284287  Engine.ImageNewTrain.Bitmap.Assign(Engine.ImageLocomotive.Bitmap);
Note: See TracChangeset for help on using the changeset viewer.