AmigActive 22

home *** CD-ROM | disk | FTP | other *** search

/ AmigActive 22 / AACD 22.iso / AACD / Programming / RxMUI / Examples / binpic.rexx < prev next >

Wrap

OS/2 REXX Batch file | 2001-05-24 | 15.6 KB | 295 lines

/**/ parse arg f signal on halt signal on break_c l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit if AddLibrary("rxmui.library")~=0 then exit call RxMUIOpt("debugmode showerr") call SetRxMUIStack(64000) call CreateApp(f) call HandleApp /* never reached */ /***********************************************************************/ HandleApp: procedure expose pic ctrl_c=2**12 do forever call NewHandle("app","h",ctrl_c) if and(h.signals,ctrl_c)>0 then exit select when h.event="QUIT" then exit otherwise interpret h.event end end /* never reached */ /***********************************************************************/ CreateApp: procedure expose pic app.Title="PictureExample" app.Version="$VER: PictureExample 1.0 (25.3.2001)" app.Copyright="©2000, alfie" app.Author="alfie" app.Description="PictureExample" app.Base="RXMUIEXAMPLE" app.SubWindow="win" win.ID="MAIN" win.Title="PictureExample" win.Contents="mgroup" bm.source=GetSource() bm.class="picture" bm.sourcetype="mem" bm.inputmode="relverify" bm.frame="button" mgroup.0=text(,ParseText(" This is a builtin image.\n It means that image data are saved\n in the macro itself.")) mgroup.1=MakeObj(,"VCenter",, MakeObj(,"HCenter",, "bm")) if NewObj("application","app")>0 then exit call set("win","open",1) if ~xget("win","open") then exit call Notify("win","CloseRequest",1,"app","ReturnID","quit") call Notify("bm","pressed",0,"app","return","say 'bm pressed'") say "Information:" say " Width:" xget("bm","BitmapWidth") say " Height:" xget("bm","BitmapHeight") say " Depth:" xget("bm","BitmapDepth") say " Masking:" xget("bm","BitmapMasking") say "Compression:" xget("bm","BitmapCompression") say "Transparent:" xget("bm","BitmapTransparent") say " XAspect:" xget("bm","BitmapXAspect") say " YAspect:" xget("bm","BitmapYAspect") return /***********************************************************************/ halt: break_c: exit /**************************************************************************/ /* obtained via p2s.rexx */ GetSource: return , "464F524D00001A06494C424D4E414D450000000E7063303A72786D75692E6A 706700424D484400000014009F0024000000000800010000000000009F002443 414D470000000450001201434D415000000300959595000000FFFFFF3865A279 7979AEAEAEAA927DFFAA96662200EE550099FF11EEBB005555FF9922FF00FF88 CCCCCC000000E04040000000E0E0C04444445555556666667777778888889999 99AAAAAABBBBBBCCCCCCDDDDDDEEEEEEFFFFFFFFFFFF888888FFFFFFCCCCCC44 4444FFFFFFFFFFFF88FFFF448888CCFFFF66CCCC224444AAFFFFEEFFFFCCFFFF 668888FFFFFF99CCCC334444FFFFFFFFFFFF44FFFF22888866FFFF33CCCC1144 4455FFFF77FFFFFF88FF884488FFCCFFCC66CC442244FFAAFFFFEEFF8888FF44 4488CCCCFF6666CC0000980000CC0000640030000030980030CC0030FC003064 0098980064CC00983000986400CC3000CC6400CC9800CCCC30980000FC3000CC FC4488FCCC88FC9820FCFCFCEC206488204488ECFCFC3464C8ECECEC44FCFC64 FCFCCC64CC6400FCCCCCFC98CCCC0070406488448888FCECB800FC88FCEC5400 0000FC64640088CCFCFC0098800030244064B00878FC00300098CC0098FC0000 3030FC0064FC3098CC6464FCCCA8FCA8640098FCA48064CC00CCFCFC10442098 00CCFC30CC98FC10FCCCCCFCA8FC44B0D4441044FCCCFC6464CCFC88885454FC 30CC6400507064C8FCAC90D400FC88208888B0B0B0AC98009864C8648888FC00 FC34C8C830FC98884488C07000A8FCFC64C8C8644488FCFCCC987454ECB84030 204430444454A8FC3030444444FC3030CCFCFC88CCCC645480BCCCCCCC545454 CC6464C4BC005C5C58ECFCECA868A0247824A0A0A0B4486C58B8B474E0F0ACAC F4C098C04C80B0C89874A47C60D88C400CE000383C40B42C2CC43C3CD44C4CDC DCDC800000DC3434388844D8744074D86CC8AC9C745C449C8470185C303C3834 C4000068645CC0B4ACA08C7084B03C0C60FC4C9C8C9854A800B80000DC008060 4CECE4143434344C4C4CB8B8B86488B83474A80064982C289C00680088888818 2424A05800348834642000A0000054B058D86438245C2420242884807CC0C0BC D8D4D4FCFC00DCB844989898646464444444A8A8A828282C44484C6C6C6CC4C4 C8E4E4E48C8C8C7B7B7BAFAFAFAA907CFFA997424F4459000016B4010425EF00 EEFF00FE010425EF00ED00ED00010425EF00010425EF000002EE000E70003BD4 0003D00000200200002008FC0006A803FEBFFFFCEFFEFF00FDF9FF00FE067000 3B40000140FB00012008FC0005502001D40001FE000020F70002082380FE0000 80F4000677DE3B40000310FE000002FE000008FC000220023AF6000008FC000D 5FFF81D400037000006002000020FB00131FFF867BC002FE80040958A6288061 090802FF5013C00017F6BFFFBD7FFA7FF7FD7FFFCEFFFFFED5FE132000445080 008E8004080006200061010802FF00131FFF8A02000222800401502288802108 00052A5013FFEBD020000010000270008140000E0000040000137FEBFC59C000 CA8007A80806A0007D010007FF00137FFFDC508000880002280004A0004C0100 03D50013C000330F4002668007F1782B59A03F0808042AF013457575FFF80295 440626AF55FAAF51AA6045253E13E000466F77FF7EFBF5D7FBEDFF7DEFD7FFB6 61D6131A0289FD00001100000AAC5200AD00AA60489A3E130001319050000140 0A200511A28010280045442813FA02BE022002040007FC020FB800FF00003F9F C0135FFEBDD9880081040E2E84561087D1A840599F3C035F77BC49FD000B0E2A 8047A005D180401D9F1413C5FC47B4D800B14404053D1DF2BAC13E327461EA13 16FB4E6FFA834CA03AED538E7562ED1591EC13EA13844901F2FF7EB7DFEC00EF E19FBE807EFF518C04136800116D0201402011115081054212158183680AFF00 110F8F50034420320D120FF060E10110AD9FEA13E8001580A80000800D1C012E 7800D300007A63E013FBB6F4ED0081482019FF509E64435F8180EA63FA03FAB2 5F60FD000B0BFC408F7402FF00806F7BE01393B6E19F52834C2038E316309BF1 8CDF11C0841A13CAED173FED00A0529404FF9B23B5817F8D20EB4613C0000240 1FFF5FEDE40551C10DDF002C7660492A131502A8BFA8008000935AFC8492A456 7F85170094FF0011033FA00080401400AD1823318153A1000046049502ABC005 FE000B075B0055B803D700605700B813BFFFFDBFE000A0121BFAFEB7FA26FFF7 ED9FB69C039FEFBF80FD000B075A509FB807D7244417A2D813EAFD567FF800B0 52BCA5AF634BFB28DBF9A8B60E1323B4B28BF6A2803202D6DF2B67F4265C1A24 5F261331042010BFDFFFFFF84062824C8902EACE00020C13584B414BF6820000 0521DF5097F7C95D3AC9800613B000008F4000801200069D2023770214110000 2203E84B41D0FE000C200D2300F0B800CB83E1C98028134EFBDFEFE220000007 BBDF7DB7F4FD5D3AFFFDFE047AFBD3C4A2FE000B07B74279B481EF492AEDDD2C 13A6B09E3B5CA380120A989D8D0B76369611367DDA13CAA45B67FBB0801201D0 7F7A67F9AAF858B02DAE13A2A0121807EF7FEDE210C0400C3800433600088013 550BA487FA800010060FFF0513EA157C884FD04E13C8000067F82000101200BF 4027D503384880002E043D0BA4F801FE000B040F804538071607F2CFD060135D 5FEDE7F89080121DEF7FBFFBEBFEFCD9FFF77E131D0FEDE00080000017CFC07F 782BBE44D0FFF56013E054491FFE30C01249E0BFFACFD4E9B81B30271E133FF0 4D30FEA92400353CAD1786F2B0F5B18E7B2A13F0404815557FFFFFF908C1420D 0811829F6E402413200B1040FE80000028832CE076F54EE0003100CA13080000 22AA8924000C003E4003F200662AE1202A13080B1055002000001483C1A0790F 4F142A9A20E4132FBFB7DAFE80000036F7BFBDFFF7EFFD6A9ABFDA042FBB1572 54FE000B2CB792F5FC07EF9520BA3BE01307B4A79DAA8926021274ED1D8BF8A1 6B4E4B9F3E134F4A2AD91774F1524D6184DFC620C88346212D2013A102A04EEA AFFFADC0605A0961C20135672F041E13402411211570C0105216050016261480 861140C01348000012175411102841B48026F200E00810E004132824913FE800 20001A17DB8011441535A12E20DE135EFD5FBA1570C0527F9FB7F69E7DFEFB9F E1BBF6130E6C1BB80020C0007F57A3D69096DC538F01A9F21376DBCE8FFF5E19 D205885E76AFE9EBBB11FE5B3E130FF0031089D84D884FD8111E4A2359CBEFCF 080413E28082108A6FD6F784106D022D9148A50410281A13100F1C4870D00C08 500390C1322CA5E40FCFE3C41308000004809908884800100021600B6C2BFFA0 2013380F9C4CFB01D0001403ECC11F9CAE28200043FE131D7F7DEB7DD16D0877 EFDAFDD96EB5DAFFEF57D2131D7F1D48F94044001FCBC8DD704EBCAEE43063D2 136570E1B78E9BF9C865EC7F3CCFB21B72DBDF943E135E240D51FE75CE579762 84338051A015C320620013E0200501529B39EDC150BC1127B0A3DC545B423E13 408A30AA00740655A88D0348504E180023209DC01310008001FC64C610100080 002C4000080FEE040013308AB0ABFE83F800789DBF485FBE1BC0341B99FE135F DF7AFEAF75CE17BEAF67EED7DF5C23AFAFB9FC135E8E38FBFE11C805BEAFA76A D39F1801A8C5B9FC132F55CA5553EF0ED24632FCA6AFF147FBD77B643E1305B0 02A903393D65094082A74002411A580254A813D0209229005C169F3008B48207 E2428213FC14AE132A4E3C12DC9AC16012AD0558301C992488028F4013500010 0803011D65B0080608000001105E924090136A4EAC1BDFE7DE0002AD335037FC 9AB4816CCBFE136FDF6DD7FFBBE960CFF75B75FB5DBF7DBC67EF6E132FDE3C9B DFBBFC009BED1775735C9A3CD6F4CFC6135591C1CD204437676D5AF82DCFE127 C92BFF20BE131ED00A050CA2A15B3A70848A8937400B6108004013C400000500 383AA6912080008DF1030036F4045613210E7178F34551594586012570083870 8108F3800C100000020082195B2104940002FE00034C06002813750E717FF3FF 6200D48295257FE83B70B7FCF7EE137FFFFFFDFFE7E759DEDB6FFF7DEEFDFFAE F7FBD6137FDE7B7DFFC7F200FFD285AF7CEE797BEAF2F3C6134EF18E870C38AF 5B9A5DFADA0FF6C78F37FD0C7E136F6CD3044243C3FE487042BE80194033A001 6D3E13E008D0054004850F03A2403402800651FFFD2D2A1310122CB834BC33FA A689AD403004308440028280FC00044402F04385FE0006500140C11209141350 122CBD74B8B405E42EED4432D43784BFFC83AA135FF72FFFFFBBFFFAFC78FFCF FFBFFCAE2BF4DAFE131F762FBD76FFF50AEEF8EFCEB29D74A6EAE4CBB413EFE5 4347CB03CEF11977528FCFEBCF6ABFFF517E13BBF0089604A7E7FF6752060ECA C68A1F60017EF0131120481600120C09411002028AC08A823FFC22F413840765 28195807F690A478D1303031608000890008B0004010401023FE40FE00070100 048040010A00133407253E594A2801D0A478D13BF03F60FFFDA3F413EEDFB7EF BFEFF7F7BEEFFDFD7EFF7B7DEBF7FDFA133ED765BE1DFFE400F6E67CDD7A7639 7DEBF5F7F413DAD892D7E6A7DBFF6E4B852C4FCF4E9D3FFE7EFE133A9051B781 DF01F4C0BC000F4584012500015AB013009701B7C0511A0E0028600445840024 0FDD52BA13002FAA081E00E1F53C41DBB0387874CAC00295000AA00700900000 06F0800060FE0005050000010204132028AABFDE00FB03BC419BB43DFC70CACF DF87B613FF68FE6FBFAEF6F5FFD79FFFBFFFFADBFFF6BDFA13BA2FFABFDF8EF4 05FCD5DBBF3DFC71CBCFD79FB2135F4054F7E1AE1BFA4396244F87878E113FFD 2AFE132FFB548BC41204BD4027280F82909EAE0706A0E8138840548BEC001B49 0202080803909A820774A4EE135004AA140025C4BE98C8D5307C206150C0016A 000AA000000800200575010020FC0003080A041013D004AA17EC05DBC39BC8F5 307FB06B50CF7F4AFA13D7BFAB77FFDFE77EFCFDF7F7FFFF6F7DF7E77BEE1377 BFAA1FEC17C20BD8EDF537FFB06F7CC7676AEA1387BB01EBFFFA3FF5673502C7 83DF0E2D3FFC15FE1326F5A793A2000030805A141B4F94217723024B5013A220 82F3B0007F8F860820724F84200165206B7A13500218480007803238A4E32010 600E00C0017400FF000907E0401000F3014020A0FD00034742280413D0221A9B F017FF8C3FA4C3D01F602E00A3633F7E135DFF781FBFEF8FF478B7DF5DBF7BFF FEBABFD7FA1354F73FFB92078F4638F6F7791F702F76E3237F7A13ADFD62B7FF F87FBD47131CDDAF1BF1FE3DFCABFE132FABB7CFC5820022A279C80F49C5005F 21408000138920A07FFDB037D83A1048C81FC15044015100AE13505448000209 802502021730803A2280CE843C0009200007CC000800326440FD000520000122 001013F0544FFBFF31B7DF585217F09FFA5280CFF7BC961376DF5F97E747FBF7 AFFFB737FBFEDFBBFEDCFF6E1376DF5FDFE703B3C7AE7B9737D2FE529BEF94BC 8613868B107FFD7E7FF8D9BDA0C77FC4FD3B317B43FE133661775BE042060D50 5F524DD26400561680071013822822FBD87E0DDDDF090288B4C42C1207A0055E 13411C08102221E00240202570120801A8E80AF8001320080140202002A08440 02400F0070000102022013E13429EBDA7FEDDB9F6027B8A0C82DA8E828FD7E13 7DF7FD3FFFC3FFFBF7F6FDFFFB7BF7EDF85DFF9C13757D7D7BDA63EB7B537677 BDFD6855ECF808FA4C139CE3F66FFDFE1FDDBF96DACFE6F3AE4511F707FE136B 4D7C77342622114856C0439B8E7D5D2810D100132041482F4C2C26F143528000 B408C705101012BE1304B283903004D00D28212F5C1B907CA2D38F200013400C 0070305021000C0000600B803800300009021344BA8BEF4C7AF7FC27212F3C24 1083A2E39F3ABC13DFBABFDFF7A7DEFFB9AD7FDF5BF7FDFAEFFFF7FC134FBEBF EF4406F4ED21256F1F1016C5FAFB9FF3BE139B003C3FFFF92FF2DFCC50E36FE7 BB580C70DFFE135DA0B40630021A40440DD51E90800271AA131800131500941E CE039ACE4B0401763FC0545108011DEC13A25E0AE03000640184300A80108602 8A51AC60000040FE000F30820820548005200020FF002000000613E25E0AFECE 80FEEFCBB00FF42F66D1CA71AC7D6C13EAFF6BF7777E77D9BF7BFEFDDE9F7AEE F7FEFBFE13EAFE2AF4C6027E89DB39DFDC9E862CEAF3BE7D6A1308A1611FFFFD 9BFE6FCBF17DEF79D76486529FFC1357404840402E4B2090AA8143130422AEB4 882884134140004FAF24CB20978881612FE45D8A84282ABA132833A5A0401074 0740553E84901122514A55C0040040FE000F70000800A8200010105026002020 0146136833A5AFAF34BF27F7F53FE4AFE15DD16A55EBF813BEBFFFBFFBFF77FF 5FF77FDED7CBAEF57BD7FCBC137E33EDAF9B3E7F27CF773FD6878108F57AD5EA 3A13D68C5A1FEFEF8BF8B782416A7FFAFFA411A23FFE1313852F2001050550C2 4345E1D3C600112795880A135105042BFD0065405FC205FD6BFC3D0005008DF4 132470D0C0003A8A2B003CBA001001004A5862400A13C0010000828004108000 01D0110002002000900A13A475D0EB7FBACF7BDFFCBF6D6B7D3D4A7D62DDF40E 2EFEFBFE3D7F9BFFEF7DFE27D657CFFEFF016ABA1326F5FBEABC3F8F7BCD7DFF F5C3570F5B7FF7CDF013CA8F2B3FFFC575C47FC145FFFFFEFDB5879DBFFE130A 2742C5203E30000215475496C0A03E9154340E1380674085641438003DD0075E 8EC0BF92A15437F4133140B5000040D7F7820838A4112100406E0B800E054068 40028130FE000A10004012C802003000081213F12FF507E574EFF7BFD83FFA8F E93DD05E0BBFF8133F97BF7D7EEFF7FFF9EFFFB5F53768FD5EABF5D2133B63F7 40647ED7F7B9DD7FF487E12AFC7E0BB3C013CEBF4A7FFF9F28087FF7C75BFEDE 7FBD00A07FFE130217801CF0C4038080A42BD8136220689621B02C13429F801E D0C41A82BFA42BFF2B666FE89605BDD2138D607D40001B645D001BD0201410C0 1769DA002C13008000000204038204442030506060000604423C13CD7FFD5ED2 DF7FDDBBFFFBDD6F74AFDF7FDBFFC013FD7FFFFFFDFBED7DF9BBDFCDBF9D9EDF 79FBB5EC13CD6FFD5EF0DF6FDDBD1FFBFD2F74EEDF7FFBADD013709F82BFFFE4 9AA2FFE42FFFFBED3FE89625FFFC1303075100254B0398000506FD1598200C38 66401E1394355803254A0B99DFF182FE7D98AF84385657E4131C802EB8D804E4 6600026001102300334788001C13170A180020010310040085830018810C0031 2158138BBD76BBFD4DEF77DBF2637E6DBB26B77FAB76A013EBD7E7FFDFFDFC67 F1FE7E7F9FE77E73FFAADE1E139F937FBBFD4DEF77D5F666FC5CBB273F7FAA17 4413E07FD14727FA1B99FFFD9FFFEFDCFFC4B853FFFA13900065395A02A5F290 0145D538E4783B5591803813D8FEE53A7BAAADD6EFFD7FF6CBE47BFB55957FCE 0F80001AC1000150001002800130188004FE00003813300105112850A0711281 000934000010000082B01378FD7FDA4BDBFDF7ED7FFFFECFFCFBEF55953D4013 C7DEFACFC7AF5FAEF87EFFF7FBFFFFAFFFFBFC3013D0DC7FDA4B8BFCF46AFFFA F6C3FCFBFF5594BE800F77FFE53FFFFEAFDFFFFD7FFFFFE77FFBFEFF00FC1363 014450180822080100103432D5403AC50C057C13DDFF54DFDB5F2E5DFFFFDBDD 4ED76FBA5B4D5A9A02630003FC000001FE000030FE0003040005601322408000 202001020A002421F1208000A40285E8131CFFC7DFFB7F2F5FF4FFFFDC4FF7EB BA7B4EDA10136B6F7FFFDFDFFEEDD1B55BF6FEDF77FFDFFD7F6413492F47DFCB 5F2E45DBB54BED8C536BBA9B485A80023EFFFCFCFF00FEFEFF007FFBFF00EC13 3F20781A00041C040D200001E01D42815EC800F013C0DFDAFDFEFDB3FFF2DFFF FF1FB7FBD7E0F6F51E0C3F200002000008000D200000E0FE00031E0000F0133F B0200201020C002FA00200E00A04083F091FE013004FD8BDFFFEB3FFD25FFDFF 1FB5FFCBE0F5E100133F6FFFFFFEFDFFFFCF7FFDFFFFFD6BB5FFDE6BE01300DF B8B5FEF8A7FBE0DFFFFE1FAFF942C1FCFE00003FF2FF03FEFFF5F8135E8820A3 01000C0006D49000000B49013B0017DC13A177EA5CFFFF57FFF82B6FFF5BDDBF BEE4DBE83A135E8800830000080006D49000000200003B0017C0135EAC15A300 0008005FD49540EE0240011B042FC8130153F55CFFFF57FFA82B6ABF51DDBFBE C4D7D810025E89EAFDFF05EF8FFFD03FE5FEFFFFFB01CFC4130025C07CFEFF53 EFD12B457FAFDDF7BFE0D3E000005FFAFF00FEFEFF005BFEFF03DFFFFFCC133F 4000E60000080017620B024500080021005FE00EC0BFFF3BFFFFF7FFE08DF4FD BAFFF7FEFF01A07E033F4000C6FD000B17620B024500080001005F60033FF500 C0FD000B5FFB5BAD55000A4050015F0013002AFE3DFFFFF7FFA004A456AAFCF5 BFAEFEA000133F60FFF9FFFFCFFF3F720F04E5FDFCBF0EFEFFC0130095FE19FF FFE7FF689954A9B0FCF6FF5EFFA040003FFAFF01F7EFFEFF06FDFFFFDFFFFFA8 1317F8006A000008012F9D27F659020A0529007F8013F806BF95FFFFF7FED022 4809A6FDF5DA96FD01FE1317F8006A000008012F9D27F659020A0529007E0013 07DFE04A40490852BFFFFFF6EE822AB5E107FF001300241FB5BFB6F7ED400208 0933FDF54A1EF800801307DD5FDB3FB6FFE42FDFBFFE6AFFFF6F67FAFE001300 03FF917FFFF7B69060D008847DD5FAC6FF8000023FFEBFFBFF01BF6FFDFF04DF BFFD7F20132FFF826800200AB09FFFFFFE7FE09F9F835BFFE613F4005D97FF55 754F41000001801D20607CA4015C132FFF826800200AB09FFFFFFE7FE09F9F83 5BFD00080BFFF46D91AECAAAFEFEFF077FF7FFFFFD7BFC44FF00050B92EE5135 55FD00078008004056840000130BFFA0F8CEFBBFE0BEFFFFFE7FE2DFDFD5DBFF A2FF001174955FDFF54A600000010017602028A00100083FFFDFFFFF757FFFDF FDFF01FDBFFEFF01FEE61315FFF537C87129D2FDEBFD7FFFFEBFFFF7FFC00013 FFC00AC8258A9629069403EA08004223080FFFFE1315FFF537C87129D2FD6BFD 7FF7FEBFFF77F4000013003FFFB7FFDFEBFFF96BFC15FFFFFDDC77F14000FF00 07024804A814290080FD00054000000A80001300BFF737DEDD79FFF96BFC37F7 FFFDFDF7F0000007008008803306D204FE00042200010021FD00133F7FFFFFED FBBFFBFF6BFDDDFFFEFFDEFFF54000"x /**************************************************************************/