------------ Дoбавленo:
Есть наверника проще, но вот так тоже можно.
#sha
Add(MainForm,14804102,56,77)
{
Left=20
Top=105
Width=441
Height=328
}
Add(Image,12826038,315,203)
{
Left=180
Top=115
Width=125
Height=115
}
Add(Image,14131693,140,203)
{
Left=20
Top=120
Width=115
Height=115
Picture=[ZIP3630000078DAD59A7770A3E79DDFB5CB4E829D2000022040F44A002F7A7DD1DF17BDF7DE01922804D8CB2EB9BD6B8BCACADE956CE9E4552C9758965CD6962DCBF6F8EE9C9BB48933934926FE239336F92F73773399CB280FB58AE7C6BEC9388976E57DE6FB625E022FC0CFF3BCBF8A07668F42FCC2A743010E0E388C9F1DA75EC03F79E1B3D7FFFEF8E493CF417363C398A101F069037D27E377CFFB96294954FD7B173F0D80FF076131C3409469CC83984148C21226C72647864606074646863163A39313E3B3D3536A2A0E510B99D8C93D8B2822E308698B42268D455BE2733942A180C7E52E10F063A3A3539313CF9E5F44C23A657C8D887723A0D3B0294B7393F8C9B1A9B1D1710C66667A9280C39217F03131CD6B9289A8849A9AB3EF54DBA442AB1232A915B05663840D7A9D1616711C1A482CE0AE57D2CF8CFC7ADCBAE5D1356C8A4E29D55AA91B3954884A60CE4FE32731D3E36360E5E7B1B35432914FA76C19855E8B9CCB202F4C8DA3029A9C4991D0C84685D4623458CC26D46EDB76AA3B36F9A5F5CA4EB372D0AE3E03F85D6009128693B7580B3AEEDEBA0E41D0A70EF6FBA3BFBF9F3C33BE6916F9AC72898076EAD41F5E72F22E2A61FE4AC8B819B45573A95A31D7AE649E2AFC19ABB82867E227464312C66EB3BE522E8C0F0F8A17B14AE6829C4BC14F8D61860647860646860781A8D363FB76A9D7AAD02B7983830313E3A3D8B92912014FA3928502C6B280C1E72C1109F3D245DC8DB4AB552DB49A6BEDD55AA79A7B7AFC1710C8C75F9C1A197A3169BF7AFEC8AE550C0F0F5904B48C591CB3CB94DCA5B9F1D1490C70DED1B1B121217EFA76D41470EA1D16C5C4C4288130CB6251209140A7963B505D2860F63A4C12216F0A33EA568A9BB572B9985F69D477BBCDA7C77FC9290FC2AA39CCC897AAA11B972F9A6522E0AD56113B6B55A65025AA91CC61462730209E8C0D0D0D2816B19723E64418F17B8CD3D3E364324EC067A8159019D6BA9CFAB01F0DBA51AD5206DC9CC1600072E011F178FCE2F1E1535C7F9772B392137359C719FFADAB975D6A686A7252C767C66179C4AC0E5AF544ECCCD8E830309EFEFE3EDD12EE6CD09888A0E1A0757A6A6271112F103025228141ABB29A745E87CD6E86350A19118FE3B0D9BD6E17C4A368347AE9FCD1D3E33FEB521DB51B3683F67C317AF3FA5558CCC7CECD9A25FC8C55937359325E4425168C02071800EEDBAFA5CEDF4AD9E2113416B68388C460902562AE462903D81E873DE473F95DA849AFC18C8DB059AC83FD7DAD461D0C06AF5C3CFFF4F87750C551B36A359B6EAEE55FBC71DD64D4F7F5F7CF1170DC6A91BFB73B0B41A3232320B09C1E1EEE1B1E01C9EB42CC180FD92201CBA4483267300D0C0D81EC3C4A24D1B7CF30778F71900CF8C93881A0D7EB6FDCB801D259241279F1E6F5A7C7DF8445D7D76BB05ED78C781EBEFA723C9118E8EF9B989F23FB9C24BF6742B8FC24309E1E19393D322A5BC46E79D4713FF053DD8454316B73BCF069141D9899A5ED9D639EBF312E82C03323E3E3AD56EBE1C3872422717D7DFDD6CD9B4F8F5FCB241F15A26BD9848CC7FAD65B6FBCF3CE3B78ECDCE4CCD462D033B9441C212E7CC63F340CF8858499B6439908989D36D5844C396B45FFF7EC46A9DD5DD6953B631CDEA9D3A7D56AF5E3C78F53998CCFE7BB77F72E70EAA7411E32085D0AB689474545AC8BAD2A7791504C853EFCD1E3B04597B769620EA39082578B5988491FF17B301313C054D8D8C9965399085ADC763589C797C9A40A2944C0CD739814B94C942CE42291A0C9A83B77EEDC4B5F7923148FFDD95B6FB51A15C4A8412C0AC4AAF8BCC81316286111FBD45CB370D12E66E8D854398DC45B980D88C845447518366C869176D46D92F1CF6EE44D7A55AD982513892061D16627561DCA6CD48E5A542C065D29834C7A2D1E379F4F792AB940259F6E94F22BF574261D5CEF6437BACD46B9E8B4C22EABDE6153A256056A058FCAFF1FF2981E8A6AC561ADC0AB64A310C3A713848C5008567270D3C2859904B45836708E63F04ECCD68D7B6D6AF1C5A3B5800759A9142CB07E707010A4E9AA5D5E4A39F56A3187C554C9A576B391495FAA56E2D94CA05ECC35EBC55633D35DCF6E6DE4031E9BCB663E911D76A11A17A206B3B01B6556ADCCA695FFDF92E710286E5C3E815709BC72A64F2B8898A1A855964094318B8E479805530889C8253DE720ACDB4ED8365281804D73E95CD3E3B4B6EA95622609F82746062B7645BDE0172FB3C0FA6B9472A7DD22E0719AABA95C3600126EA759042BBFB355EAAD67FC2EBB1BB19EC801BB9D3AB70348EBB02AEC3A994D27B719A4A819FA23E13D6A66C9218BEAF811B530A012060D82980D902BD22E75D6AB03715EC3A1B1E6A71C5C4249CFED79143B29DB76269871DB824E5B2597EAAE359AF532B01F501AD55DDACD6E8E41A7D097285A95C269B7063C4EA7DDEC442CDDB5FA4637BFD92B1CEED7D61A319FD3EE7500D93C2EA3C76DF0B880F42E548D1A15885E61D7CBDD76B94927D0AB79FF2727358902B0D0ADA0E7ADE2040C258CF2A04E14318B524EB5DF28D18B198500ECD5C9A47412E087E9F329F9520B85D603BA4E18E9C4FDCD54642D97EC568BBD6A1112F0E630C32D8FEEC6F5DD252A99B480D74825A8511F76219990AF968AB7CBD9763DDA6944B75B896CDCE173A13E2772228FD9A8837C1EA3D70D832938CC4A875183C22AB74D61D60960DDB2C920F943F271269D8A5842B030A8E7FB35ECAA4793322B237A69D404A55045C10F7B543C9380A682B8809C09849D82883329396D0D81D683FA6EC4D14D04DB9958BB94DB6B365673690A69414E9E3B4CA0B76E1C71D80C1C764E23831C2638E671E62281D57C7A73A5DC5B4D6EAC25B65BC9800BF6BB1D9F0AF57B2D5422CE06CB7C5E93CF0D3BAD4AA7490BE477E8ED46B1D92036C310C761C770F9BF83570BE8200E4F8E0DC72D92AC4B95B489AB6E43DCA8889B94299B2AE7D596C3E6A48215D04AA4621E8B446060A780D4641082165711A81B326CC49C1BE970379FDCA897CF6FF78AF1F0F8C850464ABF5689DEBF738DCF6381FA412797BA2CC6B8D7558A47C03D3AD36D6EB7B39B2D3085B8CF6E087A5C418F13581724E1312844AB0EF2FBCC3E0FECB2AB5D16BDCBAC0B3ACD1E4479625136E5221977AAAF4FBCCC7EC20F09E9C3781C9E3017B549C31609B80B558F2965D564ECBA9C5B53F4EBAB315B12A245CD4AB542C4A090013C1D3B69A0CCA13CE20A02F5C2F056DCBB95896E9632471B9DDBE7CF463DCEE9B1E15D9360AB10BDF3E2252A95442212F40A99DB6A4AFA3DD5546CAFB572F5607BBF57D8EEA43BF548103585FD9E90CF1DF4BAF83C069741F5DBB58180D5EF357950B5DB6A000A382CA00EB71821AB594E632C0ECEE3D87CD6137E341B6677DBB29552D6AD49828C6993D57CD62C0AA7114BC1A7AB844D8D249A57306336AD1212CE63E7E87393B4B9499481B3B208ABA874336ADA49F976F2F19D7AF1DEE5736FDDBFA79088C8D39897FDCAA4034EA7A34C069541A76AE490D76EC984FC6B85CCF5A383FB372E1FEFD60EB68AF9A47B251B8D87FCD1802F12F0D296C8CB1C46C86108066D41BFC5E3D0786C46B7D518745ABD76036253BA9D7A49A940697645B9CF3A1DD8672785FCCA42B29D42DB69472368A9F9ED41A38BB158CB7B2DB5986535E36CC182B4D30409B92030122631A05B77B1088860A98E40FB39F4DC6AE27CBB76797FEB07EF7D6BA55A1A1D1DE5E2A6DE8C699DCB54169DCCE332791C2658D868C05B2DE4767B9DB71EBEF6FEB71FDDB8B675F17C3B1E74B40AC9742C980807E3E1008988972DF33241241CB2878236AF43CFE7245452BFDF618B78EDF1289A883B7599C4BC3FC4F5B89EF0CBF80C604E44FC6C3D66ADC5AC259F31EB44C884E602AEC3A3D7EA09A495F7362D9272D4AB964B4F12D324863A37E16611323A7148C3DBCF22E7D7A297BA2BB72F9EFDEDBFF98D56AD02D72817B1DFC919736A369FBD245AE68897F916B30A5848A35C383ED8F9B7BFF917BFF8E8BBB75FDCDBDC2C2583EE5631994B86D3F1702A162693085AA5BC9A8BC6A28E6804954A2258EC2A16DBB0C1A8173105FD6630299188F3425FDFC202FE09BF4ACCEFC760A834F25AC6D5CCB8AA211B9FB1CAA1B5B8F43697DE719A8ABD4AA861866AC920C8A143BFE367E25D82A5905AB89BB25E6C25AE6CAC3EBC77F3AFFEFC97A0A30101CAC921FDA0642968B9623E432E1528A462B54AECB09B57ABA56B178FFFC7DFFEF54F3F7CF7F6ADBD4CCA9B0E79DBC56439172FE4238574924A59040D4EBD944AA77C7E7F98B6B442A5003596A8359F038984ECD1A843AA10F561300B94C527FC6051D83B3BD68D56AF14DCA8843A69EF7A2AB89E0E7533A15E36BC558DEEADA5EA66A8918968948AA1A141D0A73FE15793669C2266D9263EC8A367ABF1376E5DB876EECCC8D0A09E867771483F6FD88372966C99A5512E6B15528D5A6236286BA9F0B5838D4F3EF9E4BB5F7FE96827E7B619B2115FBB985AA9E41AF574BD5410F27946BDB6514A15F39152319A8906D2117F2AEC4B86BD8990279DF4A6527E5B394FE96C8B1A9F75CA915E9BB6BA663FD8B9BA5303BAD8295EEA542FAFD7AE74EB577B8D1B7B6BB78FDB25A3A49E0C2920F1F0F03071669C819B7632F11AD28C9438834818FB59EB5135F2E5EBE70AA938E88EB3103DC823FF6A158DAA384A09C7A09198344AAD0A7222BA72DC7FFB78E76FFFE6BFF33834026E26E24173517FC861066B7E78D039D8D984755AF0472D1FEB75AB5B9B2BEB2B954EA3DCAE979AB5E25A35DF6A165AAD92BBD322E6AB92E6FA137E44A70265399FB57469BB0674BE53BAD0A95E58AF5DECD62FF51A57779B37CFB60B665935EA1572D9C3C3438CF929039DE0E21095C4691E7682353F99B441E7EA918BDB9DC18181A5D989A29C19152CFEBAE948E9F83A39DF0ACBED069D4E2DB3DB34E980F395CB67FEE7DFFD9D4629EEEFEBC38C8E2C7319ACA5050A09B7B7D3DADBE9D92D66B356958FF97ADDFA666FB5B3526D372AAD7AB9592BADD50ACD3550F295AD560300C6E3704FF8ED06CDA9BE7E91807DF7FCE6DD0B9BB70ED75F3CDCB87D66F3F6D9AD3B47DBAF5E3973FFFA61D624AFC57C52A1606C64844F98B9EE10674C4239152B24CFD389589B4EE484A51C3A6570A09F333F9581684921E59FB49C39E3B2452B7258D56E8B11D62851449B0EDA6F1E756F5C3A989E1AC7CFCFD2A9A4904B1F0FC0B594AB928D5CBD7C8CDA6D169D3A13761F1F6D5FBA70786677F37067E360BBB7BFD5DDDBEC1CECAF1F1CF43C5E140053A8D427FCF57B7705F75EF5BEFCF29BAF5E7BEBFEF5AFDCB9F2953BD7BE7AF7FA9BF76EBCF5D2CDAFBD76E7D1C3DB0139B7910C2C9FACFFB07E097F33A0AC7B3456112DE950ED773246AD04B11A074FC6001F3F0D9C372D5AFACB9633631623B0D483EAFDA8CDA8552176ED22892087C416A37E7A7A22E4B35D3ABB66B7AA530957A314AE6523DF78F7CF20B1C866D0949281375E7FE9D1DBAFBFF9F0B5AF3EB8FFC6975E79FDB5971FDCBFF7F0C1BD070FEEB55EBB2F79F0B6F3DE979EF0AF7FE31F4BDFFF89EFBB3F7CFF3B8F3E78EF6BEFBDFBE6F7BEFDE8FD6FBEFDC1371E7DF0CD47DFFFCE3F7AE3C15D37C46EE542020E0BF02725F41B097825A00F1BC50997FEFCE11A6AD5A136F3A7FC8320B5591884AC84F6AB96B386CA9D1665C0630AB9C004F44E146631E906AD1A3402783C3699F05DBDBC954CB8924977B51C596FE43EFAC9F7480B0BA005ABE7231FFFEC835F7EFCF8A3C71F00FDEC47EF7FFCE1F73E7AFCDECF3E7AFFE39FFDE0ECC7BFD0FFF29FEFFCE8A33FBE23882AB9BD4A2C170D82F396967B1CD25641A564813201D3D58BEB88C5908D0680F183F59FC58C98E884BA92F5D31574CDA3F2209A70C01AF37B0C1A95CF6D05A5A8462E35EBD44C1A3597095C3CDF09F94CB190BD9CF375AAE942CC8F9FC7BA6CFAD54AF2F3ED7FBD52F6E583E6FA4A199C5715CC3DAFB28CCAF30EA54ACCF6BA4C5658930A7809F3583085F9F1512F8FDC50B11F37D0965FEB73EAA2112411F283A6CC859A1670F30AB108562924021E62D33A51BD0BD146039662CAD92C44F261CFECCC34A887F6B7563E5F7E038FF2FACB57CEECB5C0795E465F77CA2B4E65C5AB2DF9E1BC17CDFADDE9A09788C7017ED6FCB48B4BAA28583F5C4141691DF49A8085E45331BB19B65BF4F373B390906F50CA8193A246831785C33E53226C2D67DCCD62B414F30F0C0CECEEB47A9BAB9F2F7FDCAA78EFFDB7BD61CF49772967763CCABA4F5B0FC1B588B51CF2E6839E5C2CCC61D00706FAF90BB3089BD8D1F17EB0E2D88A9913113497F5AF56F22EBBD962D44C4D4C809587352A2BAC735A8C21AF3511B16793CE5A29D0A967800B83CF3F3CEA76773B4FEF5BA0A49CD90E689B51732B8534B3EE9574B49A8997B2499944DCDFDFB74C9E0775E9062CF86EC379368BE4D39E463D79B8D589053C16837A0233068997619D06B59A41B59F887A72395FB9145A5B49AC378BB562EC196C61588594BA47DD8C99D792B666CE534D846AD9442597068105A424888A87E938944DBC9F3078B5CB7A8D241246C3C00D5472D4AA1F1F1B854442B341E742ACA0E14AC67CF9BC1FF0379BA94C39F36CF68FC41CB2412F0E39D4482D43A6108D67CE826062BC708544593C75EA9484829792667098E10DAB88383B393B3315F099890B78ECECAC49AF1C1A1C989E9AE2C5928B341ADF1F241B4D2215643D3E6B4C454CE9C4B3E117B0885C58418D0429B9EC087951F8CA974136177EF9EDBED1B193132256469A1D1FEAAFE97943FDA7FBFAFA5209E7D4D4F8F4D4A40B31821BF4C2A953E45AAB7F629258A8CD5A500C99B27CEB155EB6A08E849FD9161E574017A02641D4CFE2B25487473C1603BE7E9B425F9A9C9C582661B5D4F9B9B1A1062C18E83BDDDFDF0FEBA5B8F9190E9316F2DA8787076766A638992C8DCD62FB82F2421982B5BAF58E2C1E93077CCF8C5F4899B7C8599485193E9DCA67D26462A152B12C9508A626C7050BB320FF62314369357B727408831953C88504C29C90CF0EFB9171CC281E87A552082CFA129B4937C3FA50D0E5F75BEC7EC7B3DCFC952CCE5920BA59C971E9951EB36E259F5A5B4D817C8A9D9BE6CE4F29C87323037D2ED1127E7A1C58BE42B13C3E3EC6622C8583C8CCF48480CFD4EBC40117024ACA77DFFEEAB52BBBC9A4D3E5479FF1FE359330AD1450596402874A3628A5C9B82FEC737099342519EBE2904FBDF08292B9409C9F86A065AFC70CFC82CB66829616F831974563D04888D950CA65566B65306BD4AE09F8ECCF983FC859286A85EB21643DE16BA6C3F54CB496898BF91C60FCA1E5A5BED3A7B88BD899C9B14422E6F7A3277169999F49BBC9449C5601B92C70CCE7ACA4A3ED4AB6572FE6A2812FE427103915AF1B427A497F3B1B6964626BC5944C24D02DE1320AEE1C66944FC58168F9CD6F7EA3544C9E3E7D3A9F0E15F27E0A7941AF947AECA644C0D5C82500FC46A3584E86BF10FE948C05F8375281F55C6C25976896D27A954C41C6C6250C98476392E741F0BC73E74EB1185B20E0D756D2A56290489837A8645EC40CDAC6B5E2C9B7885BABE57A36F685F0C72574C0BF990EF6F2F1D542B255CE9A752A31099B8018159B462D6281683F373767B3697C2EA4DDCAC422086E6E06562BFCA8B59808772AB99D667567ADF245FD842622A47683F6ED4C70B3986897D29D6A0E31EA2454425ACE59731A5683289746211317BC4E64A35DEB75F33E8F71767A12CC31EA75D43231B0F8079DC617C8EF64E2D7DCF06E2EB45F4D6F378A37CFED0330099D9C04FC2EB81BF7F6F289DE4AE570BBB7B3D1D8DC2844BC46120117F1A0C0F2BFF4E2D5D7EF5EBFB4DB05B7E08BE23FD9ECE091F7F3E133F5EC41B3F2AFFEE2631E8B8EA8C45119BBE982815D6D9552DBCDFAE5E3C3C3BDD5EDAD52BB99020D7E32E8D95C2981F7DE3ADE3DD35DDD5AAD7C81FC7F2835051B97B15B6EE3563AB85D4E1F749BAFDCBE767CD4DADD29B79AC93F29D47F503AEA5C58B404EC6733E1DDADE5CEEF6E3C7AF3B50BC7CD9DCD1C6862FEF4F91D2C9C8B4588CB3979A3B4E8D06D14A26FBF74B15DB4D7D3E654D8F8A7CF7FE2141C6256BB5C4534359FE5DC7AF5C36F3FD869065B157732647A2EF8BD3C52D522DB4A78F72AE9475F7EF93FFDFB7F7AF9DCEA663BF95CC003B9D884BC9EBF1941F68AB17FF6F31FFDEBBFFAFEC5FDE27E37F5BCF09FA4663973236C3B2C25FEE55FFCE2B7FFEED7E7778B87BDD273C4EF152E7603A6A35AFABFFEC7FFF0EB5F7DEFCAD9FA73047FB227C85E687AF5577B2BFFEDBFFCE70F7FFCEEBDDBFBCF173F50D12ABFBED3FEE5473FFCF1E377EE5C3B78EEF8534EC37E6FF5AD37EE7CFD9D7BCF1DFC136D761B37AF1E3EA7F040FBDBADFDEDE653FD17FF0B42AB4FF8]
Point(ImageWidth)
Point(ImageHeight)
}
Add(Img_GetPoint,787420,182,294)
{
link(onGetPixel,5330620:doDraw,[])
link(Bitmap,1945:Data1,[])
link(X,8357569:Data1,[(195,282)(166,282)(166,470)(188,470)])
link(Y,8958330:Position,[(202,276)(141,276)(141,408)(76,408)])
}
Add(For,8958330,70,364)
{
link(onEvent,2078000:doCalc,[])
link(End,12547276:Data1,[(83,345)(104,345)])
}
Add(Button,10086514,14,217)
{
Left=115
Top=80
link(onClick,969613:doEvent1,[])
}
Add(For,7079932,182,364)
{
link(onEvent,787420:doGetPixel,[(226,370)(226,335)(170,335)(170,300)])
link(End,14131693:ImageWidth,[(195,300)(153,300)])
}
Add(MathParse,2078000,126,364)
{
MathStr="%1 - %2"
link(onResult,7079932:doFor,[])
link(X1,12547276:Data2,[(132,345)(111,345)])
}
Add(GetData,12547276,98,294)
{
Count=3
link(Data,14131693:ImageHeight,[(104,264)(160,264)])
}
Add(Img_Point,5330620,280,294)
{
link(Bitmap,12826038:ImageBitmap,[(286,268)(321,268)])
link(X,8357569:Data2,[(293,289)(244,289)(244,471)(195,471)])
link(Y,2078000:Result,[(300,289)(216,289)(216,408)(132,408)])
}
Add(GetData,8357569,182,427)
{
link(Data,7079932:Position,[])
}
Add(Hub,969613,70,217)
{
link(onEvent1,197425:doData,[(156,223)(156,139)])
link(onEvent2,8958330:doFor,[(114,230)(114,300)(58,300)(58,370)])
}
Add(DoData,197425,210,133)
{
link(onEventData,12826038:doLoad,[(278,139)(278,209)])
link(Data,1945:Data2,[(216,121)(206,121)(206,275)(195,275)])
}
Add(GetData,1945,182,231)
{
link(Data,14131693:ImageBitmap,[(188,219)(167,219)(167,247)(146,247)])
}