Add(MainForm,16342726,182,224)
{
Width=398
Height=329
}
Add(PNG,8875976,329,189)
{
Transparent=0
TransparentColor=-16777208
Point(doLoadFromStream)
Point(doAlphaBitmap)
Point(Bitmap)
Point(AlphaBitmap)
Point(Stream)
Point(onAlphaBitmap)
link(Stream,13587955:Var,[])
link(onAlphaBitmap,9792617:doLoad,[])
}
Add(Hub,7017499,287,203)
{
OutCount=3
link(onEvent1,8875976:doLoadFromStream,[])
link(onEvent2,8875976:doAlphaBitmap,[])
link(onEvent3,10903258:doPixelFormat,[(312,223)(312,244)])
}
Add(MemoryStream,11375819,294,77)
{
Stream=[ZIP7505000078DAEB0CF073E7E592E2626060E0F5F4700902D20220CCC10624E53FFF4F04529225AE1125C1F96925E58945A90C8E29F949A90A9EB989E9A941A98929958527536D181898D33243224A227C7DAC92F373F512416AF42A720B1840C0C6BEA22031393BB5442129353D33CF56E9FDEEFD4A0A9929B64AE1A6BE06BE05CEA919991E5545A9C1557E21C955D9C996294AF6760A361556400372534B12152A7273F28AAD2A6C95C0E65A01D920617D2505B092926C5B2588A3227C03149CF38B52154CF58C75930D0C0D15CCCCF40C4D4CCDCC0C75148C0C0C8DF40D80C84CD7D0C4CAD4CCCAC85C010A9480B615A5A45905B9B841ED02F26C95324A4A0AACF4F5CBCBCBF5CA8DF5F28BD2F50D2D2D2D41661819E90255E81657E6952456E8E6152BC34C70492D4E2ECA2C28C9CCCF5300F11393F24B4B6C9594605EC82DF0F5851B9C570C0D286090E9572416E81BEA19E8E7E6EAC354179704A5A6E1575D1C525990AA1F945A9C5F5A940C8C8F346524ABF06B052904BAC6CABF2813182989392EF9C9A5B9A979259E2EB64A4019BD94CC142B57434B435723635743535723574343430B3723630B0B630327531727532313579819D8F41A9B191ABA9A5A9A583A3BBA0059468EA62EA64EA64E4E2E86A616AEC6868E30BD9E79C5258979C9A930BD9908BDC678F55A3917A52696E41785E4E7E7C0524040467E497E71467E818273B099824678665E4A7E79B126287AA02E4D2DCA2C4B4D712BCACF550087AF552616FB8D8C1D5D0D8C4C0C2DDD2C9D5D8D80FE7676B1B07474B2707533B5703134705182EA4D2127CCF4818ED1474B2C3021600A0431E1491FC881679ED43C608E2902668D288FA3DA0C0C8C4B3D5D1C432A6E2DB9ECADE1122871E063F5711D914D1F67044D099752F53699A6C27952B9534828B252474747774A408E48B76058D7ACA32E5E5E72BE828ADE875A3E455494A4CFF8686F2CDFD6D31BBDDFF2FE9CEA73E5E72DBFEFAEEABDBCFEEF73A3BF97C43BD9741E32E947F04C3FF0E663EDEFF8164D95F62F951FA4CC1A3F96AE66E25EC5DF2E7154EB9C60D9FC67E9F9099C1F379C7E52F86581C4E113CE32772615F0A8CFE79CD7C46925D0CDFB25516CABBDDC34B559173B5F3A34452B4F5810C2B632F5FBE927D13C09ACCB4FB85ADF32E864DE71E6DD03CD34AFA6D21E8F98561E1D6551EB8CD646BD2F8BFCAEABC95D4D98EA2AAEFF49EB6AA58DD79FC29D01CADABBDA8E2EA9B448E8FF1F778BE58EC71C5EF63B1E13EDB4CF391D0BF23826DD5D653DCD4C9EAFF3B96197C814EFFB923A42F7575E5BC37AFE00E3EC3D8C5BBF3B3D4908CE7298AECBB3D0E751ED57E18537673CFE2CBF9035B2C34D984745C9EBDDF724E162A334816A35DFAB8DD7BF375449BC3820A517D82411A2CCB9DBE388D89BAC75EB4AE35BC5BC1B43527EC9CB2F10EE0D529FD3F8FDF6F525DF725C4DB596F6E8EE386896F6648FDDFA72463606B34D4F1B975639810A56064F573F97754E094D006993E713]
}
Add(MemoryStream,986246,336,77)
{
Stream=[ZIP5706000078DAEB0CF073E7E592E2626060E0F5F4700902D20220CCC10424274CCC3003529225AE1125C1F96925E58945A90C8E29F949A90A9EB989E9A941A98929958527536D181898D33243224A227C7DAC92F373F512416AF42A720B1840C0C6BEA22031393BB5442129353D33CF56E9FDEEFD4A0A9929B64AE1A6BE06BE05CEA919991E5545A9C1557E21C955D9C996294AF6760A361556400372534B12152A7273F28AAD2A6C95C0E65A01D920617D2505B092926C5B2588A3227C03149CF38B52154CF58C75930D0C0D15CCCCF40C4D4CCDCC0C75148C0C0C8DF40D80C84CD7D0C4CAD4CCCAC85C010A9480B615A5A45905B9B841ED02F26C95324A4A0AACF4F5CBCBCBF5CA8DF5F28BD2F50D2D2D2D41661819E90255E81657E6952456E8E6152BC34C70492D4E2ECA2C28C9CCCF5300F11393F24B4B6C9594605EC82DF0F5851B9C570C0D286090E9572416E81BEA19E8E7E6EAC354179704A5A6E1575D1C525990AA1F945A9C5F5A940C8C8F346524ABF06B052904BAC6CABF2813182989392EF9C9A5B9A979259E2EB64A4019BD94CC142B03630B6733374367736767375723434347571343275353334343670B334B67239819D8F45A3899989A9B591ABB9AB83A1B1ABA1A3939BA39B999995B381B99BB385B5A98C3F47AE6159724E625A7C2F46622F41AE1D56BE55C949A58925F14929F9F034B010119F925F9C519F9050ACEC1660A1AE1997929F9E5C59AA0E881BA34B528B32C35C5AD283F57011CBE569958EC077AD4D9C0C8D1CCD812E80290BFCD0D5C9C5C9C8C8C8D5C8DCD2CCD4C94A07A53C809337DA063F4D1120B4C089802414C78D20772E09927350F98638A8059E3815FF82A0606A6764F17C7908A5B53269DCE160E1439767EEECECF5ECFAEA6CCEAE95DE67B9BC5EBA8DD825FEC1D09AF9C045C373C705BB1453A7C57C1628592D50B7668367177BF75130957D25B5592C81ABDFA42EBD5B05F4ABE97CC4C667A3E2F5C5FFE45FF456B75D8FEC3E5E7BECBEED9F289BDEF93C1D20FEF2ED55AF609F4CF91F24CFB718079B9DF1AB37D9B44B50A5B58B7EC96F5E252529C3377E771A9152ADD5D5D674CC2EF723CB612BFBCF36DBCE32A59EBDF8E56C7AD4D5F996F9CE6F235F65042DFDF90DD1C2117A20BDF4DE11159BE9BC575AA90E499557755950EDC94F3F4E792E8E6E91359B366CE868581ADEF145FC939F8B01AB3AEE24C93121115E1BD7D77C3B68E20D92FF5CC8D0E96611C7CA7E60437C7D87F94D298E9D824B1A9D6667AD997C0F4F99B37291C6F382833DB7BFB922AD75CED0F4D0AAB75998E6B7246B3286DECB274CD1654F5DC68DD7AA077B247E3065983E397DDAE6EF89CB77891AA31E3E6FE160F938C3B0D8777E53CFFFBD757772EF7778EA32DA5156AEB59CAEE655E0BBD9CB6209DC7EFE1B4B909FAA1D112812627F3BB569EBB703754F28CE1BD533FCFA7D9F3DCA9D8137573B2C84D1B5BDD2DF3DC0F392FDC3A43A24AF1E4A645A76C96BF7AC9D19753FBA5E8DFE9300BABBAE23F275FF7DFBFBE218EC984C18063C57C632FE1E0F7E77B7C4362DC45CE68B06F3BBE7CEB2619E36776F5D6E6313506C6E63FAFB0EC62F860FA45FCB8DBD652FBBAD49427BF8E7CF6DAECF58FD55DE56C4E55E3E35DDCDEA76DF7D65ECEE72ACFDB5B9AB57D7D6CEDD383ACA7CFE9E9AE9F7B62FE9E9A72A34DA21CA2AC270B65D48E2F8BBD7FA327F358FFFDBFAD71CEDBF58EF164EF0EE1E2FCE8D4B1B4CFD8C2CB8AE38F41CF1A1B9B9C55ABA2F4A68787D789B5775B5F8D12DAF0DAA4F6FEF5D2C39F6BD916DFFC795479EEF778463606E3999622B91B2E3F0615F59EAE7E2EEB9C129A006A1A5D90]
}
Add(AlphaImage,9792617,392,196)
{
Left=110
Top=15
Width=130
Height=130
Point(doAlphaMode)
}
Add(InlineCode,10903258,336,238)
{
WorkPoints=#13:doPixelFormat|
EventPoints=#8:onIspf32|
DataPoints=#7:sBitmap|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|13: sBitmap,|25: onIspf32: THI_Event;|58: procedure doPixelFormat(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|36:procedure THiAsmClass.doPixelFormat;|3:var|13: t: PBitmap;|5:begin|39: t := ReadBitmap(_Data, sBitmap, nil);|23: if t = nil then exit;|54: _hi_onEvent(onIspf32, ord(t.PixelFormat = pf32bit));|4:end;|0:|4:end.|
link(sBitmap,8875976:AlphaBitmap,[])
link(onIspf32,9792617:doAlphaMode,[(375,244)(375,216)])
}
Add(Button,5922688,182,140)
{
Left=120
Top=160
Width=100
TabOrder=-1
Caption="transparent"
link(onClick,9140943:doWork1,[])
}
Add(Button,14457391,182,175)
{
Left=120
Top=185
Width=100
TabOrder=-1
Caption="notransparent"
link(onClick,9140943:doWork2,[(221,181)(221,153)])
}
Add(ChanelToIndex,9140943,238,140)
{
link(onIndex,13587955:doIndex,[])
}
Add(GetIndexData,13587955,329,140)
{
link(onIndex,7017499:doEvent1,[(368,146)(368,181)(277,181)(277,209)])
link(Data1,11375819:Stream,[(335,131)(300,131)])
link(Data2,986246:Stream,[])
}
Разработчик
Ответов: 26170
Рейтинг: 2127
|
|||
Можно еще вот так попробовать
|
|||
карма: 22 |
|