Вверх ↑
Разработчик
Ответов: 26069
Рейтинг: 2122
#1: 2017-09-06 12:09:02 ЛС | профиль | цитата
Galkov писал(а):
взгляни пожалуйста

Зачем ты убрал
if Bmp.Empty then exit;
в методе Clear? Или пустого контекста там не будет по определению?

А так очень даже здорово. Интересно только -- а это безобразие поддерживает альфа-канал?

--- Добавлено в 2017-09-06 12:23:50

Гы. Работает альфа-канал, только фон надо ставить None, а то только на картинку прозрачность будет распространяться.

Схема Galkov-a с альфа-картинкой


Add(MainForm,4442582,112,266)
{
Left=10
Top=10
Width=229
Height=262
Icon=[ZIPFE02000078DACD4FBB0E83300C34A83B9D3A4799D8F8857E125BC64699B2F597F89C8EA80B6CAECF0E48052AD63A0FEB7C67CB4754C971EE4A88574D7493DCCA73F2EEF22ABA28176BFA11512FC568090725F98661900AEB25664B3828E1DB44C316C96BB83DEE7550F273CE1978EAD1947CC739A95E078B5E68E5A9F0D9F8553F1FEB4399CFDBF98B7E6C4CDF26DB2F947EB67E9E1E86BBF7E1FEDFB8B6EC9F561EF7587D0A56DF82D5A760DD0B7AD0D0636DF0B9F064FC999ECBFCB0CC9F377AF8841EBE81B9F407EB579FC0F03D9EF9A13F8B0F1351FF48]
Position=1
link(onCreate,13023293:doEnum,[])
}
Add(BitmapArray,3560040,168,231)
{
Bitmaps=['Bitmap'=[ZIP3610000078DAB557094C545714056D5DAA76D3B6DA1A6B62345663EA92B834D606A88E20C86640764644701816111154C42A1AB5A8B8C6A52E3022EE28C8A2424084612B8B3023C83A8E0CC3083CD4D6DA28CEED79DFB135C6D6B2789343C2FB7FDEB9EFDEF3EEBDDFD46AFAC746824D07C603A30D3016FEC20CCFDF66320BA37EC028603E100A1C059280342015380FEC017C8159C050A08F512F9881FB9BD30B06AF495E385199E76CF9A42AD04FDFB8612DA9B66CA4AA8855FA0CB7F99DF1F33FEF905918DFC2BBB180033002E8DB43EE3EC098EBD693CF947B7AD2DD8808D2EDD841ADBB77133B7890584202B18C0C62F9F9D49698488521528A130D801F46C98013F0590FF93FC975987342E9ED4D352121A4F0F7A7325F5F2A5FB68C140101541716464D9B36113B7C98585616B1D252AA8989269968F003FC361E98CDE3D74D6EE31CC719B6156231E5B9BA52DAC285942812FD8D244B4BBA666747255E5E54BF762DDD475C585212B1B2322A5FBF9A64167D94D8231018DE4DFEF76F39DB17A75A5BD3450B0B812BCFC5850ADCDD057FB21C1D29D5CA4AF025D7C989EE04079376DB3662A9A9C43233E9ACD5D7BF638FE3C0547E96AEF217B8CCFE2AC7CEB6330DBCA5887735F66FC439EF4646920AE0B1E7F990C3A70BF081FB571D1424E883656753A1C4450FDE9B802DF04157F9959E7626729CAB021C9C4FBB7D3BB1FDFB891D3B26E4BB352646C8FD1DE882FB700E3EE4383B0BB960A74E09FEC9CC07D4817B45777250E72B76A858BE5CE0E65CECDCB9171ACBCD15CE27C4F9C811D26CD9424A6831C3DE9E2EC3870AE893DF0FD5BA7514FBE348AEC39F81B15DE5BFE7E763D6101A4A5A1ECF0B1788E5E4102B2820565C4CACB050B873ECDA356A474C1AC0550C1D0A5A402CB43B775213106B32F6CFEE6A401B1030A8392CEC9970CFF979396F6D2DB1FA7A625555C44A4A88E5E509BEF13C544AA5C4B57A153AA8E55A448EE2CDA63C434D4A01B75977EE61B3BFC497E11C4C2E27A65211D3E9886934C4D46A620AC58B18A4A7530BB4A184F6780EF2813CF8D082DCA4588B3A65E6FD8BC1ED080CE92AFFFDE060E3167F6906DBB78F58430331C688B5B511BB778F5845C58B3C20075C9BB7A1814AC4BE68B1489E683A4B7E0FE7CF5DE2A98F137D580F6E49776B217CE8AF954ACEB46EDAA46FE3F1AEACFC27F657AF12DBBB9754E0AE16BBB5FDEA6ABE9FF7A92BA6DF6D6D027F05EEC009B3613AACAD07BE7EADAEF737F496FFA50BAD74B999D6D3FD64B38FB742B32250A7090A6853F9F9AA6BBC5C732B3D6C22B31DA77D8BBD06F2FDB22CE7BA6BA01B15EE81CC74D423436F9CF00A3F7F6F0C300518C96B5D17743950EDE73DA2DEC77D54A597EDB037F5B8225BCB99EAE8E867BAF878BA3477D213BC9300CC7CD993B3256E332F398D77C1FF1B0C3D7B5C577C789BDD76731AD6B0264CC3B599BB68DED393167D33B1BF0530803FBFE1BFC4243F38A029D96D5A25D66E007E86F9A24F6FF9D0102091F39AA1F0F37E7ED672309F0BDC808FF8B3EBDE0BA617AE5AF5BC10F5E5B2F3C43FB07E09300706F516BF5AE27D91DDB841EACD519464F3E55DEC1DC4EB30F0DE4D7F8780E2D0507D3EF8E5C1523A633BB4B627BDF24DD6E4233EC2EF662BEA4086E3C436EC1D65D0DCF08A7069910275BD243C9C780CAE78CC6CC77AE4AB77A4A7562F76896C471F62292954E431E731F63E0C7C5FB0C2668D6AFBB6E775BC6F6CDC48A5E857E95EA61DBDCDAF74B6B7D3C4C4E8D9CD9B745BEAF494CFAA898E233637454775B4A06668505755A85B35515194E52BE2F159C967C6DEE22F75B09D501DB2F231AF91778296769EB51EA2AE8B5AC11E1E3D2ACC8EAD070E50337C5003399279BC4F2FEA4E8DFE3793DBD80C2976726CE43DB36EED6ABDD2DF55DFBE670FFD76FC383D043AE087E0C3AE1DFA348F49A7C03DA9A7F3F2EB963ED724538799A171D72EAA914848BB75AB30BB3C8A8DA5477171F400B34CD54F520D78ED5FDECDDEB4B819537F51612EBF7BF22495A03735627E6F414D6E3F744888013B76B8F3DAD2C95BC13DBA376BCF4B8B9F352D5081F9A4197530DBC686942B57921A31D0619E6AC57AD91AE76443DCFB19BD03CB303735290F0F7FDE82392109B3722E66A46ACC4A2AF8501AEA5A04DE192F6BF2BBB0427BAB31E53ECB3ADAF05D9285EF8874CCEC4598538A439634262C1C20EA4DBDBFC96AC4E2814A3767052B2F2725EE79CEE2C594E9EDA43BBF68B82BB83FEDCE774197FBD052719A4626A35A68AF54ECD671C9619C3B78BF78177A7B631F0894FA357A799CAE74B78FC8739FFB03EF71FFC5FD1717177469],'Bitmap'=[ZIP9661000078DAEDDCBD0D02310C86E1A3650246600206A0861D60004A56615D8840147480BF24FE79ADA481EE91628E9CEDFDF1765E9EB16B7BDBF6A5ED43DBAB65F3FCFCD4BEBFAE5FFB1D77E28F686E9F0B47131F8E1A3E1CAD7C0DEEB57034F1E1A8E1C351C387A386AFB6A38EAFA46307BE4A8E3DF90A380EE1CBEB38962F9DE324BE2C8EB3F9823BBAE18BE9E88F2F8EE31757551E9657C7207C5E1DA3F139738C69E7C6313EDF54C7447C331C33F20D744CCDD7DFB1065F37C7627C6AC7AA7C22C7F27C3647F84C8EF0991CE13339C2677284CFE4085F3F4774AC8EB888CF3540BFFFCE9022C5CF3D808A9FC30115FF2F44537C4F01A8F8DE0C50EE1FB90FE7FD4C76CD09EF0B7104747A3D45F6043ABCBE2729E8BC7AB35CA00EEA1F53687AAAC78D0CEAB23E9CBAE6B2093442FF0C7D1F75CE7BB6BE381C6383A6E81B76904073F5B1CF034D3A57613868F6391FA334CBCC9DE90C5A6F0E521FD0AA73B9D409B4FC9C381128F3F634E71D470D288E1A501C350914470D288EE2F34E084071D4802E0F4ED01690],'Bitmap'=[ZIP9661000078DAEDDCCB6DC3301004D0C93515B884549002728E7B480AC831ADA45D9B70904B20EBE7D99D25358279F10FE6032D48DC21DFCE3F9FB81DAFADBDB4F6D5DA7B6B4F38DD9EFF68AF7F3FFFB6BFE3A23EDA4FA03CC4BDE817AE142B46B2139AA204DFE3566A5068F8A287603A28F204557FEB144D840B8ACF8DCBA0551CABF3AD03553AF62718A689230A06688283D8A3E0AC66ACE38082244DEC471C49F0BE26D9F128887B29B119716CC13B9A04C783226EA4841129943022851246A450C28814CA2547F34D51AE72F460DC312461440A258C48A144ADD3E2D60F943951A2CA607CF0F3EA2109F160A47FA36848EA1C195527A5E6A4A3EA47706A23EA12F99463D589D28A93A44AC7F894481EE53FC791105594898EC901B01C4AA1A32068399EA326B33A8EA32A261BDD353B76ECA8CCA28FE0288CBFFB7F6D473B8E72119E7729EEEB70DF17D6BF2F1C85321B119E378B9A7F4C5F6CD5EB3CEEE47CB8764ABCEBBA82EB5CD18E8AEA656775D799FAB5384FD1670EA06ABEA7BEE09A7C8FA3529CBC992969F947E77169795C0F495A3EDC949CF50AA6A4AD9F31256D3D972969EB0BBDDE95B6DED5EBAFBD1F40DEF4A8F7A798BBBBF77E297982DEBF873933EFFDA448B50D7E75A9BE265590E6A82F95245684C21D1734E1FD1FB99A8A1279A860A0E3065016EBBAF705F65410A14B7F64745099D9EEDC4EEC18C42AEEC5C507C5F10AF23AA5A1]]
}
Add(MoveWindow,8170460,133,175)
{
link(Handle,3890076:Handle,[])
}
Add(Img_Bmp,4904784,322,287)
{
link(Bitmap,5675711:Var,[])
}
Add(ArrayEnum,13023293,168,280)
{
link(onItem,7233659:doEvent1,[])
link(Array,3560040:Array,[])
}
Add(MoveWindow,1923613,238,175)
{
link(Handle,9256865:Handle,[])
}
Add(PaintBox,9256865,231,119)
{
Left=25
Top=20
Width=109
Height=76
Transparent=0
Point(onMouseDown)
Point(doBringToFront)
Point(Handle)
link(onMouseDown,9316478:doEvent1,[])
}
Add(MoveWindow,10024935,343,175)
{
link(Handle,889031:Handle,[])
}
Add(PaintBox,889031,336,119)
{
Left=95
Top=130
Width=109
Height=76
Transparent=0
Point(onMouseDown)
Point(doBringToFront)
Point(Handle)
link(onMouseDown,10383419:doEvent1,[])
}
Add(GetIndexData,5675711,322,238)
{
Count=3
link(Data1,3890076:Bitmap,[(328,223)(132,223)])
link(Data2,9256865:Bitmap,[(335,216)(237,216)])
link(Data3,889031:Bitmap,[])
}
Add(Hub,7233659,231,280)
{
link(onEvent1,10203287:doData,[])
link(onEvent2,4904784:doDraw,[])
}
Add(DoData,10203287,266,280)
{
link(onEventData,5675711:doIndex,[(310,286)(310,244)])
link(Data,13023293:Index,[(272,271)(223,271)(223,320)(181,320)])
}
Add(PaintBox,3890076,126,119)
{
Left=55
Top=70
Width=109
Height=76
Color=536870911
Transparent=0
Point(onMouseDown)
Point(doBringToFront)
Point(Handle)
link(onMouseDown,9123238:doEvent1,[])
}
Add(Hub,9123238,168,126)
{
link(onEvent1,3890076:doBringToFront,[(193,132)(193,111)(116,111)(116,139)])
link(onEvent2,8170460:doMove,[(193,139)(193,160)(123,160)(123,181)])
}
Add(Hub,9316478,273,126)
{
link(onEvent1,9256865:doBringToFront,[(298,132)(298,111)(221,111)(221,139)])
link(onEvent2,1923613:doMove,[(298,139)(298,160)(228,160)(228,181)])
}
Add(Hub,10383419,378,126)
{
link(onEvent1,889031:doBringToFront,[(403,132)(403,111)(326,111)(326,139)])
link(onEvent2,10024935:doMove,[(403,139)(403,160)(333,160)(333,181)])
}

карма: 22

0
Редактировалось 2 раз(а), последний 2017-09-06 12:23:50