It is currently Sat May 25, 2013 4:21 pm

View unanswered posts | View active topics


Board index » PureBasic » Tricks 'n' Tips

All times are UTC + 1 hour




Post new topic Reply to topic  Page 1 of 1
  [ 4 posts ] 
  Print view Previous topic | Next topic 
Author Message
RASHAD
 Post subject: Animated GIF Gadget - Another approach [Windows]
PostPosted: Sun Mar 11, 2012 6:47 am 
Offline
Addict
Addict

Joined: Sun Apr 12, 2009 6:27 am
Posts: 1476
Tested with XP x86 - Win 7 x86

Code:

cur = LoadCursor_(0, #IDC_HAND)

OpenWindow(0, 0, 0, 640, 480, "",#PB_Window_SystemMenu |#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
  SetWindowColor(0, #White)
 
  Length = ?mail00008_gif_end - ?mail00008_gif_start
  Filename$ = GetHomeDirectory() + "AnimGIF.gif"
 
  CreateFile(0, Filename$)
  WriteData(0, ?mail00008_gif_start, Length)
  CloseFile(0) 
   
  ButtonGadget(0,10,10,100,30,"Quit")
  ContainerGadget(1,10,50,40,40,#PB_Container_Flat)
  WebGadget(2,-8,-10,70,70,Filename$)
  CloseGadgetList()
 
  DisableGadget(2,1)

Repeat
    EventID=WaitWindowEvent()
   
    Select EventID
       
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            EventID = #PB_Event_CloseWindow
        EndSelect
       
       
      Case #WM_MOUSEMOVE
              GetCursorPos_ (@p.POINT)
              ScreenToClient_ (WindowID(0), @p)             
              Select ChildWindowFromPoint_ (WindowID(0), p\y<< 32+p\x)
                 Case GadgetID(1)
                     SetCursor_(Cur)
              EndSelect
             
      Case #WM_LBUTTONDOWN
            If ChildWindowFromPoint_ (WindowID(0), p\y<< 32+p\x) = GadgetID(1)
               Debug "Left Button Clicked"
            EndIf         

       
    EndSelect
   
Until EventID = #PB_Event_CloseWindow
DeleteFile(Filename$)


DataSection
  mail00008_gif_start:
    ; size : 6436 bytes
    Data.q $001F613938464947,$0000000000F7001F,$8080008000000080,$0080008080000000,$C0DCC0C0C0C08080
    Data.q $0000540000F0C8A4,$00542400002400A8,$004800FF2400A824,$4800A84800544800,$00546C00006C00FF
    Data.q $009000FF6C00A86C,$9000A89000549000,$0054B40000B400FF,$00D800FFB400A8B4,$D800A8D80054D800
    Data.q $24A8FF0054FF00FF,$A800245400240000,$2424002424FF0024,$24FF2424A8242454,$A848245448240048
    Data.q $6C24006C24FF4824,$24FF6C24A86C2454,$A890245490240090,$B42400B424FF9024,$24FFB424A8B42454
    Data.q $A8D82454D82400D8,$FF2400FF24FFD824,$48FFFF24A8FF2454,$A800485400480000,$2448002448FF0048
    Data.q $48FF2448A8244854,$A848485448480048,$6C48006C48FF4848,$48FF6C48A86C4854,$A890485490480090
    Data.q $B44800B448FF9048,$48FFB448A8B44854,$A8D84854D84800D8,$FF4800FF48FFD848,$6CFFFF48A8FF4854
    Data.q $A8006C54006C0000,$246C00246CFF006C,$6CFF246CA8246C54,$A8486C54486C0048,$6C6C006C6CFF486C
    Data.q $6CFF6C6CA86C6C54,$A8906C54906C0090,$B46C00B46CFF906C,$6CFFB46CA8B46C54,$A8D86C54D86C00D8
    Data.q $FF6C00FF6CFFD86C,$90FFFF6CA8FF6C54,$A800905400900000,$2490002490FF0090,$90FF2490A8249054
    Data.q $A848905448900048,$6C90006C90FF4890,$90FF6C90A86C9054,$A890905490900090,$B49000B490FF9090
    Data.q $90FFB490A8B49054,$A8D89054D89000D8,$FF9000FF90FFD890,$B4FFFF90A8FF9054,$A800B45400B40000
    Data.q $24B40024B4FF00B4,$B4FF24B4A824B454,$A848B45448B40048,$6CB4006CB4FF48B4,$B4FF6CB4A86CB454
    Data.q $A890B45490B40090,$B4B400B4B4FF90B4,$B4FFB4B4A8B4B454,$A8D8B454D8B400D8,$FFB400FFB4FFD8B4
    Data.q $D8FFFFB4A8FFB454,$A800D85400D80000,$24D80024D8FF00D8,$D8FF24D8A824D854,$A848D85448D80048
    Data.q $6CD8006CD8FF48D8,$D8FF6CD8A86CD854,$A890D85490D80090,$B4D800B4D8FF90D8,$D8FFB4D8A8B4D854
    Data.q $A8D8D854D8D800D8,$FFD800FFD8FFD8D8,$FFFFFFD8A8FFD854,$0024FFA800FF5400,$24FFA824FF5424FF
    Data.q $FF5448FF0048FFFF,$006CFFFF48FFA848,$6CFFA86CFF546CFF,$FF5490FF0090FFFF,$808080A4A0A0F0FB
    Data.q $FFFF00FF000000FF,$00FF00FFFF000000,$0BFF21FFFFFFFFFF,$455041435354454E,$0000000103302E32
    Data.q $746165724319FE21,$2068746977206465,$454E4F20656B6154,$04F92100352E3320,$00002C0000000809
    Data.q $0807001F001F0000,$A0B0481C080100F2,$10B85C2A130883C1,$87443218E97CBE5D,$4C1A250E8BC58CCE
    Data.q $A90D170019A2E677,$3E6A74C0A34E8749,$E88D3E5CC8633422,$33C4E232C84CA90C,$416671585496591A
    Data.q $A0D1584500CD049B,$46A3340A49118B4B,$4A5D3DD1029F3A61,$F492A11BAB482772,$127B04AC1AAAD149
    Data.q $C1418A00286E9734,$6682B99D304A9C0E,$B0A29D10797D06C8,$586A143A94148CE9,$ED54BBA5EED1039C
    Data.q $D03B7B9AF7659F5A,$AABE12A533A8E18C,$ADEA075599CF2A94,$46854FAE41AFD20C,$4F4DA5E7B19169DD
    Data.q $098B6129F14C2452,$95E9E978FCEC9A8B,$58A2529866A721B5,$F4532CF4F64D1785,$7C7C77178BA1006C
    Data.q $4E9F4B9B6687C930,$0904F92100407ABD,$0000002C00000008,$FF0807001F001F00,$C1A0B0481C080100
    Data.q $1F30C85C2A130883,$C6A353A21D10863A,$883441F2E83319CC,$321E3F208F999D0E,$248CE80046E34E94
    Data.q $D31B74A1D1486434,$1094C42492D854A9,$45442790B87A2A59,$BA23F19844F54CA7,$24D079F2AA594774
    Data.q $8E64522E050E3341,$C9F4620D449B22A7,$1D861130964998D2,$8D4C86B0D82095B8,$9766A4198016B835
    Data.q $4743532132F43539,$82D3915749E5E2CD,$CB2D178B25C30066,$6C76FAE476C98184,$B02C5D3E332BB6CB
    Data.q $0BDDE2071DC742E6,$33A63B6B83D326A0,$1F13577CA1A5967A,$3B92C6C9A90E9CFC,$0AB04D3210A45A9B
    Data.q $82EF60BB6ABCD33F,$49F4DC0DD46D0D3A,$10E6645A1A0FA300,$48A8A99B46F985F1,$5893E607C7D8CB0D
    Data.q $038BC3E0EFF67B72,$0904F9210010184F,$0000002C00000008,$FF0807001F001F00,$C1A0B0481C080100
    Data.q $A1B0C85C2A130883,$267333A5D2660043,$08C21A0B0F743A22,$DA990C87451990C0,$9D0D067CC8401198
    Data.q $512286C714CAA432,$0D972AD8CC75341E,$9FA998D0797AA955,$B29950A9C4B618C6,$554AB5341A78CA65
    Data.q $D178F44DD0878D3A,$68ECC94D3F82D2A8,$33A596AA533A2368,$0E9CCA84D3E8EE97,$D149A44A114AAAEC
    Data.q $2FACC2282C67CB19,$8931A6B4F7CCF94D,$3994D6084B1DCD73,$99546534629D4D81,$4C7995EA6767AB44
    Data.q $5632A98EC6943A2F,$C32956CA836468D5,$A54ECA55002A556C,$313563C273975B93,$17B4DE8019765D1A
    Data.q $9B802933F855227F,$32E2573A6AAA2EC7,$B91BFB158209579D,$CA7555F1974D9D39,$87CE3A754FA042D4
    Data.q $52BA59496322D0CE,$2F2EAE61D4F84CF4,$766531D4F52C348B,$E4DF95508CFCD2EF,$4335B3E837D27504
    Data.q $B10E7553A5DD6A95,$815444A93F409FB4,$82288A2188B575F4,$6A85C6644C8642DF,$D171990549524228
    Data.q $962488E228721387,$080904F921001014,$000000002C000000,$00FF0807001F001F,$83C1A0B0481C0801
    Data.q $43A1B0C85C2A1308,$88CC6632290C8B00,$CA653AAA0B0F6532,$889219148A74AA94,$CB1D4F1D63A9A331
    Data.q $AA1F258BCB954007,$6D0374BA194CB652,$179A31A1EC69DBE6,$743A1F314814B18D,$39A0AE8A3CC21D3D
    Data.q $E98E67CC2A6347A3,$F3691B9A3AAA8E51,$BB1C528F3BAA4358,$3B1AA90BA1D15CD3,$29D137B3B1D8CF9A
    Data.q $8ACAA8D86D33874B,$4684DA2856D745AE,$BF532A1307CD3DCD,$5F26D779E522ED4D,$E56E6BA60618E69D
    Data.q $794C264A91989DDD,$8AFD42F98EA33A59,$4D7F2D3BBEDB3419,$DAF7ACC131EE97C7,$4CE99DDFAADA48BC
    Data.q $50C05FF74CB63BE5,$B631EC6CBBA39B61,$EB1F34EC8CDED90D,$DD3CED631A174974,$0E986DD6D9738232
    Data.q $7C2AFA2930EC4D26,$02331B8BCD60765B,$4487434F54D14938,$8697C7A05EAF721E,$AE40FEBD135FE8CC
    Data.q $18160480E027F96D,$00080904F9210010,$1F000000002C0000,$0100FF0807001F00,$0883C1A0B0481C08
    Data.q $454361B0C85C2A13,$41E1D1053C4622A6,$916CA6532D951863,$124744122CA643A2,$96329D4CF98C3E5D
    Data.q $34C5D0E974C0E44F,$0A5D247331D4CE67,$7CF9434CE62CB74C,$387CBA671327CCEA,$98B9A492E4339A4B
    Data.q $5310C8A55471D144,$1151AA0D11F35191,$B41655129AE8533A,$674589D367433A24,$64924540B4512BF4
    Data.q $8A8F32A7A9DD14E9,$4B5153B2AF92498C,$AA742A9F366935CA,$995261D577CB99D2,$60ECF3053BE54D25
    Data.q $6D75E74622BF84B6,$72EB54C26AA698C9,$E992AE23409251EB,$6D190EA6A3D9AA12,$92B196C2D6A8F44D
    Data.q $6F5AA1CC66749A24,$009D3198EC7C5C9B,$E446E38AAA249B4E,$6354CAA55D4B0327,$98EC6654714CC697
    Data.q $188F097E05C8EBD5,$000203C8F3F9BCBE,$000000080904F921,$1F001F000000002C,$1C080100C2080700
    Data.q $2A130883C1A0B048,$20A65543A1B0C85C,$18534261CA643A2A,$8445996CA633194D,$C99F2E865B99D2E8
    Data.q $1CCE874C8A43078F,$52C74CB5D106943A,$67CB2A652582CC26,$5486792E7CC0E6F3,$165F219A4EA073E6
    Data.q $874B74CCA652A005,$3D935025951A4526,$9BD658D347CD267D,$D42792673329F2E9,$2D14474B9A6B39A2
    Data.q $F2E734F2615FA456,$8B3C9AB956A2D2A9,$46027D77B257A436,$1A4B3AB5D32975CA,$F942A762EB135976
    Data.q $4B8F3E6CAC7934FA,$CC2A956A6CDB1D8D,$E190DA443688CD4B,$2100080C1F53A8D3,$2C000000080904F9
    Data.q $001F001F00000000,$481C080100FE0807,$5C2A130883C1A0B0,$9914864343A1B0C8,$23088729954A655A
    Data.q $C66329D54CA6321E,$63C5954AB82C622E,$40E46E895BA1CCE6,$2633174471F2F943,$2E974B99F3029748
    Data.q $A9C4AE62E694BA5F,$74B668E99FD0A793,$1A7A8A92A1D0CE89,$4CC763A1A9B38A4D,$8A95CF2994AA54A9
    Data.q $A64F596E89FBA1F2,$592C52B653A6B52B,$9D35B964B10D30A6,$D34B1A1DD08A74CB,$BAFDCAF34C98D267
    Data.q $F5CAE4F99739AFF2,$D29B8991D0EDD3A9,$D110975898F42954,$E891E5F0B3E96299,$535C2C793C2E0E24
    Data.q $646C768B6DB6FF9B,$26962BCD72AB7DB2,$135C6D066B309C4F,$E63EAAFB1D8E8027,$CB1A6B5843AAA2BB
    Data.q $1BA2CB6346801BE7,$20A64340B9ACA553,$0191F7BBBDCEB442,$00080904F9210001,$1F000000002C0000
    Data.q $0100FF0807001F00,$0883C1A0B0481C08,$654361B0C85C2A13,$2190C8B4331996CA,$54CA743459970887
    Data.q $71853A9954AA53BE,$18848E46C75331A0,$34B1D0F900496591,$7A312D993A18D025,$D2E881BE59531744
    Data.q $31A231A31447CB2D,$8731A6537A2411D1,$D594D216532D0D37,$9D13274C3A9337A1,$53CA649D8EC6AFB1
    Data.q $2654F66CF9734369,$3571D2E6733A1974,$12F177A6B2A6F0BB,$B2C7B7C36DCE663D,$1E745FE9965BC51E
    Data.q $B962AB1419B509F3,$D7AF3729B399D367,$682E66560E1B4DA6,$15DB3CFE839F7CDE,$3875DEEF8CB9B1AD
    Data.q $6D72E7A7B2C42595,$73388A55606ACF98,$9353962AB0F98C65,$03D1DC2930CAD662,$826766FC5E464A91
    Data.q $C0EF3AF8C5A2898C,$9955FB051B038CBB,$797B231EBF937CC0,$7D3FC569952AD4D2,$D50C663319D94009
    Data.q $26CA9AFB22F2155E,$01FFFFBFBFCFBFDA,$00080904F9210001,$1F000000002C0000,$0100FF0807001F00
    Data.q $0883C1A0B0481C08,$7CC321B0C85C2A13,$439D0E974C48CCE6,$224868D21914E984,$4E881C5D0C877480
    Data.q $67CC124486532A95,$34C994E886CA9548,$1A1CA64329DD1079,$173453BE6133B9DB,$AA533E61515654C6
    Data.q $7432996E985A9D4E,$CAE38F974299D0C6,$AA0E88AB2E172763,$D24552AD4D105339,$CAEB99970AA02994
    Data.q $52AA0748635769F6,$C9F2F963452154E6,$8D318159ACD6E74C,$00634F2F35BBB31D,$BB4F1CD39A429EBA
    Data.q $DBF253B7CDE18EE9,$B0D466553A3F7053,$6CB98E726515C7E1,$8534F22AC6C15199,$75A739A5ADD3AF97
    Data.q $A5D0C763B2EF560A,$F37B63D1B4DA4C3B,$3255EA6654DA9D9E,$96551F327DCBE67D,$6CA4CE963B2B8B15
    Data.q $79C86B35539D8E84,$DDC449E514AB553E,$FB1DCD0AE4E8A133,$2D573184DD7450BB,$E34783E232B9485D
    Data.q $64B341A73E0BF436,$08A8148A29D4745D,$292C409234A0E941,$4A4E84486A1A86B2,$A855795E55D4160B
    Data.q $00405068761C86E1,$000000080904F921,$1F001F000000002C,$1C080100FF080700,$2A130883C1A0B048
    Data.q $0110863A5D10985C,$138B1A8CC66743A0,$8AC763A867441A23,$3A2051A7CBA08D15,$9CC4684219168A45
    Data.q $D1D88BA219288E46,$A532ADD10B924454,$53A61533844E208A,$9A46664521A1D364,$273D9E42696F9839
    Data.q $049FBA4012B43BA2,$9347627455353E1F,$C990F1D84CBA0D4D,$EAAF982D2A074774,$571B6B9A048A8EC1
    Data.q $553532B503A73A6D,$6D66C356B75B5F35,$8EDD688959914AA8,$E9728F4228304A1C,$E6BEC9E158DB6E36
    Data.q $4550B2B1C9357DCC,$6033867BBBA61D2B,$EBD71BBD990D06BD,$D85B65E20946A4DD,$E91E8DF34B89D4AC
    Data.q $3C2EAD25BE21E119,$D650F9846A22336A,$9306C061B9309E0D,$222341A2A86BFC6A,$AC7622F17EAC7399
    Data.q $B99E091B0AA747DA,$21000407D3E8F3F9,$2C000000080904F9,$001F001F00000000,$481C080100FF0807
    Data.q $5C2A130883C1A0B0,$A2190C7CC39F3098,$0C6735198CC4674B,$1674BA60D11743A1,$8EC7235244319A07
    Data.q $C9D1523434262600,$63B309721A572F88,$CE97CCBE5F0B8849,$333429CC865521A0,$2C0A70E98BC6E4D0
    Data.q $027B1AA5D120D319,$950A9FD1684E8998,$4565BA2A12A35002,$8249A6305AD2194D,$5A29AA65340E3F33
    Data.q $94D2F7CD42D486B4,$11B33568CD094322,$BA9426F133A94BAD,$229A6727A0D99CD4,$2D0D2F653A6D14EC
    Data.q $2971AD42EEF53BEA,$563342E4B3DA0D4F,$7332B2B7C743A6B7,$602054F8429AD942,$D55944399AE31074
    Data.q $57C904108D04B221,$381DB954AAD8C6E7,$0C1F8B09C15DE15C,$910E86866EA0DB8C,$53284574A57CF8EC
    Data.q $AEECCD0D5D2826B6,$736F9DED9C1254CD,$BDBE0E568F471394,$F921000203F0F7FB,$002C000000080904
    Data.q $07001F001F000000,$B0481C080100FF08,$A85C2A130883C1A0,$343218E6743A5D10,$290C8633199D0E84
    Data.q $04E843C660D127CA,$028EC854D1943C62,$97A9A0AE955A990D,$B294CA7894725EAA,$554AA653198D2E93
    Data.q $3449D41671406547,$A65BA156CA9D42E2,$9BE58D4493C0A5AC,$A274C76353281099,$B1528E29914E97CB
    Data.q $5BA8BA2CACB83D0A,$AA399CD407CCDE5F,$B1AB0A674D015708,$D8F53ADAAAACE974,$340B2B2A6F40854D
    Data.q $58453ADF7C63545F,$3CEB0D85A6002756,$A2EF93855CDD1156,$30C6CAC419783B65,$59A254F337B6329F
    Data.q $B2C87210B63BE6F9,$5E6DCC77465AA4CB,$DF33AC932A610B87,$D3D84E2ED915BB59,$2655E77D41CAE664
    Data.q $34594F15DE4A9571,$02B2C79770EF1157,$33BE55219D2868C8,$A3D298DB9C973E06,$DA3312BDCF31CD58
    Data.q $A3B3DA05554D3589,$0A7534C205634546,$80C8A77104AFC4EE,$94606A45D19449F9,$0D6A9534112875D1
    Data.q $1014761484E12846,$0000080904F92100,$001F000000002C00,$080100FF0807001F,$130883C1A0B0481C
    Data.q $0C63B190D0B85C2A,$65B194EAA53A2A17,$B1A0D1165A190C8A,$A34A67432994C687,$AE891C0E3ACA55A2
    Data.q $6532A996006332A5,$339A472A94AA98CA,$B65540914ADD2E97,$D2F96340E78E996C,$3D7450E1938A4BA1
    Data.q $AAD55CCF90054597,$CDE1EE8A94B69F1D,$AA4E87350EB34A9E,$70BA6BE69123A439,$99E5825CF9B4D929
    Data.q $1D0E974AA1C26D8E,$A2B51153D163EF99,$A18196D228783BE3,$89745C70CC6BA61A,$6564D8F679EDC71F
    Data.q $D3EC18FCDBE63B3D,$DD3567462732C674,$F11C8636F3839E32,$AD25D6472EABEBA3,$15D6A4CA65E36692
    Data.q $0F370B883A196CB9,$0CC663B1E6EAAE16,$03D66129D3096CD5,$825235D488ED8327,$4AE7D4A91607459D
    Data.q $1B89BC2A779B75DF,$6D76B6ED2FDE40B3,$24AA42ABE2F1400A,$291487454D7E0A68,$05FDD746A0BF3F12
    Data.q $0010142A0480E028,$000000080904F921,$1F001F000000002C,$1C080100ED080700,$2A130883C1A0B048
    Data.q $4D0986A1A050C85C,$8B652A956A653319,$653A195058843D14,$29D54867CB19F320,$A5AE87CCA9F3058E
    Data.q $2E974C12513063B9,$28DB1DD12D973A5F,$53A23D2A96B99D33,$AE73349640A64E99,$9F2A9A3A26F46954
    Data.q $1E74CB68D4F453A6,$9CD35F31AA931DF3,$D0E9F5696D4E893E,$A9D659BA1E58E6A1,$EF9B2D910D516539
    Data.q $C0051A6C86964DA7,$ADF6AD6C4355E952,$16CF52BDBA2E54E9,$F787C04AEFB74AAE,$91CBA19CD3F74546
    Data.q $6332CCC46BED0251,$5A70D4FCA5A6CB98,$A738895D0E812BC9,$16991B1A5199B3E2,$EAB802F7A063B1A9
    Data.q $5AAA2800DD44D0FA,$5E09C0CBB2D97165,$030BE7F3B9BC9E5E,$00080904F9210002,$1F000000002C0000
    Data.q $0100C40807001F00,$0883C1A0B0481C08,$5343A1B0C85C2A13,$C394CA689B1956AA,$1D0CA633E5F26684
    Data.q $F1E6341E2EE87CBA,$692C1A451E74BA23,$F49E0B2A74C95CCE,$D2690498B1A3D288,$5CF992C0E70F9904
    Data.q $2097C0A7CE674B1A,$903A5F33AA34F65D,$52E4F2E973A29930,$4014692CD650E99F,$F53A25764F20934B
    Data.q $8ABCCE9D28B1D863,$CD1A4325A0B9A893,$7AD266AECA24F5AA,$A726231199546B3C,$5D8DC6D9727A9516
    Data.q $C54FAA35AA253DCD,$5670B1D9F60E4F81,$6399B6346AF0C763,$A860057741A08AD7,$6D5EAB53A3D2E9B4
    Data.q $080904F921002030,$000000002C000000,$00FF0807001F001F,$83C1A0B0481C0801,$2994D0985C2A1308
    Data.q $94E67332AA071086,$CA6834454F178731,$B6548A42CA534790,$53A1D1235532E091,$E40125733A596E96
    Data.q $D1337329A6AC699B,$C79FB9A77319DBA5,$92CF1F2E8953A400,$CE9CCE8A1CAA7345,$1F2A68B39A6F257C
    Data.q $35699C6E87339551,$B74516AD4FA32A9D,$64FEAEA7952AA551,$EACF4353D0E2330A,$973BA1C6EAD56A24
    Data.q $55AB50E4B58A7512,$5350D5548A2E0AC5,$BA6CF6EA3D2E993A,$9D110C662B10E9B4,$D2AAC5C9F3699C2A
    Data.q $663D16C10E742AEF,$A57AA70EA459196E,$9E1D3A98B198EE6B,$F92A2319996CB63A,$73ACC0A9B49B2BA6
    Data.q $95EE6B538A9446B5,$EEA97AFBDDFA82E8,$58FD49AF498F3598,$BAE633280131D7BE,$F4127401D9D7756A
    Data.q $8FC5E187F9A1CA78,$03EDF7FBBDBE9437,$00080904F9210002,$1F000000002C0000,$0100FF0807001F00
    Data.q $0883C1A0B0481C08,$433E5950A85C2A13,$118CC8674002230C,$A1F05894690D0F33,$D24633E6351A5329
    Data.q $6552AD55028E2AD8,$3C95CCF98149D4CC,$1196AA65CD9951C6,$D112654D9D0F97CC,$3198C1A84E97CBA1
    Data.q $65B2A84CB74C49CD,$BA5D0E69E4FA2710,$954A77CD0E851174,$50B9A3E5D342ADD6,$CAFCF2853F7CD6D9
    Data.q $231E793D63431F33,$A2C50CB6DB6B5449,$D16AB3D5A6D57655,$5AC25598F5773431,$C5399D379BB5B5CD
    Data.q $E0A7B70A159ACD6A,$F273CB5606BF4385,$D3DCD55D97448565,$691E118EE9ACCF33,$1E1A870CA04FF239
    Data.q $1AEB4192496D595A,$24AA6329A9F8BA9A,$8A9F21D14CA9F5C2,$85D0F5E8A55229D0,$D658DB7A3D2B4770
    Data.q $6A911DBF5264C6C7,$1F032F2E7F05EB4F,$54A760C69B2A9951,$314D1F7CC7383EC5,$6128E65CD8D0253F
    Data.q $F98DC7E428A4546A,$E068160143DC340D,$F9210010141E0881,$002C000000080904,$07001F001F000000
    Data.q $B0481C080100FF08,$A85C2A130883C1A0,$CC3218E874BA1F30,$A48C66452290CF97,$2C86533A20F128AB
    Data.q $1F81C750D0E81C62,$96C7E0B26552AD4D,$39A1334532A9D312,$A690B6331A531290,$3029AB1994CA862A
    Data.q $7533E678C77340A2,$400278CBA0BA616A,$CDD0C79DC6E1F217,$4F37A6CEE930A534,$2B8FA99973B8A4D1
    Data.q $9BD4D8EC7A4BA613,$3A67EAA653A2A74C,$5954165BA212CBB1,$3359954EE94C74BA,$B74B9AA17B845725
    Data.q $3CEDCD5CC339A793,$CA6729745798D07C,$1B06CA31E3F879A5,$0255D070793B231B,$BEE62779684EA269
    Data.q $E82C576635ADF353,$AEB5AC8D79F35ED0,$949CC506E70BC240,$1B1219CC00ADE626,$8600CC86CC5F195C
    Data.q $2A608A43BA58D418,$15D0334861ECABEC,$A14176F8096D4251,$50D4D0DDB4499543,$554A6BAC33CB06F3
    Data.q $169555D63BD9BD5E,$7FD332290CED21E1,$14894549DF94B88A,$7F4BA0847119199D,$E168561483D4662D
    Data.q $04F9210004050985,$00002C0000000809,$0807001F001F0000,$A0B0481C080100F9,$30B85C2A130883C1
    Data.q $974C3218E8743A5F,$8198D46A331990CE,$9A2D16333A20D128,$D0008EC462F17001,$1D9341E468A453A5
    Data.q $8FC4A370C4321A21,$C7A692B85BA66B2E,$A2EF984CECCD0493,$F3981C3E77387CC1,$087CE691058B3A20
    Data.q $5D362105A7C288D4,$9A0933ACD008D03A,$154F8455ABF598FB,$66B1D35D2E67CC0D,$94D361F038D3A213
    Data.q $3E5D1029F5CA535F,$EDB03BDD65F37DBE,$174B459E092AB5D0,$D82DE6F32A825480,$AC72232EA2BE6053
    Data.q $F6846774DE2C30DB,$EA6A43412EF40C3D,$93A65FAED02C1442,$D340A508B453A207,$CD73D579B6DB5105
    Data.q $F790AB5219151ED8,$F29DB4C299BE99CD,$08A4C7811A92C6A2,$4F6BB3D8EBF335F1
    Data.b $18,$10,$00,$3B
  mail00008_gif_end:
EndDataSection




Edit :Modified to disable the Web Gadget to not to respond to the Mouse Right Click

_________________
Egypt my love

Top
 Profile  
 
oryaaaaa
 Post subject: Re: Animated GIF Gadget - Another approach [Windows]
PostPosted: Sun Mar 11, 2012 10:46 am 
Offline
Enthusiast
Enthusiast
User avatar

Joined: Mon Jan 12, 2004 11:40 pm
Posts: 671
Location: Okazaki, JAPAN
Very nice :D
I did this tips at 2004 summer.

code snippets from 2004 summer ( didn't on ie6/7/8/9/+ )
Code:
Procedure WebAnimeSet(no.w)
  For ii=1 To  SkinLData("Index", SkinIndex("AnimeGIF"))
    animgif$=SkinLTxt("Image1", SkinIndex("AnimeGIF"+Str(ii)))
    url$="about:<html><body scroll='no' leftmargin='0' topmargin='0'><img src='"+animgif$+"'></img></body></html>"
    WebGadget(no+ii,SkinLData("PosX", SkinIndex("AnimeGIF"+Str(ii))), SkinLData("PosY", SkinIndex("AnimeGIF"+Str(ii))), SkinLData("Width", SkinIndex("AnimeGIF"+Str(ii))), SkinLData("Height", SkinIndex("AnimeGIF"+Str(ii))), url$)
  Next
  WebGadgetID=no
EndProcedure

Procedure WebAnimeChange(no.b)
  If SkinLData("Index", SkinIndex("AnimeGIF"))>0
    For ii=1 To  SkinLData("Index", SkinIndex("AnimeGIF"))
      animgif$=SkinLTxt("Image"+Str(no), SkinIndex("AnimeGIF"+Str(ii)))
      url$="about:<html><body scroll='no' leftmargin='0' topmargin='0'><img src='"+animgif$+"'></img></body></html>"
      SetGadgetText(WebGadgetID+ii,url$)
    Next
  EndIf
EndProcedure

Procedure WebAnimeClose()
  If SkinLData("Index", SkinIndex("AnimeGIF"))>0
    For ii=1 To  SkinLData("Index", SkinIndex("AnimeGIF"))
      FreeGadget(WebGadgetID+ii)
    Next
  EndIf
EndProcedure

Procedure Text2WebSet(no.b, name.s)
  If SkinLTxt("Image1", SkinIndex(name))<>""
  GIFPath$ = Space(1000)
  GetModuleFileName_(0,@GIFPath$,1000)
  animgif$=Chr(34)+GetPathPart(GIFPath$)+SkinLTxt("Image1", SkinIndex(name))+Chr(34)
  Debug animgif$
  url$="about:<html><body scroll='no' leftmargin='0' topmargin='0' background="+animgif$+"></body></html>"
  WebGadget(no,SkinLData("PosX", SkinIndex(name)), SkinLData("PosY", SkinIndex(name)), SkinLData("Width", SkinIndex(name)), SkinLData("Height", SkinIndex(name)), url$)
  EndIf
EndProcedure

Procedure Text2WebChange(no.b, name.s, txt.s, Center.b)
  If SkinLTxt("Image1", SkinIndex(name))<>""
   GIFPath$ = Space(1000)
  GetModuleFileName_(0,@GIFPath$,1000)
  animgif$=Chr(34)+GetPathPart(GIFPath$)+SkinLTxt("Image1", SkinIndex(name))+Chr(34)
  TColor$=Chr(34)+"#"+RSet(Hex(SkinLData("ForegroundR", SkinIndex(name))), 2, "0")+RSet(Hex(SkinLData("ForegroundG", SkinIndex(name))), 2, "0")+RSet(Hex(SkinLData("ForegroundB", SkinIndex(name))), 2, "0")+Chr(34)
  Debug TColor$
  If Center.b=1
    TText$="<Center>"+txt.s+"</Center>"
  Else
    TText$=txt.s
  EndIf
  url$="about:<html><body scroll='no' leftmargin='0' topmargin='0' background="+animgif$+" text="+TColor$+"><BASEFONT SIZE="+Chr(34)+"2"+Chr(34)+">"+TText$+"</body></html>"
  Debug url$
  SetGadgetText(no, url$)
EndIf
EndProcedure

_________________
My general site & PureBasic Forum in Japan
My facebook page, The friend is being recruited.

Top
 Profile  
 
RASHAD
 Post subject: Re: Animated GIF Gadget - Another approach [Windows]
PostPosted: Sun Mar 11, 2012 11:31 am 
Offline
Addict
Addict

Joined: Sun Apr 12, 2009 6:27 am
Posts: 1476
Thanks oryaaaaa
I will take a deep look into your code later
Looks interesting

Next is the 2 version

Code:

cur = LoadCursor_(0, #IDC_HAND)

OpenWindow(0, 0, 0, 640, 480, "",#PB_Window_SystemMenu |#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
  SetWindowColor(0, #White)
 
  Length = ?mail00008_gif_end - ?mail00008_gif_start
  Filename$ = GetHomeDirectory() + "AnimGIF.gif"
 
  CreateFile(0, Filename$)
  WriteData(0, ?mail00008_gif_start, Length)
  CloseFile(0) 
   
  ButtonGadget(0,10,10,100,30,"Quit")
  ContainerGadget(1,12,50,24,30,#PB_Container_BorderLess)
  WebGadget(2,-14,-14,60,60,Filename$)
  CloseGadgetList()
  SetClassLong_(GadgetID(1), #GCL_HCURSOR, cur)
  DisableGadget(2,1)
 
Repeat
    EventID=WaitWindowEvent()
   
    Select EventID
       
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            EventID = #PB_Event_CloseWindow
        EndSelect
             
      Case #WM_LBUTTONDOWN
            GetCursorPos_ (@p.POINT)
            ScreenToClient_ (WindowID(0), @p)
            If ChildWindowFromPoint_ (WindowID(0), p\y<< 32+p\x) = GadgetID(1)
               Debug "Left Button Clicked"
            EndIf
       
    EndSelect
   
Until EventID = #PB_Event_CloseWindow
DeleteFile(Filename$)


DataSection
  mail00008_gif_start:
    ; size : 6436 bytes
    Data.q $001F613938464947,$0000000000F7001F,$8080008000000080,$0080008080000000,$C0DCC0C0C0C08080
    Data.q $0000540000F0C8A4,$00542400002400A8,$004800FF2400A824,$4800A84800544800,$00546C00006C00FF
    Data.q $009000FF6C00A86C,$9000A89000549000,$0054B40000B400FF,$00D800FFB400A8B4,$D800A8D80054D800
    Data.q $24A8FF0054FF00FF,$A800245400240000,$2424002424FF0024,$24FF2424A8242454,$A848245448240048
    Data.q $6C24006C24FF4824,$24FF6C24A86C2454,$A890245490240090,$B42400B424FF9024,$24FFB424A8B42454
    Data.q $A8D82454D82400D8,$FF2400FF24FFD824,$48FFFF24A8FF2454,$A800485400480000,$2448002448FF0048
    Data.q $48FF2448A8244854,$A848485448480048,$6C48006C48FF4848,$48FF6C48A86C4854,$A890485490480090
    Data.q $B44800B448FF9048,$48FFB448A8B44854,$A8D84854D84800D8,$FF4800FF48FFD848,$6CFFFF48A8FF4854
    Data.q $A8006C54006C0000,$246C00246CFF006C,$6CFF246CA8246C54,$A8486C54486C0048,$6C6C006C6CFF486C
    Data.q $6CFF6C6CA86C6C54,$A8906C54906C0090,$B46C00B46CFF906C,$6CFFB46CA8B46C54,$A8D86C54D86C00D8
    Data.q $FF6C00FF6CFFD86C,$90FFFF6CA8FF6C54,$A800905400900000,$2490002490FF0090,$90FF2490A8249054
    Data.q $A848905448900048,$6C90006C90FF4890,$90FF6C90A86C9054,$A890905490900090,$B49000B490FF9090
    Data.q $90FFB490A8B49054,$A8D89054D89000D8,$FF9000FF90FFD890,$B4FFFF90A8FF9054,$A800B45400B40000
    Data.q $24B40024B4FF00B4,$B4FF24B4A824B454,$A848B45448B40048,$6CB4006CB4FF48B4,$B4FF6CB4A86CB454
    Data.q $A890B45490B40090,$B4B400B4B4FF90B4,$B4FFB4B4A8B4B454,$A8D8B454D8B400D8,$FFB400FFB4FFD8B4
    Data.q $D8FFFFB4A8FFB454,$A800D85400D80000,$24D80024D8FF00D8,$D8FF24D8A824D854,$A848D85448D80048
    Data.q $6CD8006CD8FF48D8,$D8FF6CD8A86CD854,$A890D85490D80090,$B4D800B4D8FF90D8,$D8FFB4D8A8B4D854
    Data.q $A8D8D854D8D800D8,$FFD800FFD8FFD8D8,$FFFFFFD8A8FFD854,$0024FFA800FF5400,$24FFA824FF5424FF
    Data.q $FF5448FF0048FFFF,$006CFFFF48FFA848,$6CFFA86CFF546CFF,$FF5490FF0090FFFF,$808080A4A0A0F0FB
    Data.q $FFFF00FF000000FF,$00FF00FFFF000000,$0BFF21FFFFFFFFFF,$455041435354454E,$0000000103302E32
    Data.q $746165724319FE21,$2068746977206465,$454E4F20656B6154,$04F92100352E3320,$00002C0000000809
    Data.q $0807001F001F0000,$A0B0481C080100F2,$10B85C2A130883C1,$87443218E97CBE5D,$4C1A250E8BC58CCE
    Data.q $A90D170019A2E677,$3E6A74C0A34E8749,$E88D3E5CC8633422,$33C4E232C84CA90C,$416671585496591A
    Data.q $A0D1584500CD049B,$46A3340A49118B4B,$4A5D3DD1029F3A61,$F492A11BAB482772,$127B04AC1AAAD149
    Data.q $C1418A00286E9734,$6682B99D304A9C0E,$B0A29D10797D06C8,$586A143A94148CE9,$ED54BBA5EED1039C
    Data.q $D03B7B9AF7659F5A,$AABE12A533A8E18C,$ADEA075599CF2A94,$46854FAE41AFD20C,$4F4DA5E7B19169DD
    Data.q $098B6129F14C2452,$95E9E978FCEC9A8B,$58A2529866A721B5,$F4532CF4F64D1785,$7C7C77178BA1006C
    Data.q $4E9F4B9B6687C930,$0904F92100407ABD,$0000002C00000008,$FF0807001F001F00,$C1A0B0481C080100
    Data.q $1F30C85C2A130883,$C6A353A21D10863A,$883441F2E83319CC,$321E3F208F999D0E,$248CE80046E34E94
    Data.q $D31B74A1D1486434,$1094C42492D854A9,$45442790B87A2A59,$BA23F19844F54CA7,$24D079F2AA594774
    Data.q $8E64522E050E3341,$C9F4620D449B22A7,$1D861130964998D2,$8D4C86B0D82095B8,$9766A4198016B835
    Data.q $4743532132F43539,$82D3915749E5E2CD,$CB2D178B25C30066,$6C76FAE476C98184,$B02C5D3E332BB6CB
    Data.q $0BDDE2071DC742E6,$33A63B6B83D326A0,$1F13577CA1A5967A,$3B92C6C9A90E9CFC,$0AB04D3210A45A9B
    Data.q $82EF60BB6ABCD33F,$49F4DC0DD46D0D3A,$10E6645A1A0FA300,$48A8A99B46F985F1,$5893E607C7D8CB0D
    Data.q $038BC3E0EFF67B72,$0904F9210010184F,$0000002C00000008,$FF0807001F001F00,$C1A0B0481C080100
    Data.q $A1B0C85C2A130883,$267333A5D2660043,$08C21A0B0F743A22,$DA990C87451990C0,$9D0D067CC8401198
    Data.q $512286C714CAA432,$0D972AD8CC75341E,$9FA998D0797AA955,$B29950A9C4B618C6,$554AB5341A78CA65
    Data.q $D178F44DD0878D3A,$68ECC94D3F82D2A8,$33A596AA533A2368,$0E9CCA84D3E8EE97,$D149A44A114AAAEC
    Data.q $2FACC2282C67CB19,$8931A6B4F7CCF94D,$3994D6084B1DCD73,$99546534629D4D81,$4C7995EA6767AB44
    Data.q $5632A98EC6943A2F,$C32956CA836468D5,$A54ECA55002A556C,$313563C273975B93,$17B4DE8019765D1A
    Data.q $9B802933F855227F,$32E2573A6AAA2EC7,$B91BFB158209579D,$CA7555F1974D9D39,$87CE3A754FA042D4
    Data.q $52BA59496322D0CE,$2F2EAE61D4F84CF4,$766531D4F52C348B,$E4DF95508CFCD2EF,$4335B3E837D27504
    Data.q $B10E7553A5DD6A95,$815444A93F409FB4,$82288A2188B575F4,$6A85C6644C8642DF,$D171990549524228
    Data.q $962488E228721387,$080904F921001014,$000000002C000000,$00FF0807001F001F,$83C1A0B0481C0801
    Data.q $43A1B0C85C2A1308,$88CC6632290C8B00,$CA653AAA0B0F6532,$889219148A74AA94,$CB1D4F1D63A9A331
    Data.q $AA1F258BCB954007,$6D0374BA194CB652,$179A31A1EC69DBE6,$743A1F314814B18D,$39A0AE8A3CC21D3D
    Data.q $E98E67CC2A6347A3,$F3691B9A3AAA8E51,$BB1C528F3BAA4358,$3B1AA90BA1D15CD3,$29D137B3B1D8CF9A
    Data.q $8ACAA8D86D33874B,$4684DA2856D745AE,$BF532A1307CD3DCD,$5F26D779E522ED4D,$E56E6BA60618E69D
    Data.q $794C264A91989DDD,$8AFD42F98EA33A59,$4D7F2D3BBEDB3419,$DAF7ACC131EE97C7,$4CE99DDFAADA48BC
    Data.q $50C05FF74CB63BE5,$B631EC6CBBA39B61,$EB1F34EC8CDED90D,$DD3CED631A174974,$0E986DD6D9738232
    Data.q $7C2AFA2930EC4D26,$02331B8BCD60765B,$4487434F54D14938,$8697C7A05EAF721E,$AE40FEBD135FE8CC
    Data.q $18160480E027F96D,$00080904F9210010,$1F000000002C0000,$0100FF0807001F00,$0883C1A0B0481C08
    Data.q $454361B0C85C2A13,$41E1D1053C4622A6,$916CA6532D951863,$124744122CA643A2,$96329D4CF98C3E5D
    Data.q $34C5D0E974C0E44F,$0A5D247331D4CE67,$7CF9434CE62CB74C,$387CBA671327CCEA,$98B9A492E4339A4B
    Data.q $5310C8A55471D144,$1151AA0D11F35191,$B41655129AE8533A,$674589D367433A24,$64924540B4512BF4
    Data.q $8A8F32A7A9DD14E9,$4B5153B2AF92498C,$AA742A9F366935CA,$995261D577CB99D2,$60ECF3053BE54D25
    Data.q $6D75E74622BF84B6,$72EB54C26AA698C9,$E992AE23409251EB,$6D190EA6A3D9AA12,$92B196C2D6A8F44D
    Data.q $6F5AA1CC66749A24,$009D3198EC7C5C9B,$E446E38AAA249B4E,$6354CAA55D4B0327,$98EC6654714CC697
    Data.q $188F097E05C8EBD5,$000203C8F3F9BCBE,$000000080904F921,$1F001F000000002C,$1C080100C2080700
    Data.q $2A130883C1A0B048,$20A65543A1B0C85C,$18534261CA643A2A,$8445996CA633194D,$C99F2E865B99D2E8
    Data.q $1CCE874C8A43078F,$52C74CB5D106943A,$67CB2A652582CC26,$5486792E7CC0E6F3,$165F219A4EA073E6
    Data.q $874B74CCA652A005,$3D935025951A4526,$9BD658D347CD267D,$D42792673329F2E9,$2D14474B9A6B39A2
    Data.q $F2E734F2615FA456,$8B3C9AB956A2D2A9,$46027D77B257A436,$1A4B3AB5D32975CA,$F942A762EB135976
    Data.q $4B8F3E6CAC7934FA,$CC2A956A6CDB1D8D,$E190DA443688CD4B,$2100080C1F53A8D3,$2C000000080904F9
    Data.q $001F001F00000000,$481C080100FE0807,$5C2A130883C1A0B0,$9914864343A1B0C8,$23088729954A655A
    Data.q $C66329D54CA6321E,$63C5954AB82C622E,$40E46E895BA1CCE6,$2633174471F2F943,$2E974B99F3029748
    Data.q $A9C4AE62E694BA5F,$74B668E99FD0A793,$1A7A8A92A1D0CE89,$4CC763A1A9B38A4D,$8A95CF2994AA54A9
    Data.q $A64F596E89FBA1F2,$592C52B653A6B52B,$9D35B964B10D30A6,$D34B1A1DD08A74CB,$BAFDCAF34C98D267
    Data.q $F5CAE4F99739AFF2,$D29B8991D0EDD3A9,$D110975898F42954,$E891E5F0B3E96299,$535C2C793C2E0E24
    Data.q $646C768B6DB6FF9B,$26962BCD72AB7DB2,$135C6D066B309C4F,$E63EAAFB1D8E8027,$CB1A6B5843AAA2BB
    Data.q $1BA2CB6346801BE7,$20A64340B9ACA553,$0191F7BBBDCEB442,$00080904F9210001,$1F000000002C0000
    Data.q $0100FF0807001F00,$0883C1A0B0481C08,$654361B0C85C2A13,$2190C8B4331996CA,$54CA743459970887
    Data.q $71853A9954AA53BE,$18848E46C75331A0,$34B1D0F900496591,$7A312D993A18D025,$D2E881BE59531744
    Data.q $31A231A31447CB2D,$8731A6537A2411D1,$D594D216532D0D37,$9D13274C3A9337A1,$53CA649D8EC6AFB1
    Data.q $2654F66CF9734369,$3571D2E6733A1974,$12F177A6B2A6F0BB,$B2C7B7C36DCE663D,$1E745FE9965BC51E
    Data.q $B962AB1419B509F3,$D7AF3729B399D367,$682E66560E1B4DA6,$15DB3CFE839F7CDE,$3875DEEF8CB9B1AD
    Data.q $6D72E7A7B2C42595,$73388A55606ACF98,$9353962AB0F98C65,$03D1DC2930CAD662,$826766FC5E464A91
    Data.q $C0EF3AF8C5A2898C,$9955FB051B038CBB,$797B231EBF937CC0,$7D3FC569952AD4D2,$D50C663319D94009
    Data.q $26CA9AFB22F2155E,$01FFFFBFBFCFBFDA,$00080904F9210001,$1F000000002C0000,$0100FF0807001F00
    Data.q $0883C1A0B0481C08,$7CC321B0C85C2A13,$439D0E974C48CCE6,$224868D21914E984,$4E881C5D0C877480
    Data.q $67CC124486532A95,$34C994E886CA9548,$1A1CA64329DD1079,$173453BE6133B9DB,$AA533E61515654C6
    Data.q $7432996E985A9D4E,$CAE38F974299D0C6,$AA0E88AB2E172763,$D24552AD4D105339,$CAEB99970AA02994
    Data.q $52AA0748635769F6,$C9F2F963452154E6,$8D318159ACD6E74C,$00634F2F35BBB31D,$BB4F1CD39A429EBA
    Data.q $DBF253B7CDE18EE9,$B0D466553A3F7053,$6CB98E726515C7E1,$8534F22AC6C15199,$75A739A5ADD3AF97
    Data.q $A5D0C763B2EF560A,$F37B63D1B4DA4C3B,$3255EA6654DA9D9E,$96551F327DCBE67D,$6CA4CE963B2B8B15
    Data.q $79C86B35539D8E84,$DDC449E514AB553E,$FB1DCD0AE4E8A133,$2D573184DD7450BB,$E34783E232B9485D
    Data.q $64B341A73E0BF436,$08A8148A29D4745D,$292C409234A0E941,$4A4E84486A1A86B2,$A855795E55D4160B
    Data.q $00405068761C86E1,$000000080904F921,$1F001F000000002C,$1C080100FF080700,$2A130883C1A0B048
    Data.q $0110863A5D10985C,$138B1A8CC66743A0,$8AC763A867441A23,$3A2051A7CBA08D15,$9CC4684219168A45
    Data.q $D1D88BA219288E46,$A532ADD10B924454,$53A61533844E208A,$9A46664521A1D364,$273D9E42696F9839
    Data.q $049FBA4012B43BA2,$9347627455353E1F,$C990F1D84CBA0D4D,$EAAF982D2A074774,$571B6B9A048A8EC1
    Data.q $553532B503A73A6D,$6D66C356B75B5F35,$8EDD688959914AA8,$E9728F4228304A1C,$E6BEC9E158DB6E36
    Data.q $4550B2B1C9357DCC,$6033867BBBA61D2B,$EBD71BBD990D06BD,$D85B65E20946A4DD,$E91E8DF34B89D4AC
    Data.q $3C2EAD25BE21E119,$D650F9846A22336A,$9306C061B9309E0D,$222341A2A86BFC6A,$AC7622F17EAC7399
    Data.q $B99E091B0AA747DA,$21000407D3E8F3F9,$2C000000080904F9,$001F001F00000000,$481C080100FF0807
    Data.q $5C2A130883C1A0B0,$A2190C7CC39F3098,$0C6735198CC4674B,$1674BA60D11743A1,$8EC7235244319A07
    Data.q $C9D1523434262600,$63B309721A572F88,$CE97CCBE5F0B8849,$333429CC865521A0,$2C0A70E98BC6E4D0
    Data.q $027B1AA5D120D319,$950A9FD1684E8998,$4565BA2A12A35002,$8249A6305AD2194D,$5A29AA65340E3F33
    Data.q $94D2F7CD42D486B4,$11B33568CD094322,$BA9426F133A94BAD,$229A6727A0D99CD4,$2D0D2F653A6D14EC
    Data.q $2971AD42EEF53BEA,$563342E4B3DA0D4F,$7332B2B7C743A6B7,$602054F8429AD942,$D55944399AE31074
    Data.q $57C904108D04B221,$381DB954AAD8C6E7,$0C1F8B09C15DE15C,$910E86866EA0DB8C,$53284574A57CF8EC
    Data.q $AEECCD0D5D2826B6,$736F9DED9C1254CD,$BDBE0E568F471394,$F921000203F0F7FB,$002C000000080904
    Data.q $07001F001F000000,$B0481C080100FF08,$A85C2A130883C1A0,$343218E6743A5D10,$290C8633199D0E84
    Data.q $04E843C660D127CA,$028EC854D1943C62,$97A9A0AE955A990D,$B294CA7894725EAA,$554AA653198D2E93
    Data.q $3449D41671406547,$A65BA156CA9D42E2,$9BE58D4493C0A5AC,$A274C76353281099,$B1528E29914E97CB
    Data.q $5BA8BA2CACB83D0A,$AA399CD407CCDE5F,$B1AB0A674D015708,$D8F53ADAAAACE974,$340B2B2A6F40854D
    Data.q $58453ADF7C63545F,$3CEB0D85A6002756,$A2EF93855CDD1156,$30C6CAC419783B65,$59A254F337B6329F
    Data.q $B2C87210B63BE6F9,$5E6DCC77465AA4CB,$DF33AC932A610B87,$D3D84E2ED915BB59,$2655E77D41CAE664
    Data.q $34594F15DE4A9571,$02B2C79770EF1157,$33BE55219D2868C8,$A3D298DB9C973E06,$DA3312BDCF31CD58
    Data.q $A3B3DA05554D3589,$0A7534C205634546,$80C8A77104AFC4EE,$94606A45D19449F9,$0D6A9534112875D1
    Data.q $1014761484E12846,$0000080904F92100,$001F000000002C00,$080100FF0807001F,$130883C1A0B0481C
    Data.q $0C63B190D0B85C2A,$65B194EAA53A2A17,$B1A0D1165A190C8A,$A34A67432994C687,$AE891C0E3ACA55A2
    Data.q $6532A996006332A5,$339A472A94AA98CA,$B65540914ADD2E97,$D2F96340E78E996C,$3D7450E1938A4BA1
    Data.q $AAD55CCF90054597,$CDE1EE8A94B69F1D,$AA4E87350EB34A9E,$70BA6BE69123A439,$99E5825CF9B4D929
    Data.q $1D0E974AA1C26D8E,$A2B51153D163EF99,$A18196D228783BE3,$89745C70CC6BA61A,$6564D8F679EDC71F
    Data.q $D3EC18FCDBE63B3D,$DD3567462732C674,$F11C8636F3839E32,$AD25D6472EABEBA3,$15D6A4CA65E36692
    Data.q $0F370B883A196CB9,$0CC663B1E6EAAE16,$03D66129D3096CD5,$825235D488ED8327,$4AE7D4A91607459D
    Data.q $1B89BC2A779B75DF,$6D76B6ED2FDE40B3,$24AA42ABE2F1400A,$291487454D7E0A68,$05FDD746A0BF3F12
    Data.q $0010142A0480E028,$000000080904F921,$1F001F000000002C,$1C080100ED080700,$2A130883C1A0B048
    Data.q $4D0986A1A050C85C,$8B652A956A653319,$653A195058843D14,$29D54867CB19F320,$A5AE87CCA9F3058E
    Data.q $2E974C12513063B9,$28DB1DD12D973A5F,$53A23D2A96B99D33,$AE73349640A64E99,$9F2A9A3A26F46954
    Data.q $1E74CB68D4F453A6,$9CD35F31AA931DF3,$D0E9F5696D4E893E,$A9D659BA1E58E6A1,$EF9B2D910D516539
    Data.q $C0051A6C86964DA7,$ADF6AD6C4355E952,$16CF52BDBA2E54E9,$F787C04AEFB74AAE,$91CBA19CD3F74546
    Data.q $6332CCC46BED0251,$5A70D4FCA5A6CB98,$A738895D0E812BC9,$16991B1A5199B3E2,$EAB802F7A063B1A9
    Data.q $5AAA2800DD44D0FA,$5E09C0CBB2D97165,$030BE7F3B9BC9E5E,$00080904F9210002,$1F000000002C0000
    Data.q $0100C40807001F00,$0883C1A0B0481C08,$5343A1B0C85C2A13,$C394CA689B1956AA,$1D0CA633E5F26684
    Data.q $F1E6341E2EE87CBA,$692C1A451E74BA23,$F49E0B2A74C95CCE,$D2690498B1A3D288,$5CF992C0E70F9904
    Data.q $2097C0A7CE674B1A,$903A5F33AA34F65D,$52E4F2E973A29930,$4014692CD650E99F,$F53A25764F20934B
    Data.q $8ABCCE9D28B1D863,$CD1A4325A0B9A893,$7AD266AECA24F5AA,$A726231199546B3C,$5D8DC6D9727A9516
    Data.q $C54FAA35AA253DCD,$5670B1D9F60E4F81,$6399B6346AF0C763,$A860057741A08AD7,$6D5EAB53A3D2E9B4
    Data.q $080904F921002030,$000000002C000000,$00FF0807001F001F,$83C1A0B0481C0801,$2994D0985C2A1308
    Data.q $94E67332AA071086,$CA6834454F178731,$B6548A42CA534790,$53A1D1235532E091,$E40125733A596E96
    Data.q $D1337329A6AC699B,$C79FB9A77319DBA5,$92CF1F2E8953A400,$CE9CCE8A1CAA7345,$1F2A68B39A6F257C
    Data.q $35699C6E87339551,$B74516AD4FA32A9D,$64FEAEA7952AA551,$EACF4353D0E2330A,$973BA1C6EAD56A24
    Data.q $55AB50E4B58A7512,$5350D5548A2E0AC5,$BA6CF6EA3D2E993A,$9D110C662B10E9B4,$D2AAC5C9F3699C2A
    Data.q $663D16C10E742AEF,$A57AA70EA459196E,$9E1D3A98B198EE6B,$F92A2319996CB63A,$73ACC0A9B49B2BA6
    Data.q $95EE6B538A9446B5,$EEA97AFBDDFA82E8,$58FD49AF498F3598,$BAE633280131D7BE,$F4127401D9D7756A
    Data.q $8FC5E187F9A1CA78,$03EDF7FBBDBE9437,$00080904F9210002,$1F000000002C0000,$0100FF0807001F00
    Data.q $0883C1A0B0481C08,$433E5950A85C2A13,$118CC8674002230C,$A1F05894690D0F33,$D24633E6351A5329
    Data.q $6552AD55028E2AD8,$3C95CCF98149D4CC,$1196AA65CD9951C6,$D112654D9D0F97CC,$3198C1A84E97CBA1
    Data.q $65B2A84CB74C49CD,$BA5D0E69E4FA2710,$954A77CD0E851174,$50B9A3E5D342ADD6,$CAFCF2853F7CD6D9
    Data.q $231E793D63431F33,$A2C50CB6DB6B5449,$D16AB3D5A6D57655,$5AC25598F5773431,$C5399D379BB5B5CD
    Data.q $E0A7B70A159ACD6A,$F273CB5606BF4385,$D3DCD55D97448565,$691E118EE9ACCF33,$1E1A870CA04FF239
    Data.q $1AEB4192496D595A,$24AA6329A9F8BA9A,$8A9F21D14CA9F5C2,$85D0F5E8A55229D0,$D658DB7A3D2B4770
    Data.q $6A911DBF5264C6C7,$1F032F2E7F05EB4F,$54A760C69B2A9951,$314D1F7CC7383EC5,$6128E65CD8D0253F
    Data.q $F98DC7E428A4546A,$E068160143DC340D,$F9210010141E0881,$002C000000080904,$07001F001F000000
    Data.q $B0481C080100FF08,$A85C2A130883C1A0,$CC3218E874BA1F30,$A48C66452290CF97,$2C86533A20F128AB
    Data.q $1F81C750D0E81C62,$96C7E0B26552AD4D,$39A1334532A9D312,$A690B6331A531290,$3029AB1994CA862A
    Data.q $7533E678C77340A2,$400278CBA0BA616A,$CDD0C79DC6E1F217,$4F37A6CEE930A534,$2B8FA99973B8A4D1
    Data.q $9BD4D8EC7A4BA613,$3A67EAA653A2A74C,$5954165BA212CBB1,$3359954EE94C74BA,$B74B9AA17B845725
    Data.q $3CEDCD5CC339A793,$CA6729745798D07C,$1B06CA31E3F879A5,$0255D070793B231B,$BEE62779684EA269
    Data.q $E82C576635ADF353,$AEB5AC8D79F35ED0,$949CC506E70BC240,$1B1219CC00ADE626,$8600CC86CC5F195C
    Data.q $2A608A43BA58D418,$15D0334861ECABEC,$A14176F8096D4251,$50D4D0DDB4499543,$554A6BAC33CB06F3
    Data.q $169555D63BD9BD5E,$7FD332290CED21E1,$14894549DF94B88A,$7F4BA0847119199D,$E168561483D4662D
    Data.q $04F9210004050985,$00002C0000000809,$0807001F001F0000,$A0B0481C080100F9,$30B85C2A130883C1
    Data.q $974C3218E8743A5F,$8198D46A331990CE,$9A2D16333A20D128,$D0008EC462F17001,$1D9341E468A453A5
    Data.q $8FC4A370C4321A21,$C7A692B85BA66B2E,$A2EF984CECCD0493,$F3981C3E77387CC1,$087CE691058B3A20
    Data.q $5D362105A7C288D4,$9A0933ACD008D03A,$154F8455ABF598FB,$66B1D35D2E67CC0D,$94D361F038D3A213
    Data.q $3E5D1029F5CA535F,$EDB03BDD65F37DBE,$174B459E092AB5D0,$D82DE6F32A825480,$AC72232EA2BE6053
    Data.q $F6846774DE2C30DB,$EA6A43412EF40C3D,$93A65FAED02C1442,$D340A508B453A207,$CD73D579B6DB5105
    Data.q $F790AB5219151ED8,$F29DB4C299BE99CD,$08A4C7811A92C6A2,$4F6BB3D8EBF335F1
    Data.b $18,$10,$00,$3B
  mail00008_gif_end:
EndDataSection

_________________
Egypt my love

Top
 Profile  
 
electrochrisso
 Post subject: Re: Animated GIF Gadget - Another approach [Windows]
PostPosted: Sun Mar 11, 2012 10:44 pm 
Offline
Enthusiast
Enthusiast

Joined: Mon May 14, 2007 2:13 am
Posts: 734
Location: Darling River
Good examples guys, you answered my question I was going to ask RASHAD, if right click popup window on gif can be disabled. :)

_________________
PureBasic Rocks! Even More! And More!
PureBasic 5, Now We're Really Rockin!

Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 1
  [ 4 posts ] 

Board index » PureBasic » Tricks 'n' Tips

All times are UTC + 1 hour


Who is online

Users browsing this forum: Simo_na and 0 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  

 


Powered by phpBB © 2008 phpBB Group
subSilver+ theme by Canver Software, sponsor Sanal Modifiye