Changeset 97
- Timestamp:
- Sep 28, 2022, 1:18:41 PM (2 years ago)
- Location:
- trunk
- Files:
-
- 11 added
- 6 deleted
- 2 edited
-
Forms/UFormImages.lfm (modified) (3 diffs)
-
Images/32x32 (deleted)
-
Images/64x64/Carriage.png (added)
-
Images/64x64/Locomotive.png (added)
-
Images/64x64/Passenger.png (added)
-
Images/64x64/Rails.png (added)
-
Images/64x64/Terminal.png (added)
-
Images/64x64/Tunnel.png (added)
-
Images/Carriage.png (deleted)
-
Images/Carriage.svg (added)
-
Images/Locomotive.png (deleted)
-
Images/Locomotive.svg (added)
-
Images/Passenger.png (deleted)
-
Images/Passenger.svg (added)
-
Images/Terminal.png (deleted)
-
Images/Terminal.svg (added)
-
Images/Tunnel.png (deleted)
-
Images/Tunnel.svg (added)
-
UEngine.pas (modified) (14 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormImages.lfm
r96 r97 10 10 LCLVersion = '2.2.2.0' 11 11 object ImageLocomotive: TImage 12 Left = 48 13 Height = 51 14 Top = 48 15 Width = 48 16 Picture.Data = { 17 1754506F727461626C654E6574776F726B477261706869634E04000089504E47 18 0D0A1A0A0000000D494844520000001A0000001A0806000000A94A4CCE000001 19 A37A5458745261772070726F66696C6520747970652065786966000078DA9D53 20 D96DC3300CFDE7141D413C748DE3D812D00D3A7E1F6539B58324084A4216FD48 21 F336B59FEF4E5F4E490259CC25D59402C8AA55592094B093CB371CC1D976A8A4 22 7010873A9E8388973B7C511C38CB153FE9AF8E6C46E7DB5571E0521E1CC97EA9 23 0780CC361DD529B0027E1239D59283FDBD2F33409F25A61C2D951C296D4924A8 24 4A53C1297B340DCA1A75C1AD788AA29D4018721C8869762F6E8DE89029CC8CD4 25 3F1745A72ABBE2C047013A3B7FC24728577833AB3B7A2825C8AE786C7AD017F8 26 241AE929D47A72969E4FE6DD60E8DD644659A7469B4D49AE389ACC744EAFF7AD 27 F4DE86852D96B0A0696ED8513C4F3BACA9790D119598334188BB88DB39A1A52B 28 763B4FEED8ED1BF25D99436701FBEDA49C78E58CDB78218E032CD0175E7803F7 29 C1CA59444C849B183E68C0DA3D179E61F308DC4221C46E303238336EFF67FAD4 30 B0F7D55BC4FE43FBE8719097F858BC58345BFD8219A6C0F1D4DAD754A6B5F1DF 31 9C03BDB23E8C3F703C6C6978FEC878F35D5EC7F2EEE5782D413B525CCB39A3DC 32 615CE917EF6C0E12106D4CAD0000000473424954080808087C08648800000256 33 494441544889EDD5CB8B8E511C07F0CF6B088331E3362E65904244512E1B9750 34 5888AC2C908DAC6DC63F6136964A24A4946CD42865E1B29094CB2445E412C98C 35 C618C63BF38EC5EF3CCD338F77F2BED6BE757ACE73FA9DF3FD5DBEE777F88F7F 36 44430D36F3B01BEBD087AF69BD94464DF89B610B4E635F72EA113AF0061B3015 37 D7F11AF393CD2B0CD6EA4086ADE8C6701A15F4E21306504617AEE1395EE030C6 38 D543321EEDC9BBE13AC62D34150F1B8BB9842D385EB029E31DBEE5D606D3BA44 39 D49DFB1FE5753534E184287C275662126EE0AA10C6210CE1267E606722EDC0CF 40 31CEFD036BF104DB310133D19AE652942D684EF39210C6546308AC5A44E33017 41 B745A1CBF852B0A9A0A7B0D6576B141926E30ADE6273BD9BC742B588CAF828F2 42 FFB9605B2D3583E817752D8A6B485C874A91A80D4BD3BC1F2BB020FD2FC54121 43 8A3CDEE1328E884BDB8BC7C9E10F3863B44ACD168AFA865FC99BEF22F77D4249 44 D5EE4D057744AA87F1000B310D8D5906B2884AD8835D9892236FF477948CA851 45 22FE993232942DE69B6A53226AAEE1F022DE8B089A84F36D9881A789789418BA 46 700E7BD5D1957344592D5B7154D4F292D42532A2061CC3014CFC07A2359865A4 47 6E725F1951094B44375865A4C5E7A3ADA46F5EBE4346BA0221A25B42480D4271 48 5B852ABB32C3562C4B9BCFE394780632CF3AC5539011967156B4A90C03A217F6 49 8BBEB701D315AE434B32EA11F95D8C7B69F35BECC70EF1A80DE02156E3A468BC 50 FDB82884D49EA2BB20A7DA52EEBB128B70376D5E818DE9F0FB299AF5582EEECA 51 53A1B46DE24ADC16A298834D7886970AB5FA8FBAF11B2323A18BCA4EBE010000 52 000049454E44AE426082 53 } 12 Left = 488 13 Height = 64 14 Top = 136 15 Width = 64 16 Picture.Data = { 17 1754506F727461626C654E6574776F726B477261706869637C06000089504E47 18 0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000002 19 4C504C5445000000000000000000000000000000000000000000000000000000 20 0000000000000000000000000000000000000000000000000000000000000000 21 0000000000000000000000000000000000000000000000000000000000000000 22 0000000000000000000000000000000000000000000000000000000000000000 23 0000000000000000000000000000000000000000000000000000000000000000 24 0000000000000000000000000000000000000000000000000000000000000000 25 0000000000000000000000000000000000000000000000000000000000000000 26 0000000000000000000000000000000000000000000000000000000000000000 27 0000000000000000000000000000000000000000000000000000000000000000 28 0000000000000000000000000000000000000000000000000000000000000000 29 0000000000000000000000000000000000000000000000000000000000000000 30 0000000000000000000000000000000000000000000000000000000000000000 31 0000000000000000000000000000000000000000000000000000000000000000 32 0000000000000000000000000000000000000000000000000000000000000000 33 0000000000000000000000000000000000000000000000000000000000000000 34 0000000000000000000000000000000000000000000000000000000000000000 35 0000000000000000000000000000000000000000000000000000000000000000 36 0000000000000000000000000000000000000000000000000000000000000000 37 000000000000000000000000000000000028302912000000C374524E53000102 38 030405060708090A0B0C0D0F10121317181B1C1D1E1F2021222325262728292A 39 2C2D2E2F31323538393A3B3C3D3F404142434445464748494A4B4C4F50515255 40 565758595C5D5F6061626364656668696A6B6C6D6F707172737576787A7B7C7D 41 7E7F818283848687898A8B8C8D8E8F9091929395969798999C9D9FA1A2A3A4A6 42 A7AAACADAFB0B2B3B5B6B9BABBBCBDBEBFC1C2C3C6CACBCCCECFD1D3D4D5D6D7 43 D9DADBDDDEDFE2E3E4E5E6E7E8E9EBECEDEEEFF1F2F3F4F5F6F7F8F9FAFBFCFD 44 23F0DC720000031C49444154789CED96E95F8C5114C7CFCC18EDA54D89562413 45 518452514CCA362D14913042595A50A4260A891646A5A868215A69514C5173FE 46 31F73ECF8CA6993B99A779E5A3DF9BE79CCF3DE73BF79E7BE7DE03B0AC65FD55 47 8EBBE532C9D2D32517A710B12F66C98072E43497B0C4FC48D469F4C15BF549A9 48 70800A0DA5B6110C685900C0E2C30A995810A0164DF43E540820CD14809A2D02 49 00CEB30C429780558433F211659603B63101C99603A41F588014CB0110D06E90 50 385C5CA3A55F850000C03A3FFD6198F406C8A5C671410080781DA080D81BA971 51 4C200094DCC4EBEC881940ADA34201B0F94E9D2A5E44AD400A38C208919CBBC4 52 9672615C903900E433779CDC0496CED2A1DF1240510DA7341621D11280EE5494 53 B100221797575601881AC9D8ED35F3929B0052DB68FED3583380063278C5C08F 54 302D62D9A2E7E09F009C5113ED3507A045FCA49E57BB9083A407184B5BC4504E 55 34FB856001CC689079AD090020165A0B60DD8CC2005F9DAC04A0DC5A80691578 56 40DFAD5359259FFF848DA9B24F5C9BBFDC679E9F4F5736FCA2A68A09184BE25E 57 BE1529935CFCDC55476E68472F9FFFC48B737DEB91BFA54D0023FE20ABECEC28 58 0F81E0711233BB1FBC0ADABA6BF6C1AA3734FFA6C8FE6C538F3AC346427A9F78 59 1620022E7077F86C26C4918F12A2F8995449577F436C14FBF06F5D87BBB4B5DF 60 9601A88504FD62F740130EDBF97CD7B97970197193B443E7B688230BB76F1019 61 015E6022BC432C757523BDD16B48C5BB508AD8ECE798A9458D732076C141C481 62 70DBE851C45DE2215211913120C81DB1975471E5206AED433115BA1169D91E23 63 4689A6ABE9757088B81988F9DC9FDFDB18E0E147164ACD5644B74032A1419CA6 64 6DEA0DC40330720FAA11B7123716B1041E210E199521BBC2D34E83536B01D6CF 65 E084D8B76227A903C9040752BA10D1FD745A8712125885789A4417F89B9411E0 66 21E297BCEBE37C208002F16799922CA4937F1A49CFF42C87EC96C69391CBC963 67 802FF34757CE95BCE4DD1FBAD62C57B70B99E6F24943D14C03EAF5BFE0503E47 68 DC9E30FD70166DBE2716EF51829393820CE72457841934764E712931F68BE62F 69 EBFFD46F239C4EAB427A0FDD0000000049454E44AE426082 70 } 71 Proportional = True 72 Stretch = True 54 73 end 55 74 object ImagePassenger: TImage 56 Left = 50 57 Height = 48 58 Top = 96 59 Width = 48 60 Picture.Data = { 61 1754506F727461626C654E6574776F726B477261706869638C02000089504E47 62 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000002 63 534944415478DAED974D48545118868FB40A1223507063B45204055112425168 64 5C883B330817891B07050904C13024D1285A840B115C486E5C84421409434D62 65 B410C5D9244662040A91084282200A61CFE7FD82CB6D1CCE1DEF3184065EDEF3 66 F371BFE79C7B7EEEE4987FFCCB39F700B158AC18CB43A96432F9EB4C0148DE8B 67 3DD5EA0774332CC4690176B02BBE2601983B4B802F58B1AFA9048035A70024BD 68 800DA2D748CACF513E7A44F267619F970DC038D6A1D5047A40E2549693180E80 69 E48FB1BE345DB3280EC877670024BF878D6408A9CA6626AC0048DE8A4D6955B6 70 5B5D9AB04200B65C017CC2CAD0248AA38340C87BD400C0912B8055AC145D25C9 71 26F560A209E3AD013727210937B02201405B6966404EC4BBE80E109F5D03ECA2 72 9F81905AF411ED1B6F5B5A9F07B600DBC63B6C0AD0611A801BE896F1D6C725F4 73 0EB5DB6C4B5B00492837DE656D0A02DC27D913E2DA2877A1EBC6F25EB00598D7 74 91D5A38B3AD2215FC81EAA20E157621B291F514ED83C3B9BA3B8074B29CC435F 75 D702AA757E1DFBCE847A9D9557C6BB94E477FC2A9C01905CDEEDA2565748564E 76 5B3FE5616D93052A47F28A2B8031AC53ABCD247AA9EDD358CB1F30E3AD07AB57 77 11E63292C5F7C378BBE178F4813E9999326DB2FE300903E0BF906E936026D0DF 78 84BDD1AA9C01935103BCC51ACC09534CBF2C48391F64418ED2DF1D19000FBF86 79 ADEBC3FF1ABD2F4E8EE31AB4444C75940003C6FB0E948BA6FCA405469C7C2DC9 80 5793EC865CE20EA302F886C92CC86DF722435C25B6ACD56A6297A204D8CF347A 81 8D9357241797FC57E8267634120097BFFF00BF01C992E3219B25F28F00000000 82 49454E44AE426082 83 } 75 Left = 704 76 Height = 64 77 Top = 136 78 Width = 64 79 Picture.Data = { 80 1754506F727461626C654E6574776F726B47726170686963F305000089504E47 81 0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000002 82 1F504C5445000000000000000000000000000000000000000000000000000000 83 0000000000000000000000000000000000000000000000000000000000000000 84 0000000000000000000000000000000000000000000000000000000000000000 85 0000000000000000000000000000000000000000000000000000000000000000 86 0000000000000000000000000000000000000000000000000000000000000000 87 0000000000000000000000000000000000000000000000000000000000000000 88 0000000000000000000000000000000000000000000000000000000000000000 89 0000000000000000000000000000000000000000000000000000000000000000 90 0000000000000000000000000000000000000000000000000000000000000000 91 0000000000000000000000000000000000000000000000000000000000000000 92 0000000000000000000000000000000000000000000000000000000000000000 93 0000000000000000000000000000000000000000000000000000000000000000 94 0000000000000000000000000000000000000000000000000000000000000000 95 0000000000000000000000000000000000000000000000000000000000000000 96 0000000000000000000000000000000000000000000000000000000000000000 97 0000000000000000000000000000000000000000000000000000000000000000 98 0000000000000000000000000000000000000000000000000000000000000000 99 0000000098C5ECF4000000B474524E53000102030405060708090A0B0C0D0E0F 100 10131415161718191A1B1F2022232428292C2D2F30333738393A3B3C3F414245 101 46474A4B4C4D4E5053555657595D5E5F606163656667696A6B6C6E7071727578 102 797D7E7F80818283848687888B8C8D8E8F93969798999A9C9D9FA1A4A6A7A9AA 103 ABACADAEAFB0B1B2B4B5B6B9BBBEC0C1C2C3C4C5C7C8C9CACBCCCDCECFD0D3D5 104 D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E6E7E8E9EAEBECEDF0F1F3F4F5F6F7F8F9 105 FAFBFCFD0A809C84000002CF49444154789CED96E95B4C5118C04F35C9548A52 106 836B189A428C5D1986469690ADD050B61854F665AC654B2A21644964ABD494C6 107 CCDCF3073AE79E4533D3DCE5F8E0F13CBD9FDEF7DCF3FBDDED6C004CC4FF118B 108 6AEA3D79E2B8F93C4421D726890A1A20896A413E8FF23030434CB09709E04631 109 C1112ED8252628E382623141EE28E5FB53C504A09CF0F27A411E80CD0388FFBC 110 569807206D458923451C4F2E5857345B1CCFA81EC45FA0C39920C63B3EB29F78 111 3D53004FA808F35100DBA719E6D3AEC2B1D1946C90CF69839151638C97DE45F1 112 30986F8437BF8CE621F41F3330A5F7C5F22846BD56BD822E420C7446BFC7B979 113 BA788974EF922EC63C857C69AA0EC176A56F9F046E8EF322677508EE283D5D00 114 3472ECFE0B963DD7E6D37EE28ECFD00468E6821DC0BAFB5E086727B4056B1404 115 2F621D630428B2DCD73A6BCDDA022F26DAF10C7C1529D01B9F30B10A673D4202 116 2B069E28699F9020730801AB9574880B761A108096607739C98E73418B814569 117 219FBA25D31F728353BFE04AC042B3D65B33BF32C11B935E7E4EB88E66B932AC 118 5C1234F219F30FB952C14999CDB85208C3CBF730C1B7299AFCAC110807EB466E 119 B3DA87B07EC9C70C559A020FE9D85391AD9493FDB87A9CFD960AFC160D3EF103 120 BB57A3523B49B1C53E429B4F6B0896F25F568FCBEC2FA4980BDCB43968531734 121 708103973748DE86D233B4DDA7CAA7FB19DF8DCB6D63C6700ADB2416AB09DCFC 122 010EA2CA364CF24016BE26FD2055B39AA089F132DACF273DA5C529727125DD27 123 554E1A92CC040FC09FE3596B3ABD5C45EAD7F10774257F83523424E90D5BF91A 124 9E7497B494C515D00538141ACE00E068348FD6437258E84D8C275086616FB129 125 C50EE8AA18C1035010501AE31E144C5BDBE12F9B67D87F0015AE589E6E37EFD5 126 1696F91B1CB84F111AD597217C14B3871D0EC1EF852A3C8A4D58B01F67F6C271 127 5ED6B240EBC09A83064CA840A3936AD8BC1796FD0D3F11FF207E03D94235637A 128 184D910000000049454E44AE426082 129 } 130 Proportional = True 131 Stretch = True 84 132 end 85 133 object ImageTunnel: TImage 86 Left = 48 87 Height = 52 88 Top = 156 89 Width = 48 90 Picture.Data = { 91 1754506F727461626C654E6574776F726B47726170686963E40E000089504E47 92 0D0A1A0A0000000D4948445200000029000000290806000000A86000F6000005 93 3D7A5458745261772070726F66696C6520747970652065786966000078DA9D56 94 6D9224AB0DFC5FA7F01110FA401C472011E11BF8F84EBA7BF6CD4EEC7BE13035 95 D5C50085A44C29A9A7FEF3EFF3FC0B8DD8ED111D6ED3ACA1C994D9031D6FEF76 96 FB0B77C79DEF21B7F6D5A8CDD7EFAB3D7DFE1AFE6DE26B9CFAEFE35F4F8A1F1B 97 C9C73AADDF27BEC6BBFFD8A8BF1F7C0DA04FF2D9687E3AC418FE83659B3E9AFC 98 F57F7C0C9C4F883654CC873E96D67B63EEC51DB7BFAD716362E5C093F1DBD9FA 99 1D21F49505BFC477F3D766B03EE051FB78C4F7F5CE406AD29DF81A7F05C01FE4 100 BF8DBF4CDD098075F77A7E86D2FA7BE227E88DFF66FCD39E977B8C69FEB699FD 101 99997F22E6F927665E617D035AE4D3EBBF8F63B93CDFDD3B27FD9C7AAD901043 102 82DA27C3BE82A7CF3AA4A9DC181491C8BD1E74F4DDC5F35E064837727B7CAE83 103 DC5EF07713B5431DD77DDEC664B469E029140FE96BD031EF1494B8CEEB621ABD 104 77E99DAA0B5E288CD52F5FE86376BC0C57F307B60B8B049B09D5FF7F3DFFEBC2 105 73F685886E415FEA71C3AF7E69B9C11230BA0F2C9317AD5F9CF02F067FB6F1D2 106 868935174F79BFC9FED05F34CB0BF837DCDFDB3BB72F194677F98023F0EC624C 107 A82B03DE931E928E4253200B0E062ACBB47B57511D7CD18F5E5FFEDA2B11E8CF 108 BE3EDFED7E5E50FADBE5DFFD048357F8F61B86E705D5C5A9F1416DAC5816613A 109 AE5A52CE90A49240E2433C5D4891837A5D5FB3A40DE5736E49113FB253902816 110 326BEBCAB63AE9592CF050BAEA726C586D5670AD95A784A7F541CE0AFFF7B1D5 111 74BBD1A3479B771FC7676F85D038AF0F9671F6D03E8EF8B63C7D728FF03D56AF 112 02C087C98FABA671AB0C83F84F6F337A5BB283A6786A90B8E6D2654B0E0F186C 113 CBD7E8B903266B45C4B4336C9BCDAC95B53B65208F9205792FBC9715A88B0A8B 114 3EC38AB3E0B9BF99972E28B98300895127320FCAA629CD989B6DAC0775933C11 115 361C5394A42610EC691EBA40DF420001587969A5EF1E632FFCC129C40847227D 116 4403250F364976AD49B24ADD2B71744D1E60CA7BF2183D9416B08835A0F36326 117 4EB630197DD5AAC9392614BDF8298DD3612F71B02CCB1E0B1802E6A507825F05 118 0246E809503A709E14E9929134A72B14067EC7165E55388E7A461F939D6D0DBC 119 D8E0FD412E009BE3C8B913639D3917D847C67B64EE5D8A7C8BEAD6146E05906F 120 A0BF346707C3D5E1350F06103A65EF8310A70A790C209F7B6C4C09B1A5D85609 121 35B76C0C29ED4BF8D9A20E527219832054D72163110CB3C2DCA2CAD505CA2630 122 8763D576DF48EB53D080C3D803D5B0CFF1A7BC8FE1221399055338FCB250103D 123 1BC05820C4D57B3F20ED78C7F0A2CBDF328A510DCE339CF698FC80B3492A6723 124 4771B06EF087748A662ACB91F2760490938640AD56EE5CDB8E178E7209B8C573 125 1C84C3F1041557A3AD294A8133BB58CAE122ACC4D22E81FC4A908050AAADB511 126 9C6DDABDF4A488FBF4E503B58617AEDA61037C1E71958333E8A8EABCCCDCCAEC 127 6B6F70AD139584EA6900D539C3912CCEA823D0B5743C511083C950896D10B3B9 128 1C92B27302EB9614315A0012D01C881CC99A3236F57B4A9D4CCF9EB0842C88E7 129 086A0FC70A6A1B255EC3F412C523A3C0D2D200C7EB08A7250438B7DD20C7C6B1 130 B5D12605D2BB4FE7C71D9F7DD87BBBC0D88206630B1097340E8AE24CA7BDC83A 131 79B61C57C680F24BCEC2F0E17431801A8E7AC6F601915108A0215B50310252EB 132 80BC0D0C71D621447C4DA940F680EA2DA98DEA82E0986E19635F4998FE1C5683 133 0432986694194A2DBC68C26B3BF0BC254A377214124D6D23FC2A5065901988A9 134 17A4EF16EF88C720397512DF6F6014DBDFC32DB7276845E4380F4ECEE7BFADC1 135 AED0228E5EA70000000473424954080808087C08648800000952494441545885 136 CD996D7054E515C77FF7EE7BF67D37242B552B1BB298D06C2290005F8008A112 137 5A25BC543B6345A81D51EB2767AC6F531C45B06A3F56EAF40D3B83AD1202ED0C 138 DB2A4A12B0234235B27112C2663750942699ECEE5D7637FBBEB71F4262C22690 139 049CE97FE6EEDC79EE3DE7FCF739CF39CF79CE156459969901645926168BD117 140 08D0DDDD4DC01F60381E4766448D8030760F0206BD9E79654E2A2A2A99E79C87 141 C160401084999844982EC97C3ECFC0C000A74F9DC277CE875AADC6643292CDE6 142 0887C30C0D0D118B45C966B228554A0C0623C5C5C558AD56944A05972F4749A7 143 5394BB5CD4D5D551525A8A288A378F642814E2785B3B81801F8BD54A627818EF 144 192FDDDD5D048782A452A92965351A0DF6623B151595B8ABDDE87445485218A7 145 B38C15AB5662B3D96E8C642E97C37BE60C6DAD6D582C6682C1206DC75AF107FC 146 64D299EB2ABF1A2AB58A326719ABEEBE1BBBDD46241261E5AA7ADCD56E140AC5 147 CC49A652293E3C7A14DF391F168B19CF110F9D5E2F99CCCCC9159055A9A872BB 148 695CDF88244994BB5CAC696840A3D14C9F642291E070CB21A2D1281149A2F9C0 149 0182C1E00D93BB1A76BB9DCD3FDA82D96CC66432715F53133A9DEEFA2453A914 150 2DCD0749241304FC7E0EB71C22994CDE7482A3D06AB56CD8D8C43CA793225D11 151 1B376F2A98D109E195CBE5F8F0E851A2D12801BF9F96E683DF2A41806432494B 152 F341CEF7F5118D46F9F0E85172B9DCD424BD67BCF8CEF9902489C32D8748A7D3 153 532A5728142895CA695FD70A8C743ACDA1832D489244AFCF47A7D73BE1F998BB 154 43A1106FEFDB87D56261EF6FDE9C740D0A8280E31607C3F1611AD6AEA5E1FB6B 155 A795EBF2B93C1ECF11DA5BDBD0EA740CF4F73359BCDAED76763CF138E1509887 156 B76F1B4B4F4A1849D4C7DBDBB1982D788E782625288A22D535D53CFDCC33B41E 157 3BC689E327D8FEB34770B95CD725D9DDDDCDD9EEB33CF8D0432C5BBE9C5FEDD9 158 C3979D9D054483C120FFF478B8675D23C7DBDAB977C37D88A238E2EEC1810102 159 7E3FC1A1A182A91E25585B5BCB4BBB76B1A4B69687B66EC562B1F0D69B7B89C5 160 62D724188D46796BEF5E1C0E070FFEE441962E5BCACBBB5F61C99225937AC17B 161 C64B28182410F0333830008062E7CE9D2FB61E3B463E2FE3F178181C1C9C2024 162 0802CB962F67E7CB2FB160C1020441C06034E27038F8CBFEFD188D0616DC7927 163 A15088F37D7DFCE7C205C26109511451A954B4343773F4830FF8C5B3CF51EE2A 164 471004E6CC9943754D0DBDBDBD7CFDD5D713ECE5F379A2D1288B162D468A48B8 165 5C2E94B1580CDF391F1AAD86402050F0CF0441A0D4518A52A1202FCB88578A83 166 BAA54BD9B865337FFCFD1F387BB6872F3A3AB874E912A9540AAD46C3DCEFCCA5 167 A6E62EFEF5F1C7DCFFC08F59B478D1984E5996512A95384A1D088250E0F64020 168 406278985E5F2FF1781CC503F7DFFFE25717BFE24B6F27BD3E5F01C939252524 169 13093C1E0FF95C9E5B6FBB95A2A2220441209DCE70A8A585D3A74E3138304022 170 9120934E934824181C18A4D3EB4514451EDEBE8DDB6EBF1D1859772DCDCDBCF1 171 FAEB8443210441201E8F4F9CCD5C0EBD5E4FE92D0ECC66338A552B57BEA85088 172 7CF0FEFB44A3D102923577D5B0E7F5D71010687EEF3D3E3E7102A3C948369361 173 F7AE5D5CB87061D2481D453299A4AFAF8FEA9A6A3A3EEFE0B5575FE5E42727F9 174 C1BD3FE489279FC47BE60C172F5E2C904B2593D42D5B8A24492803FE00252525 175 536E7B82203077EE5C1E7D6C076BD636F0D777DEE1D5DD7B100581F3E7CF5F93 176 208CB8F68B8E0E7EFED8E3E46599152B57F0C2CE5F525656463A9D9EB2B60C06 177 83E47379FAFC0194F1789C70387CCD720B4692B7CBE5E2D9E79F67496D2D2F3C 178 FB1CF97CFE9A32A3C8E7F30C0583BCB267376B1A1A50A954D79549A552442211 179 E2C3714490191A1A9A963118A9608A8AF433AE8632990C06BD615A0447110A8D 180 7857448658AC702D5E0B922491CD66672493CD640885433392190D28511004B2 181 99991994E5E9B9F96A4C77798C229BC92208024A599651AA9453BED8FFDF7E0E 182 BCFB2ECA716EFAA2A363C606F3F93C273FF9644255954967E8EFEF9F5246A952 183 8EE4540430188C5393ECEFA7F94033A2F84D1486C3D2AC487E7AF253CEF5F48C 184 1B9319E81F985246AFD78F900581E2E2E2295F5CB87021AFFDFA0D345AEDD898 185 E7C81176EF7A85EC55C1A35028D0E974241289829A50A154B2FD919FD2B87EFD 186 D8583299E4E9A79EE2D4A7A726B56DB3D909874328F57A3D56AB158D4633691A 187 52A955D88B8BD18E2369341AB93ABB59AC161EDDB183458B1773FAF4697EF7DB 188 B788442263CF852B72E3272491484C19ED1A8D06B3D94C3A9D42E92C73924C24 189 B0DBED5CBA74695281E960D5AA7AB66EDB865AADE67B55559CEBE9E1EF87FF36 190 6B7D76BB1D512132CFE944ACA8A8207A394A4565E5AC158E16216AB51A189905 191 87C331E34EC578545456128BC5A8ACAC449CE774924AA77157BB515D31322BA2 192 572D801B21A852AB7157BBC9657338CBCA100D0603E5AE7274BA229C4EE7AC15 193 E7F3793299CCD835D3E81F8F32A7139DAE88F9E5F3D1EBF5280541A0AEAE8E77 194 F6EFA7FEEEBB09F8FD33DEF26459A6BDAD6D429132D9F1603A50A954D4AF5E8D 195 2485695CDF3892CC014A4A4B719695110E85A972BBF9FCB3CF66ACBCA7A7879E 196 713970B67057BBB1D96C58AD564A4A4B812B0731511459B172257FDEB78F75EB 197 1BB970FEFCD8AC844221DADBDAC68202A0BBAB6B56C9BCBBAB0B8BC53236964E 198 A50985BED9CFED763BF7AC6B241C0E735FD386B133D0840E46474707EDADAD64 199 3219DEFED33E92C9248220149C9965592E48D6D38142A12808A85C2E872CCB68 200 B55AB66E7B18955ACDAAFA7A6A6A6AC6DE99705C73BBDD94BB5C98CD16366C6C 201 42AD5623CB32D96C76C2351B82A384AED625CB326AB59AA64D1B319B2D949797 202 53555535416E02498542C19A86064C26134EA7934D5B364FD869BE0D68B55A36 203 6DD9CC77EFB80393C9C49A868602CF5DA3ABD642341A4392240E7EEB5D350B46 204 9391A6A626B4D3E9AA8D62B43FD9EBF3613299F987E726F627D52AAAAADCAC6B 205 5CC7E5C865E6BBCA67DE9F1C452E97A3D3DBC9B18F3EC26AB5120A0569FDE8D8 206 0D777AEB57AFC666B3214961EA57AFA6AAAA6A769DDEF198D033B7584924FE8F 207 7AE6E331FAF5E1DFA74FD3EBEB45A15060301AC8E7F244221142A120F1787CEC 208 EB835EAFC766B361B6581045915834462E97637EF97C6A6B6B6FFED787F19065 209 99783C4EC0EFA7ABAB8BBE4080787C1890192D3346148EFCEAF57AE6399D5456 210 2EC459E644AFD7CFB8F8F81F33EF83046802D8050000000049454E44AE426082 211 } 134 Left = 632 135 Height = 64 136 Top = 136 137 Width = 64 138 Picture.Data = { 139 1754506F727461626C654E6574776F726B477261706869635D07000089504E47 140 0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000002 141 91504C5445000000000000000000000000000000000000000000000000000000 142 0000000000000000000000000000000000000000000000000000000000000000 143 0000000000000000000000000000000000000000000000000000000000000000 144 0000000000000000000000000000000000000000000000000000000000000000 145 0000000000000000000000000000000000000000000000000000000000000000 146 0000000000000000000000000000000000000000000000000000000000000000 147 0000000000000000000000000000000000000000000000000000000000000000 148 0000000000000000000000000000000000000000000000000000000000000000 149 0000000000000000000000000000000000000000000000000000000000000000 150 0000000000000000000000000000000000000000000000000000000000000000 151 0000000000000000000000000000000000000000000000000000000000000000 152 0000000000000000000000000000000000000000000000000000000000000000 153 0000000000000000000000000000000000000000000000000000000000000000 154 0000000000000000000000000000000000000000000000000000000000000000 155 0000000000000000000000000000000000000000000000000000000000000000 156 0000000000000000000000000000000000000000000000000000000000000000 157 0000000000000000000000000000000000000000000000000000000000000000 158 0000000000000000000000000000000000000000000000000000000000000000 159 0000000000000000000000000000000000000000000000000000000000000000 160 0000000000000000000000000000000000000000000000000000000000000000 161 00000000000000000000000000000000000000000000641BDCBF000000DA7452 162 4E53000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1F 163 20212324252728292C2D2E2F30323334353637393A3B3C3D3F40414243444647 164 4A4B4C4D4E4F51525455565758595A5B5C5D5F60626364656768696A6B6C6E6F 165 737475767778797A7B7C7E7F8081828384858688898A8B8C8D8E8F9091929394 166 959697989A9B9C9D9E9FA0A1A3A4A5A7A8A9AAABACADAEB0B1B2B3B4B5B6B7B8 167 BABBBCBDBFC0C1C3C5C6C7C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDD 168 DEDFE0E1E3E4E5E6E7E8EAEBECEDEEEFF0F1F2F3F4F5F7F8F9FAFBFDB732EC5C 169 000003A149444154789CED57F9379451187E672854984A48982C4569CFD24291 170 4A8B4ABBA58576A545C95E4443294B1B85B1545A94443565579119122174FF9A 171 EEF2999A31DBE987E81CCF0FF77DEFBDCFF39CEF7DEFFDBE33033086510D9EAD 172 1CE3759458CC5540CFDB570C3FBD14D66DD4E9F51BDE507ECD27A6EB9ECFD64D 173 7EB279531D0DD55FA6AA3108943C3320512075A2F39C0D6C7DC13B1A26B75891 174 A0276E8C57AD376971BC974AB34379349C3BC236B6B269642C0D675FDB77D9A9 175 34389F00C692409219B52E2561670ADB888821E30C9905096B6542387357955E 176 D8864B739451697019C038D7B3A5C0170878704BE4350120258AEC387EF50498 177 D4E6A6C220FB20197D5B67E0717C63609CB42EB1B77970E0477F43F7E5CAAEF4 178 8D9DD3F086B1248CB076970FD72FA967877DF2396EA4B0AC37C119F8DEB34C70 179 6B9C369983CDA9F60FF3F0EE9D2C4AE2BFF157D6F39EFB71495E1A3FB4F3A299 180 326142687BBCD191AA896CE6D96CA0B4EFFF642813D457BF9A431223DFE8D25A 181 A9B4A624CA9BB2AD0B6A3B660EB10A0F29EA0DA5B7A770A9755DA6210EF6C9DF 182 911CDF1285E4E122642E1CC938B54FF1198FDE8E6ED9CD279965FD0542881E40 183 0AE88FC407013B3A9C6999DB5AB2322EFDA9B794D98243E18B45B8D497E49A39 184 D5A1619038E28D3D9FF121CD7F5AED0EE65F1DFE30488D24A34FADC83C45AC07 185 B0FCFB703DAEC31573121E598ADAF7E99187CEFDAD77FE6242A3C1E1F60E5C9A 186 5B8F2A3D425D0BF1F5AAEEB96ACEDAF6D15D6E5012C425064D5B7017DB54EB11 187 FA842FB3CB372B8EBCA582C7658B257A5CB6B71CAF15ABD32344DEAAEBF277B1 188 DC9B4B428F4F6709BF7E35C026F57A84D600D875739F03D39068CE20FD495FC5 189 1957FC14CB9AF8C0976832A8C07431297876E8C34E711167106731C93BFE7D47 190 5640C66980559AF40879904BEB93D4FC3EC6D3D0345B6E40469B5D39DDF85DBE 191 A6D92009C06CB02048486B503400B0EAD5079E4CB3C147CCAB5CC93541D96005 192 AED056B31E21FC55B811A2C66057B6D61620846F4F788C1A83035700B6693358 193 07B05FA46C10B09F22167F8583B41904036C4E63FC00B9416038453A7E9143B4 194 191C03D82E66FC60E512C27535C856D383FFD9E0602C4586AE06458C1FA67C8C 195 A9BA1A14281FE3C8F760E40D4EA45364EA6A50CCF8117203BF008A645D0D1E30 196 FEFA51D483913710B15FA2F7753578CCF837E5061EEE14B1BA1AE432BEDB28EA 197 C1881B9496E4539494E6E717976901E6163D64FCA22ACEC05460FA7750F7C763 198 0CFF1ABF0090365577504DFE7C0000000049454E44AE426082 199 } 200 Proportional = True 201 Stretch = True 212 202 end 213 203 object ImageScreenshot: TImage … … 655 645 end 656 646 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 } 647 Left = 416 648 Height = 64 649 Top = 136 650 Width = 64 651 Picture.Data = { 652 1754506F727461626C654E6574776F726B47726170686963D903000089504E47 653 0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000001 654 71504C5445000000000000000000000000000000000000000000000000000000 655 0000000000000000000000000000000000000000000000000000000000000000 656 0000000000000000000000000000000000000000000000000000000000000000 657 0000000000000000000000000000000000000000000000000000000000000000 658 0000000000000000000000000000000000000000000000000000000000000000 659 0000000000000000000000000000000000000000000000000000000000000000 660 0000000000000000000000000000000000000000000000000000000000000000 661 0000000000000000000000000000000000000000000000000000000000000000 662 0000000000000000000000000000000000000000000000000000000000000000 663 0000000000000000000000000000000000000000000000000000000000000000 664 0000000000000000000000000000000000000000000000000000000000000000 665 0000000000000000000000000000000000000000000013595AE80000007A7452 666 4E530001020304060708090A0B0D0F101112151B1C1E20232427292A2C2D2E30 667 3233343536373A3C3E3F4041454648494B52585D60616569707982838485868A 668 8E8F9091929495989B9C9D9EA0A1A3A5A7A9ADAFB1B3B5B8BABEC1C5C6C8CDCE 669 D0D2D5D6DADCDDDEDFE0E1E2E3E4E5E7EBECEDEEEFF1F3F5F6F7F9FDDBFC0704 670 0000019D49444154789CED94575702311484A3881D2B1654EC8A0D7BAF60C3AE 671 B1F7862020A28B58985FEFE6E2837B2447F7C9B6F3F2CDDEE4CEE6649365CC90 672 214386FEA0F2ED3A549024A00F3A34F823037ADF4FB8F5F9A2822F8A12D31110 673 EBCAB758DA2240B7FA6CF2001BD98CA5F4008A33CF6271AA911365566BFDB134 674 609DCC0C1E52049B80762A44E0212E414915EC9206CC9319C71DB10E682613C2 675 14711A7E62AB3420F1A251DC136B010799E05B800B01628B346081CC0814620D 676 D042260017710A41A2431AB0486618516235D04AE61A6EE22442C46669C03299 677 313CD25E35021D54086396E846F893157873549A8F807EF533642C03AB26B5E0 678 04CEB354669E216E4B2C517A906E3639F78B8312539467C1A8CF772318DADCD9 679 1346D9E27C3FFE8593F82D77E1DF07CC717EAC27E08CF3154DC0959EEE84EE35 680 01E5E257EBA08143FBA940BC41F31B7E1235AF7D97A6748A4A45926DA0CE21F5 681 3EAB3AD00E6D8BDA0C1BA01C53925E92ED12584B67591CB828D50E159D00BBB9 682 2CCD1347A056D6CF585A6531D15AF9E125A9B61262619559DE6FC8902143BF5B 683 AF33427EBA92AC55320000000049454E44AE426082 684 } 685 Proportional = True 686 Stretch = True 671 687 end 672 688 object ImageTerminal: TImage 673 689 Left = 345 674 Height = 55690 Height = 64 675 691 Top = 136 676 Width = 63 677 Picture.Data = { 678 1754506F727461626C654E6574776F726B47726170686963080F000089504E47 679 0D0A1A0A0000000D494844520000014900000149080300000021542F9A000002 680 64504C54450000002A2A2B2828292D2D2D1313131515154D4D4D4C4C4C4F4F4F 681 4F4F505050515151525353545454555555565656575858595B5B5C5D5D5E5E5E 682 5F3131313030302C2C2C2D2D2D2E2E2E2F2F2F3B3B3C3A3A3B38383833333334 683 34343535353636363E3E3F3D3D3E3C3C3D414142454546424243464647494949 684 48484827272829292A2A2A2B2626272424242424251F1F1F2222222323232020 685 202121211D1D1D1E1E1E1B1B1B1C1C1C17171718181819191914141416161611 686 1111121212131313000000010101020202030303040404060606070707080808 687 0909090A0A0A0B0B0B0C0C0C0D0D0D0E0E0F0F0F0F6A6A6B8A8A8B8B8B8C8C8C 688 8D8D8D8E8E8E8F8F8F909090919A9A9B9C9C9DA6A6A891919391919292929494 689 949697979898989999999A9A9A9B9C9C9D9E9E9F9F9FA0A0A0A1A1A1A2A3A3A4 690 A4A4A5A5A5A66262626363636565666666676767686868696A6A6B6B6B6C6C6C 691 6D6E6E6F70707171717272727374747575757676767778787979797A7A7A7B7B 692 7B7C7C7C7D7D7D7E7F7F8080808183838484848587878889898AA7A7A9A8A8AA 693 A9A9ABAAAAACABABADACACAEADADAFAEAEB0AFAFB1B0B0B2B1B1B2B2B2B3B3B3 694 B4B6B6B7B7B7B8B8B8B9BABABBBBBBBCBCBCBDBDBDBFBEBEC0BFBFC1C1C1C3C2 695 C2C4C3C3C5C4C4C6C5C5C7C6C6C8C7C7C9C8C8CAC9C9CBCACACCCBCBCDCCCCCD 696 CECECFCFCFD0D0D0D1D1D1D2D2D2D3D3D3D4D3D3D5D4D4D6D5D5D7D6D6D8D7D7 697 D9D8D8DADADADCDCDCDEDEDEE0DFDFE1E0E0E2E1E1E3E2E2E4E3E3E5E4E4E6E5 698 E5E7E6E6E8E7E7E8E8E8E9E8E8EAE9E9EBEAEAECEBEBEDECECEEEEEEF0EFEFF1 699 F0F0F2F2F2F4F3F3F5381CBF66000000CC74524E5300373E93AE97B1B3AFAFAD 700 ACA9A8A8A7A4A19F9FCFD1D5D5D3D3C3C4C8CDCDCBCAC0C1C3BDB8BDB8B5B7D9 701 D7D7DBDEDEE3E0E0E3E3E6E6E9E9ECECECF0F0F5F5F5FFFFFFFFFFFFFFFFFFFF 702 FFFFFFFFFF3E706F6D6C6B6B6A020651676866656261605F5D5B595958555452 703 9B9A9796959391908F8D8B8A898786858281807F7E7D7C7B77767271504E4E4D 704 4B4B4A48484646454440403E3D3B3B3938373534323230302E2E2C2C2A2A2826 705 262424222221201F1E1D1B1917161514131111100E0E0D0D0B0A090806050402 706 01DA76DAA100000B8749444154789CED9DFF7F144719C757ABA455544E6D13A4 707 0A26A8682C4DABC6166C75A185027A11AA52C12F175AB45A2B865A6AAD495BC1 708 1CB6B4A6C1C3FA05694F4A116D4B68B141E022A68025FF943BBB97BBE46E9E99 709 67F69EE376C9E7FD7AE5979B679E79E67DBB7B73BB975DCF0300000000000000 710 000000000000000000000000000000000000000000C01C646CA8B373A8D8EA2A 711 D24FA9D30FE91C6B752529A7D8E797E92BB4BA9654531519906B753529669648 712 BF0F07CBB8947AFC59F4955A5D515A99E7D730AFD515A5947CAD48DFCFB7BAA6 713 5452BB6F2B7AB07FC760B05EA4EF0FB6BAAA1432D6A733E96381EE4C462BD2CF 714 B4BAAED431A617898DD299BA15D0349DADAE2C65142891BE8FEFDF4E74D226B1 715 51BAA0599457C1F29C8F6E515E25D5CBF313CF6FDFBD69CBA1F1CB34DC8049A4 716 EF0F5CA632BC337F7B76F3AFB7155E91CA97BFA63287950F1D91CA6A20671679 717 99CE541EFFE54D95013F71AF40C2ED37CE9EC5B2A69F25341E24239A7FA83CF1 718 81D923AEB8BBD1848BEA6671C7AE0B22B5120C75D845FA7EC750336BF0A686D7 719 D70DD97DA8918C07BEA69DC629A98A35643922039A588277E153BA11EFB83F7E 720 C6A788597CE1A45CD5B574F144B637AF02EFFC1262D06FC5CD78781D358F8EF3 721 9295CF8269B2A369057853CBA841578FC4CB78F6167A22CD3B25C313D9CCBD7B 722 881EF4ABC76365FCB469227B85CBAFD072932FAE368C7AFDA51819F71B27B2E2 723 A2F814428A5C934D5B8C2D340EBB2D4646EAB05B66ABF8144286B926879B33BE 724 F7B479D8E5EE1BE551CB4C16366116016D5C936DCD19DF7C4C0BF8BD7346C371 725 37A22927AFC953E597697CEFDC1ACBB03B9C537ED43693CD4D98077DAABC9EE6 726 FC8CE047B6616F72CD78C1F40916B2A009F3607CE5AED2942FDF3BADC3FEDB31 727 E38BD68CD7C94FA3A8BF324BD0945F5C2DB50E3BEA98D17021A5CC97C4679173 728 1219A8CC8997603FA8399FD27BC63E9120EA2F8273281AAEDD50748A6E96EA5A 729 5B3767DA4E50272F66A05656EE939FCDEDD199E3B1BD3B8D171C687A76EE8D3E 730 C48BDC9348342ACD0DACA8049AEC5763F5C7B4384DCF469585BDA62749B349B5 731 BC2FC5D8AB6BE95017C998679168D26CF27B9ED31292465D04B75EFEB1916693 732 FF75386561A6D078316936B9D8B35E91E5A24E9836BA7BA7D8E44F05A65FA647 733 E04D49B1497581D071354EE211BF02764B9156931B1BCE50656E9BDCEDF1AFCA 734 DA98DB267FE5891D277BBD141F27A71A36F941CFE124B9992E813725C5261779 735 8DEF9265D4BF9734F8A533CD26D7799CD3772CF2C1D7CE4673A4D8A47FB4F114 736 654A8E27DC75A4D9E4264FE840A9AE3436FC6D29CD26977A02271E1439AFF1C3 737 64AA4DAE7A5DE0F0A628499C0A499DC90F1F742DC695B1F63875A5CFE4167173 738 75C4FBF0513D5365F239717175C45B5AA99E6933F9A6B8BB199C9E4B260FC6E9 739 C7C54B9D490F266192EC08933381492960520A98940226A580492960520A9894 740 0226A580492960520A98940226A580492960520A98940226A580492960528A84 741 993C5DB07120883A698DD270D6F326F63591739E578A535741FD03E4416BD41B 742 AE2A0148122FC4DA39E60C2FB045EEB7DE03636EB37A3F53E4D95B5B5D6AD2B9 743 F52CCFE4FC56179A7CE6B3448AFC5AF94A27C710797C43ABAB4C031BECB74FBC 744 B8B8D545A683C5D67B1D3ED2EA12D3C2231691580071B12C85B000E2635E0A5D 745 634F00A6312D85BED3EAE2D2458E148905901BE452080B2057A8A5101640CEE8 746 97425800B9A35D0A61011407ED52A8D545A513F2E31B00000013CB8324E62E30 747 29054C4A019352C0A4143029054C4A019352C0A4143029054C4A019352C0A414 748 3029054C4A019352C0A4143029054C4A019352C0A4143029054C4A019352C0A4 749 143029054C4A019352C0A4143029054C4A01935234DFE43BEE71BCC389F7AEBA 750 2247DC328CD4FD97C1BB3DC722EE7967F24C8E390F51EBC13D415D8A6F3B27F8 751 47F24C4E3A0F312A6F72C439C15B301971859A7479586F8130C9CF409874B9CD 752 DF204C52E13059AD919F0126236092042661D20D98D4019364384C566BE46780 753 C908982481499874032675C024190E93D51AF919E690C96CDB60A1A072950AF9 754 C1AE9A709EC9F6CC70F834066FAC309C69B786EB4C760DE60B25155A280CB665 755 67B7A5C26436939F9DB0946B9B19CE30D93E5C7345636CB8DD10AEA835D9962B 756 CD4E91CFCC94990293D9C1680627B60F063CB16F223291A9865B4D7615746515 757 BA88F088D92633D13B31B1EF0955C5F6D7A37774B0EA32F926438F93DF7FDF17 758 2BADDD0F3E17BAAC6C971693BD158FAF8DF6EFD9B36DB472ABC742AF267C9A99 759 26DB428FBF7BB0BBD27ACBFBFBCF872E2B7526DC647B31E87FF22777D504ACDC 760 ADA6912F6F11669303D1267D66E347D64FB76EE8FC46B4659706EAC22B544D66 761 D5C1E5AD2757D404ACDF311EBC5E2C1F25126E3213F43EF5335DC86D9B948868 762 162693D9E810FBD27B6A132C381A3644EF86D164BB7A2B7EF3154D11773DAC6E 763 CF171D67926D7238E87CEF7A2268F9DF0395E12C0C26B36A9BF65EBD5A97E0EA 764 7FAAB662D6379BCC04228BBDF5DD43FA9EF6CAB526DA642EE83B444765FF50DE 765 20689359B5395D7C6C8D3EC1DA217547D752D66852ED16CF1A6E3AFC4D2F7ABC 766 45924D06B5793B4C616BD506D16530196E91A58FD11996FC27DA2A69935D41C3 767 FD779AAA78D49BAE36A926D5C6B0CB12B8253C56922695C871E313E6AE3BAD54 768 D226D531728BA58887C35D23B9267B8339DC670B5C774479A04CAA8D7AF233E6 769 0C0BCF9703F52683F7E2F03A5B15FDC1FBD99B5C93819E9789E3DB0C3E1F840E 770 13260782BF4B9FB46598371DAA33197CE49DEBB116B1E658109A5893C11679E1 771 4646E887BC305667527DDA3C66CFB0A71CAA31A95E5EC028A23B4A914C93018F 772 B262FF18C612BFB0FA33E36EE0771E2E07D7BC1EFDC26A8455C4E3616C524DBE 773 C68BBDC164D2BE67067CD664F273BC2A4E26D9A4F6AB8D8667689377F332DC47 774 9BFC21B3885F24D8E4A4F523B3CC32D2E445E60DEA6FBE449A5CC42CE2CB0936 775 B9971BBC769232695D444D334A993CBD8A9BE240724D3EC08E7E8A32D9A60DD7 776 F00065B29F5DC4AEE49ABC991DFD73C2E4243BC3ED94C98C365CC7E2C49A3CC5 777 8FBE9E30B99F9FE2286172393F45624D3ECF8FBE8D30F9243FC536BDC929F661 778 D2F75F49AAC91FF0A357FD4F6FF2BDFC140FE94DBEC1CFA03E72926972AB43F8 779 9B7A934BF919E6EB4D1E7128E2C74935B9D921FC55BDC925FC0C1FD79B3CEC50 780 447F524D7ED721FC65BDC96BF919AE6D7C9BDC9A54932E7BF74B7A931DFC0C1D 781 8D9BDC0C930A988C804912988449376052074C86C064044C92C0244CBA01933A 782 60320426236092042661D20D98D401932130190193243009936EC0A40E980C81 783 C908982481499874032675C064084C46C024094CC2A41B30A903264360320226 784 49601226DD80491D30190293113049029330E9064CEA80C990B498FC93738FC0 785 BE43EC71CF3B1463080B7F0D13B3F96D8C21E28801005C91145B5DC01583CBAD 786 EAE7143029054C4A019352C0A4143029054C4A019352C0A4143029054C4A0193 787 52C0A4143029054C4A019352C898CCE6F5C1A59C69ECDAC7264E93A71E4FA568 788 234E35174DB7E9EE25EA1B1B36D557FB4CC64A7D595DB4599B06AD493ADC70EB 789 EBABC84E79C3F488D905EF9AC90939D45574A70CD9E9EB6E0E081C4D1A9E27EB 790 3886B597A193F66197F1EBD37632843BCCD271D06A27CD1427AC268FD5773A66 791 1C49999CD04CC55E9FC3A40CE17A289353F5AFAE6454AA7DD9B64D725FAD50D0 792 FE048394626CBE0493DC022CCD30C92EC0D20C93EC022CCD30C92EC0D20C93EC 793 022CCD30C92EC0D20C93EC022CCD30C92EC0D20C93EC022CCD30C92EC0D20C93 794 EC022CCD30C92EC0D20C93EC022CCD30C92EC0D20C93EC022CCD30C92EC0D20C 795 93EC022CCD30C92EC0D20C93EC022CCD30C92EC0D20C93EC022CCD30C92EC0D2 796 0C93EC022CCD30C92EC0D20C93EC022CCD30C92EC0D20C93EC022CCD30C92EC0 797 D22C6692E45F758CDB3B9DA9EFF5B6B5D3647DA7496BA7B7EB3B9DB1D7375EDF 798 CBDE09000000000000000000207DFC1F5A774B122869F9390000000049454E44 799 AE426082 692 Width = 64 693 Picture.Data = { 694 1754506F727461626C654E6574776F726B47726170686963AB04000089504E47 695 0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000001 696 AA504C5445000000000000000000000000000000000000000000000000000000 697 0000000000000000000000000000000000000000000000000000000000000000 698 0000000000000000000000000000000000000000000000000000000000000000 699 0000000000000000000000000000000000000000000000000000000000000000 700 0000000000000000000000000000000000000000000000000000000000000000 701 0000000000000000000000000000000000000000000000000000000000000000 702 0000000000000000000000000000000000000000000000000000000000000000 703 0000000000000000000000000000000000000000000000000000000000000000 704 0000000000000000000000000000000000000000000000000000000000000000 705 0000000000000000000000000000000000000000000000000000000000000000 706 0000000000000000000000000000000000000000000000000000000000000000 707 0000000000000000000000000000000000000000000000000000000000000000 708 0000000000000000000000000000000000000000000000000000000000000000 709 00000000000000000000000000000048CC71B60000008D74524E530001020304 710 05060708090A0B0C0D0F10111213141516171D1E2324252627282A2C2E2F3035 711 37393B3C3D3E3F404243444748494A4C4D505253565A5B5D6B6F70717375787C 712 7D7F8081848586878A8B8C8D8F9192949697989B9C9DA2A6A7A9AAACAEB0B2B3 713 B7B9BABBBFC0C3C4C8CACDD3DEDFE0E1E3E4E5E6E7E8E9EBEDEEEFF0F2F3F4F5 714 F6F7F8F9FAFBFCFD111E8C180000022349444154789CEDD6F95B12411C06F077 715 B954C8B548C0324B53313BC02C532BCB2C4BACEC2EBB34F22A8FCA0B3008448D 716 40D8FFD965D73D06C476871E1E7DE2FD619F9D61BF9F6777667616A09CFD53D7 717 37F3B5FF046D75F3FDEF9C901FBE16466FB1C9FB62855325F8BAB3424779EF87 718 189797F8A79B9AEF6323BF5C88A564005BB377B4D6179FD5E8DE29DD18140DC4 719 770B6223ED4E87DB17A105A69D62F3989F0E9836E39C3F189AF4C2304E03449D 720 E84F0B750FC0062980C768E7EB7B3CFCE955DCA500DAF0993F56618BE3667186 721 02A8454800580F9760CC19FD801D61FE781E68CA2419535A3FD08A29612CA319 722 6E01F5148F3084CBD202BA8EDB1440B806C362FD2B58976816D238836BF3C9D4 723 B71BC028DD52FE580D3006A06AF46F4B799978EB6DF2CB141868301A4EDE5A54 724 5EA63071A55102C83DF8880C6493569D5BF087B85213A08E66A0F08652002077 725 61669F5D99CD69FFABE4CE42A0E0AE4CCE82A1D83138C040E1940AD8E06C798F 726 51C117EB18030A60B6CB61F74E9040EAED05FBD1B6970912F872A5F678C7542E 727 F0546CDC510311B7F8F3D95535E013FF29DD238139C63814083FAFC49802A4DC 728 A87BFF3332760A8DBF156006A687A1B5110B2609A01B83D97B7A8356057807D7 729 5AB6F3D7693C51804E3CCA763EC345027049A7A66D19B8A4CC5EB302D8A53E1B 730 01B0F2B57119702800FF619200B3DCB94D02EBC2C454AB002B3677A7AB120915 731 9014FA8C5A80AD3250060E05207F1BFFF3EC0001795775345451F10000000049 732 454E44AE426082 800 733 } 801 734 Proportional = True … … 803 736 end 804 737 object ImageLine: TImage 805 Left = 336 806 Height = 74 807 Top = 32 808 Width = 76 809 Picture.Data = { 810 1754506F727461626C654E6574776F726B477261706869632704000089504E47 811 0D0A1A0A0000000D494844520000002000000020080300000044A48AC6000001 812 B3504C5445000000000000020202000000030303060607000000000000000000 813 0000000000000000000404040000000101000404040000000000000000000202 814 0200000001010100000000000000000002020200000000000000000100000000 815 0000010101000000000000000000000000000000010101000000000000000000 816 0000000000000000000000000101010000000000000000000000000000000000 817 0000000000000000000000000000000000000000000000000000000000000000 818 0000000000000000000000000000000000000000000000000000010101010101 819 0000000101010000000000000000000000000000000000000000000000000000 820 0000000000000000000000000000000000000000000000000000000000000000 821 0000000000000000000000000000000000000000000000000000000000000000 822 0000000000000000000000000000000000000000000000000000000000000000 823 0000000000000000000000000000000000000000000000000000000000000000 824 0000000000000000000000000000000000000000000000000000000000000000 825 000000000000000000000000000000000000000000000000BD89245100000090 826 74524E53000101020202030405060708080909090A0B0C0C0D0D0E0F11111213 827 1314151617181D1E2020212A2C2E31323A3B3C3D3E444546484A4D4E53545556 828 585D5E6061626465666B6E7176808083888B8C8D90919296979B9FA7A9ABB0B3 829 B5B7B8B9BABCBEBFC1C2C3C5C8C9CACBCCCDCECFD0D1D3D4D5D6D7D8DADCDDDE 830 DFE0E1E2E5E6E9EDEEEFF0F1F2F6F7F8F9FCFDFEB418677E0000019349444154 831 789C95936753C240108663A3C502880DC4865D444501C5820DEC05047B4754AA 832 222A7614151448B23FD903C71966EE1CC7E7CB66669FDCBD7BB950D43FC8A305 833 DF0F42510E51D01CD88AD3B5DCB1DB4E148C1090A6ABF2067A096D5EEB2C84FB 834 345D5D1AC3133BD3918709720F0B6C328148720047124C285B7B86CFAB0BC4D5 835 27441C34BE47C9389C352B944A4563801924F4296A00BC99901237A325B473E4 836 6608B634205ACED9914AFC242AB6DF201579444452F0BA21C6842A571298D83B 837 22C64062079FA2A0691A2ED56D08758835AB48878D4266DE13934352B9C3E0AF 838 A38B8AE85A1F63202C50BA720D1FC74E84EB830B2D89304111822C4EA598C0D7 839 39E0D13281B03CB0362D8F10A21F3C3F217B4821FF3A6A7A72135E16E6100B2F 840 DCBA498009D5E1EC903E3C64E1D41E44ED56AB75D91EE5B6CC42C22646F0CAD2 841 55EA664877F2CF2978DD36B81B1B428CDEB2F39DF998200F66873CC13FB774F5 842 1EE287FB08679C0B2E122EA5C004FE1AA14824ACF1327AE2BF67044F79BACA3C 843 BF4CA11AD3F1334BE94DF54481C817248E802E60EE8F7C0000000049454E44AE 844 426082 738 Left = 560 739 Height = 64 740 Top = 136 741 Width = 64 742 Picture.Data = { 743 1754506F727461626C654E6574776F726B47726170686963B105000089504E47 744 0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000002 745 1C504C54450000000000000202010000000303040C0C0E000000000000000000 746 0000000202020E0E100D0D0C0000000606060000000000000000000000000000 747 0007070700000000000000000000000000000000000000000000000008080A00 748 0000000000000000050505000000050506000000000000030302000000000001 749 0000000000000000000000000000000000000000000000000000000303030606 750 0500000000000000000000000000000000000003030300000001010100000004 751 0404000000000000000000010101000000000000000000000000000000000000 752 0202020101010101000000000000000000000000000000000000000000000000 753 0000000000000000000001010102020200000000000000000000000000000000 754 0000000000000000000000000000000000000000000000000000000000000000 755 0000000000000000000000000000000000000000000000000000000101010000 756 0000000000000000000000000000000000000001010100000001010100000000 757 0000000000000000000000010101000000000000010101000000000000000000 758 0000000000000000000101010000000202020000000101010000000000000101 759 0100000000000000000000000000000000000000000000000000000001010100 760 0000000000000000000000010101000000000000000000000000000000000000 761 0101010000000000000000000000000000000000000000000000000000000000 762 008C7B74B4000000B374524E53000101020201030405060304060708090A0B0C 763 0D0C0E0F10111213141514161719191A1A1B1C1D1E1E1F2023272A2B2D2E3232 764 32343A3B3D3F404245484B58595A5B5B5F6162636468686C7D83848586878889 765 8D8E8F90909598999A9B9C9DA1A2A3A4A5A6A7A8A9AAABACAEAFB1B2B3B4B6B6 766 B7B8B9BABBBCC0C0C1C1C2C3C4C6C7C7CACCCCCECFD0D1D2D3D3D5D5D6D6D7D8 767 D9DBDCDDDEE1E2E3E4E5E5E9EAEBECECEDEEEFF0F2F4F4F5F6F7F8FAFBFCFDFE 768 416DAAD00000029149444154789C636018B6405C4B4B4B0859401428204CBC7E 769 F6C83933E7782309308600057C883780B762F3E6CDC94C08018E42A0400633F1 770 069401D527220970140005D289378013AB01698C446A67661701792189831D0E 771 F8415EC89196E42546BF507041D122A0FA59790850300F28B0ACAB3794930803 772 34676FC609FAA5893160266E037A65883040692A6E03DA24883080CB2E20683A 773 5071B7BF1F1CF83683DCEFEF6F4B6444B09502D527208B8480A29138CD208091 774 9018C2484B48036F00F63048255237B3AE99552B507D89992902640305AACDCD 775 74888905F996D5AB3602D5AF5F810436000536AE5A53274E8401F852623F3129 776 5173168506C8D62C5EB80EA878ED0224B01628B06EE1923231220C60D5D0336A 777 02AACFD34300DD54A040B9819E2A9149997D3429434AE5046491F0CDC497CA3C 778 5EB171A062714A340244F50105A6C5C47A70106180DA0C3C65A214110668E233 779 809894A88E272F4C24A658E70FAEAF5B02543CAF1601AAE70205E6D7D6FB1255 780 35B10B8883AAB6140104E08B000A64090AB011A39F014BE5CA104A4234320C86 781 94C881911B49F282A0846215C842490938108F060AE44A4B0810A35F3CADAB67 782 2550FD920E24008AD7E59DDDF14284F5E36D1F4C22AA50A5B47DA03C19B7011D 783 C464266E1B57CF0940C50DAE2E08500914687777B3263229B280A2311E598494 784 BA916130A4448A0D60A6280C184D1C9DBB80EAEB1D1DE0C0BE1828D0E8E8644C 785 8C0172ED9B3781237D131280086C6E18F0F6C144620C102F59BA18D43E58D68B 786 04960105564C9C944C4C6E6450D0376C00AACF904100A958A040BEBC0C51FA19 787 B0B50FC0251291BA19A89112CB81EA93908B40900124F4DA3832D7AD5E178A2C 788 1208148826BE5E60D0B6B4B0544116D0040AA813AF9F8E00007AE473E56359C9 789 0B0000000049454E44AE426082 845 790 } 846 791 Proportional = True -
trunk/UEngine.pas
r96 r97 178 178 LastState: TGameState; 179 179 TimePerSecond: TDateTime; 180 ImprovementImageSize: Integer; 181 IconSize: Integer; 180 182 function GetServedDaysCount: Integer; 181 183 procedure ResizeView; … … 301 303 LineColorsDist = 50; 302 304 TrainSpeed = 2000; 303 ImagePassengerName = 'Images/Passenger.png';304 ImageLocomotiveName = 'Images/Locomotive.png';305 ImageLeftArrowName = 'Images/Left arrow.png';306 ImagePlayName = 'Images/Play.png';307 ImagePauseName = 'Images/Pause.png';308 ImageFastForwardName = 'Images/Fast forward.png';309 305 TrainPassengerCount = 6; 310 306 StationMinDistance = 100; … … 2173 2169 2174 2170 ImageNewTrain.Canvas := Canvas; 2175 ImageNewTrain.Bounds := Bounds((CanvasSize.X - ImageLocomotive.Bitmap.Width * ImageZoom) div 2, 2176 (CanvasSize.Y - ImageLocomotive.Bitmap.Height * ImageZoom) div 2, 2177 ImageLocomotive.Bitmap.Width * ImageZoom, 2178 ImageLocomotive.Bitmap.Height * ImageZoom); 2171 ImageNewTrain.Bounds := Bounds(CanvasSize.X div 2 - ImprovementImageSize div 2, 2172 CanvasSize.Y div 2 - ImprovementImageSize div 2, 2173 ImprovementImageSize, ImprovementImageSize); 2179 2174 ImageNewTrain.Paint; 2180 2175 2181 Y := (CanvasSize.Y - Im ageLocomotive.Bitmap.Height * ImageZoom) div 2 +2182 Round(Im ageLocomotive.Bitmap.Height * ImageZoom* 1.1);2176 Y := (CanvasSize.Y - ImprovementImageSize) div 2 + 2177 Round(ImprovementImageSize * 1.1); 2183 2178 2184 2179 Text := STrain; … … 2196 2191 Y: Integer; 2197 2192 X: Integer; 2198 const 2199 ImageZoom = 4; 2193 Center: TPoint; 2200 2194 begin 2201 2195 with Canvas do begin 2196 Center := Point(CanvasSize.X div 2, CanvasSize.Y div 2); 2197 2202 2198 Pen.Color := Self.Colors.Text; 2203 2199 Pen.Style := psSolid; … … 2226 2222 if Improvement1 <> miNone then begin 2227 2223 ImageNewImprovement1.Canvas := Canvas; 2228 ImageNewImprovement1.Bounds := Bounds(CanvasSize.X div 2 - CanvasSize.X div 8 - 2229 ImageNewImprovement1.Bitmap.Width * ImageZoom div 2, 2230 (CanvasSize.Y - ImageNewImprovement1.Bitmap.Height * ImageZoom) div 2, 2231 ImageNewImprovement1.Bitmap.Width * ImageZoom, 2232 ImageNewImprovement1.Bitmap.Height * ImageZoom); 2224 ImageNewImprovement1.Bounds := Bounds(Center.X - CanvasSize.X div 8 - 2225 ImprovementImageSize div 2, Center.Y - ImprovementImageSize div 2, 2226 ImprovementImageSize, ImprovementImageSize); 2233 2227 ImageNewImprovement1.Paint; 2234 2228 end; … … 2236 2230 if Improvement2 <> miNone then begin 2237 2231 ImageNewImprovement2.Canvas := Canvas; 2238 ImageNewImprovement2.Bounds := Bounds(CanvasSize.X div 2 + CanvasSize.X div 8 - 2239 ImageNewImprovement2.Bitmap.Width * ImageZoom div 2, 2240 (CanvasSize.Y - ImageNewImprovement2.Bitmap.Height * ImageZoom) div 2, 2241 ImageNewImprovement2.Bitmap.Width * ImageZoom, 2242 ImageNewImprovement2.Bitmap.Height * ImageZoom); 2232 ImageNewImprovement2.Bounds := Bounds(Center.X + CanvasSize.X div 8 - 2233 ImprovementImageSize div 2, Center.Y - ImprovementImageSize div 2, 2234 ImprovementImageSize, ImprovementImageSize); 2243 2235 ImageNewImprovement2.Paint; 2244 2236 end; 2245 2237 2246 Y := (CanvasSize.Y - ImageLocomotive.Bitmap.Height * ImageZoom)div 2 +2247 Round(Im ageLocomotive.Bitmap.Height * ImageZoom* 1.1);2238 Y := Center.Y - ImprovementImageSize div 2 + 2239 Round(ImprovementImageSize * 1.1); 2248 2240 2249 2241 if Improvement1 <> miNone then begin … … 2252 2244 Font.Color := Self.Colors.Text; 2253 2245 TextSize := TextExtent(Text); 2254 TextOut(C anvasSize.X div 2- CanvasSize.X div 8 - TextSize.Width div 2, Y, Text);2246 TextOut(Center.X - CanvasSize.X div 8 - TextSize.Width div 2, Y, Text); 2255 2247 end; 2256 2248 … … 2260 2252 Font.Color := Self.Colors.Text; 2261 2253 TextSize := TextExtent(Text); 2262 TextOut(C anvasSize.X div 2+ CanvasSize.X div 8 - TextSize.Width div 2, Y, Text);2254 TextOut(Center.X + CanvasSize.X div 8 - TextSize.Width div 2, Y, Text); 2263 2255 end; 2264 2256 end; … … 2427 2419 Angle: Real; 2428 2420 Pos: TPoint; 2429 begin 2421 X: Integer; 2422 Y: Integer; 2423 SeparatorSize: Integer; 2424 begin 2425 SeparatorSize := ScaleX(20, 96); 2426 X := CanvasSize.X div 2; 2427 Y := CanvasSize.Y - LineColorsDist; 2428 2430 2429 // Line selection 2431 2430 Canvas.Pen.Width := 4; … … 2445 2444 end; 2446 2445 2447 Canvas.EllipseC(CanvasSize.X div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist, 2448 CanvasSize.Y - LineColorsDist, Radius, Radius); 2449 end; 2446 Canvas.EllipseC(X - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist, 2447 Y, Radius, Radius); 2448 end; 2449 X := X - Length(LineColors) div 2 * LineColorsDist - 2 * SeparatorSize; 2450 2450 2451 2451 // Draw unused trains 2452 ImageLocomotive.Bounds := Bounds(X - IconSize, Y - IconSize div 2, 2453 IconSize, IconSize); 2454 ImageLocomotive.Canvas := Canvas; 2455 ImageLocomotive.Paint; 2456 X := X - IconSize - SeparatorSize div 3; 2457 2452 2458 Text := IntToStr(Trains.GetUnusedCount); 2453 Canvas.Draw(CanvasSize.X div 2 - Length(LineColors) div 2 * LineColorsDist - 100,2454 CanvasSize.Y - LineColorsDist - ImageLocomotive.Bitmap.Height div 2, ImageLocomotive.Bitmap);2455 2459 Canvas.Brush.Style := bsClear; 2456 2460 Canvas.Font.Size := 14; 2457 2461 Canvas.Font.Color := Colors.Text; 2458 Canvas.TextOut(CanvasSize.X div 2 - Length(LineColors) div 2 * LineColorsDist - 50 - Canvas.TextWidth(Text), 2459 CanvasSize.Y - LineColorsDist - Canvas.TextHeight(Text) div 2, Text); 2462 Canvas.TextOut(X - Canvas.TextWidth(Text), 2463 Y - Canvas.TextHeight(Text) div 2, Text); 2464 X := X - Canvas.TextWidth(Text) - SeparatorSize; 2460 2465 2461 2466 // Draw unused carriages 2462 2467 Text := IntToStr(Carriages.GetUnusedCount); 2463 Canvas.Draw(CanvasSize.X div 2 - Length(LineColors) div 2 * LineColorsDist - 200, 2464 CanvasSize.Y - LineColorsDist - ImageCarriage.Bitmap.Height div 2, ImageCarriage.Bitmap); 2468 ImageCarriage.Bounds := Bounds(X - IconSize, Y - IconSize div 2, 2469 IconSize, IconSize); 2470 ImageCarriage.Canvas := Canvas; 2471 ImageCarriage.Paint; 2472 X := X - IconSize - SeparatorSize div 3; 2473 2465 2474 Canvas.Brush.Style := bsClear; 2466 2475 Canvas.Font.Size := 14; 2467 2476 Canvas.Font.Color := Colors.Text; 2468 Canvas.TextOut(CanvasSize.X div 2 - Length(LineColors) div 2 * LineColorsDist - 150 - Canvas.TextWidth(Text), 2469 CanvasSize.Y - LineColorsDist - Canvas.TextHeight(Text) div 2, Text); 2470 2471 // Status interface 2477 Canvas.TextOut(X - Canvas.TextWidth(Text), 2478 Y - Canvas.TextHeight(Text) div 2, Text); 2479 2480 // Passenger count 2481 X := CanvasSize.X - ScaleX(30, 96); 2472 2482 Text := IntToStr(ServedPassengerCount); 2473 Canvas.Draw(CanvasSize.X - 50, CanvasSize.Y - 60, ImagePassenger.Bitmap); 2483 ImagePassenger.Bounds := Bounds(X - Canvas.TextWidth(Text), Y - IconSize div 2, 2484 IconSize, IconSize); 2485 ImagePassenger.Canvas := Canvas; 2486 ImagePassenger.Paint; 2487 X := X - Canvas.TextWidth(Text) - SeparatorSize div 3; 2488 2474 2489 Canvas.Brush.Style := bsClear; 2475 2490 Canvas.Font.Size := 14; 2476 2491 Canvas.Font.Color := Colors.Text; 2477 Canvas.TextOut( CanvasSize.X - 70- Canvas.TextWidth(Text),2478 CanvasSize.Y - 55, Text);2492 Canvas.TextOut(X - Canvas.TextWidth(Text), 2493 Y - Canvas.TextHeight(Text) div 2, Text); 2479 2494 2480 2495 DrawClock(Canvas, CanvasSize); … … 2783 2798 2784 2799 // Select unused train 2785 if (Distance(Position, Point(View.DestRect.Right div 2 - Length(LineColors) div 2 * LineColorsDist - 100, 2786 View.DestRect.Bottom - LineColorsDist)) < 30) and 2800 if (Distance(Position, ImageLocomotive.Bounds.CenterPoint) < 30) and 2787 2801 (Trains.GetUnusedCount > 0) then begin 2788 2802 SelectedTrain := Trains.GetUnused; … … 2791 2805 2792 2806 // Select unused carriage 2793 if (Distance(Position, Point(View.DestRect.Right div 2 - Length(LineColors) div 2 * LineColorsDist - 200, 2794 View.DestRect.Bottom - LineColorsDist)) < 30) and 2807 if (Distance(Position, ImageCarriage.Bounds.CenterPoint) < 30) and 2795 2808 (Carriages.GetUnusedCount > 0) then begin 2796 2809 SelectedCarriage := Carriages.GetUnused; … … 2974 2987 constructor TEngine.Create; 2975 2988 begin 2989 ImprovementImageSize := ScaleX(64, 96); 2990 IconSize := ScaleX(32, 96); 2976 2991 TimePerSecond := TimePerSecondNormal; 2977 2992 ButtonBack := TImage.Create; … … 3010 3025 ImageNewImprovement2 := TImage.Create; 3011 3026 ImageNewImprovement2.OnClick := ButtonNewImprovement2; 3012 //if FileExists(ImagePassengerName) then3013 // ImagePassenger.Picture.LoadFromFile(ImagePassengerName);3014 //if FileExists(ImageLocomotiveName) then3015 // ImageLocomotive.Picture.LoadFromFile(ImageLocomotiveName);3016 3027 MetaCanvas := TMetaCanvas.Create; 3017 3028 Cities := TCities.Create;
Note:
See TracChangeset
for help on using the changeset viewer.
