PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

Exemple EditorGadget Avec Menue Contextuel

http://forums.purebasic.com/french/viewtopic.php?t=16559

Page 1 sur 1

Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 18:42
par Shadow
Exemple EditorGadget Avec Menue Contextuel:

Code : Tout sélectionner

; Exemple EditorGadget Avec Menue Contextuel
; Créer par Mr Dieppedalle David le 09/03/2017.

;{ Enumeration
Enumeration 1
  
  #Fenetre
  
  #Editeur
  
  #MenuPopup_Editeur
  #MenuPopup_Editeur_Effacer
  #MenuPopup_Editeur_Annuler
  #MenuPopup_Editeur_Restaurer
  #MenuPopup_Editeur_Couper
  #MenuPopup_Editeur_Copier
  #MenuPopup_Editeur_Coller
  #MenuPopup_Editeur_Supprimer
  #MenuPopup_Editeur_SelectionnerTout
  
  #Editeur_MenuPopup_Evenement_Effacer
  
  #Icone_MenuPopup_Editeur_Effacer
  #Icone_MenuPopup_Editeur_Annuler
  #Icone_MenuPopup_Editeur_Restaurer
  #Icone_MenuPopup_Editeur_Couper
  #Icone_MenuPopup_Editeur_Copier
  #Icone_MenuPopup_Editeur_Coller
  #Icone_MenuPopup_Editeur_Supprimer
  #Icone_MenuPopup_Editeur_SelectionnerTout
  
EndEnumeration
;}

;{ Data Section Icônes, convertie avec le programme Bin2DataPrewiew: ts-soft.
DataSection
  
  Effacer:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$37FAB50000000408,$474B6202000000EA,$00BFCC8F87FF0044,$0073594870090000,$01130B0000130B00,$07000000189C9A00,$1202E107454D4974,$0093AFA8E0161913,$28544144492C0000,$019FF250CFFC63CF,$606060616461E827,$C0C0C0C25D21C1E8,$0A3C182A8C0040C4
  Data.q $2900000B86B16058,$006A0AA4749704FD,$AE444E4549000000
  Data.b $42,$60,$82
  
  Annuler:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$4D41670400000061,$61FC0B8FB1000041,$474B620600000005,$A0FF00FF00FF0044,$700900000093A7BD,$00130B0000735948,$189C9A0001130B00,$454D497407000000,$A23100110C09DC07,$497C0200004062D4,$CD9385CB38544144,$BDE77FC614614C6F
  Data.q $935CB56999D3BDF7,$23608D0C184EDA1A,$69B2BA1059457C41,$2B62B0B0B0B11222,$56F62549007F1091,$523E22245A495D56,$D1935298F8822412,$38FDC7699DA5A769,$9CD9C93D048A9A16,$5511CF3C9CE5F9E4,$D98EF6E0D492B165,$1EAD15D4D2E8CF5A,$13ABF2EA1FC4008C,$ADCF06CBC545DDC7,$0458B37195CA6D9A,$6706AB2E8E87DA40
  Data.q $FDC570A7F98E5263,$F93F9F24DEEFF176,$88FADDB0AE8ECCE5,$9EAFED045CEFF118,$FFBACE39B270FFDA,$49DD5D997780F710,$DBAC75478C4DFAB6,$DBE89BB7C2DF1045,$03FBC72902866359,$2CB473E2058F9D20,$CD1264B375DECD3D,$7B0AC0DBEADF00CC,$89A0FCA6D8D86B0A,$FC9000BC4D4428B9,$91B33DA55CC44AF0,$343AB195B408D9CD
  Data.q $6233A9B016BC6122,$3A6001DD68CD3279,$C3B3C29005C18836,$A74D904FCBA15EE0,$F1547B79901B4CA9,$016997CB0FCCCB8C,$92BAB1A0E26A017E,$0ADB1F797289717D,$3C6810D32A592C35,$0E24340443CC97BF,$1D60C2985407105D,$6A824E2D13F73C5C,$A872561EEF89946D,$6211554011540826,$362175023C8D05AC,$7DD23A30368F557C
  Data.q $8895E50413B9F59D,$39E3A98C4BCA10AD,$A41DF30242440602,$C19E7DF862313181,$BB72645786F0E800,$9D09264E924F3E09,$F5B4956D215B88A7,$938EE08A718A7B48,$D1063692559E11B2,$8723A1A170E92085,$8B5D58403E7B18FA,$39E21B83DE60D7D8,$7188B6783227346D,$1D63179E0112248A,$4F591BEC82FDBF95,$1E8406CED68378A9
  Data.q $D8F953CA699128DF,$1514CB220E73B5A0,$EE5EF5946BF96F28,$91287E4C3DF2AB2D,$E7158C77D94C3A48,$C6250FC9807758E8,$54352223F70219CB,$7F34F3ADC74DBFF5,$3652386F478ACDBD,$F707D8BDCA470AAA,$B42AA80516949FF1,$15BD02E066463B5C,$43259AB63FDB30B3,$A46D27126B013FFD,$4900000000BDEFF2
  Data.b $45,$4E,$44,$AE,$42,$60,$82
  
  Restaurer:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$4D41670400000061,$61FC0B8FB1000041,$474B620600000005,$A0FF00FF00FF0044,$700900000093A7BD,$00130B0000735948,$189C9A0001130B00,$454D497407000000,$76373B100C09DC07,$49850200007A42C7,$CB938DCB38544144,$77E73FC71471544B
  Data.q $324E638E98CEEFEF,$410445E8CA9B6F93,$8B536CC26DA45C2F,$2E45CEB4136882A0,$82AD1688213FA082,$D1209A7A6D442168,$36A7B33490B45A4B,$DEBDE3A3996A0E33,$F9B381E7A28AC2D3,$497EF9CE7BE7BE2E,$1555EA779514E570,$76AE5A9CB7A58555,$6D6FEC37EB7B7251,$4A2FF09CAEEC9642,$F10C95AC005EEEF2,$E7795243D1B335CD
  Data.q $9F2E16593328FF24,$F44979E801EBB638,$3D189B4904C4419C,$EE24A8FA749EADB1,$2C048FF25F54965D,$66DBC7335EE23C71,$15BAC6E9830F4448,$71B9D94534F60528,$7BFAD7D524D7781D,$44F3010B73213502,$6C02B0D9695DB839,$6D618CF85B0B1F39,$5E96C4A54DF69CA2,$7E48F7529D07BA90,$415C86B3E3031026,$7D65292B2CB05F78
  Data.q $4BB4EC9099F93CDD,$902F4969C680E0AE,$ABFBA4B74C451E4A,$7C8745132A10507F,$147CE285A747B161,$4319F1859A7CB8CF,$4563465D3E30DA6E,$F3486F703AD4FA8C,$67FC81D62E003DD3,$061F8AA0A20B8043,$2EA8E717620B7D14,$86C44844D62C487E,$70ED9FCB25D83279,$4C044A48F3917801,$8A0EFBE038831588,$C024411580A0888B
  Data.q $E2D4E625938837D7,$4511B75F305D6FB9,$009BE2295109180C,$0142089E2C6015AB,$B3558FE22DC4419F,$945819AFF688E1BA,$816758A33C43625D,$6C1A9A94B2463C80,$73E813C9F10981E8,$5AA8665EA62ABD4A,$A06EDF8B9BFB4FB1,$78B7D07C711217A8,$A057E8A7A9C44B26,$B320864E215E0026,$F670387E92F65C92,$C036B04758BA37C7
  Data.q $29CAEF8F9F1C0063,$D53887A16A659A6B,$E3434E2EF733CEE0,$2248D5FA196DED3E,$262A99F22BEEF833,$F5EE46D55DA8C647,$E4C389489876531C,$186DED56E93518C8,$F7B0C78F1399BDFA,$67B42AA874CF68FB,$526F65948387A90C,$DDF94234AFF9DDDB,$C63A077D35CAECF3,$FFB73B134FD7550D,$70410B9405FCE27F,$00000000B963FDB9
  Data.q $826042AE444E4549
  
  couper:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$5948700900000061,$0B0000130B000073,$0000189C9A000113,$6850504343694F0A,$20706F68736F746F,$666F727020434349,$9DDA780000656C69,$F73D16E953546753,$4B9480884B42F4DE,$8B4252200815526F,$1009212A26911480,$C15115D9A121884A
  Data.q $88A0C81B04454511,$2C51158C808E8E03,$A221E407D80A8A0C,$E1FBCA8A88A3838E,$CDE6F7BCD66BA37B,$9DF3ACE73ED7B5FE,$48960C08C007CFB3,$1E42A90C80355133,$E4E1C6C4C783E011,$100070240A81402E,$0123FD732164B308,$C0222B3C3C7EF800,$080BD3780100BE07,$871C30C09B4DC000,$80015C9942EA0FFF,$084B389174C00184
  Data.q $A6428E7A40001480,$26989D8001464000,$63CB600004A00053,$2760002D5000E362,$99F89D8000D3E67F,$011521945B00017B,$44886513200091A0,$8A56CFAC003B6800,$4B66140030580045,$4930002DD80039C4,$C000B7B000486657,$000C0800B20B10CE,$7B04002985885130,$8400782323C86000,$F13C57F246140099,$7800002AE710AE2B
  Data.q $81453924B93CB299,$2E575707712D085B,$36142B1749CE281E,$79C22E409A610261,$F3E00F3481321999,$E0111591A00000CC,$CEAE0ECE78FDF383,$EA2D5F0EB68E36CE,$FEE3626222FF06BF,$E100004070ABCFE5,$1AB32F2CFED17E74,$25A2FE6D80063B80,$F775A00B5E6804EE,$A000B5400FB2668B,$3C7EF870F357DAE9,$E5D9D9B990A1453C
  Data.q $615B42C44AD8E4E4,$C05FC267FE7D57CA,$F7FC3C7EF96CFD57,$5D328124E2BEE0F5,$F4CCC2E0F8044781,$62840992CF1CA54C,$FF0BB7FC478FE6DC,$B96249C422D31DFC,$8E711251E3142A58,$8922A532F38C9A44,$64FFD225C5299242,$35DF3E03FB2CDFE2,$2D917B013E6AB000,$10274BF603635DA8,$F20000F7E2C07458,$80030828D4C16FBB
  Data.q $3FEFFF77CFE18368,$4966800025A047FD,$2E24445E00007192,$000008C73FB3CA54,$F41B41B02A81A044,$05C11C06C02C18C1,$42843660FC0BC1DC,$640A421042C2C424,$4282AC2960721C80,$2F602A1DB0CD8628,$866851C0341D40D4,$0EB855C22E0E7093,$C19E0861FA0F703D,$08C841040981BC28,$8A620188DA216113,$F8859917088E2358
  Data.q $20248B120448C121,$35914B22511488C9,$485520548A523148,$5C873902723DF21D,$823200C83B91BA46,$B281943147BC86FC,$A8B943B50CD43D51,$64D00BA246841A37,$D09BA0168F9A3174,$E7A1368C3D1AB472,$433E8FDA0F68ABD0,$C4330718E8C030C7,$38B142C3C62E306C,$AC22B1CB6393092C,$03AC56B01AC6AB0C,$0477B1CF63F589BB
  Data.q $77043609C0458112,$4C5848411E612042,$241C20A848D84E58,$8403093709DA1134,$B44BA8932227C251,$326218C4F911BA26,$12D6232C48588731,$C443887B102F138F,$B927324389122437,$12D254A4B1490290,$2CE923526ED246D2,$C993231A48349BA9,$2C943907B26B64DA,$C3E49DE485C82B20,$5BF221E41BE433E4,$53F8A47140629D0A
  Data.q $E5194A6ACA5228E2,$32986506E534E510,$A1A8DD529AA35541,$A1AD425A8F351154,$3413A88751AF52B6,$4B491683CD399A75,$17681AD395A2ADA5,$11BA74E8AF69F768,$D257D0974E1E95DD,$F403E897E847E9CB,$88C78315860D0C77,$671807189B192867,$19A64C98AF187719,$31373054C7198BD3,$556F990F99E798EB,$CA91157C2AB62A58
  Data.q $2A1B9526954A950A,$AADEAAA6AAA9542F,$A98F54CB55F3550B,$53335546AE7D535E,$AA55AB96D409A9E3,$A967531B53EB509D,$546FA867AA87A83B,$590689FD597EA43F,$A051A4434FC34CC3,$630B20C6BCE35FB1,$AB0D6B212C78B319,$CDB126C435817586,$1DFD98BB2A767CD9,$4339A1A9AA3D8BBB,$94F352B357334A33,$9CF87198E3073F66
  Data.q $F397A728E7094E74,$29E229EF14DE8A7E,$5C6531B94C34A61B,$48AB58969796AA6B,$AE36BDEB47AB51AB,$59BB45BDA69DA7ED,$5C274AC7410E81FB,$E79D05CE8F674727,$16A70AA7DD53D953,$6BAA2EAEF53A3D4D,$6EBF7744BBA11BA5,$9E805EBE9E98EEA7,$FAE7BD79DEA76F4C,$FA6DFD54FD2F7D1C,$0CB306580C47F5A7,$C53C18CE0CDB0624
  Data.q $DBC72F1D3C6F7135,$A54340C35D4351F1,$B99184E197619561,$0F468D46D5A33CD1,$6DE324E35CC6698C,$21260626A3C66DC6,$529AEE4DEA4D4B26,$3B4C3BA629A6B94D,$D6CDA2CDCCCDC74C,$E732D7313D9B3599,$60B7DF9BD79BE79B,$B8B6A8B62C5A785A,$EE59A65AE4B24965,$A559395A856EBCB6,$9DAD46B35D5A5558,$11A7BBADBBD625AD
  Data.q $D69EAB4E934EB9A7,$A9B6C9B6F1B0C367,$AEDB06D8E5B019B7,$176267617DB66DB6,$BD93EEC3AEC5B767,$073DFD8D7DBA7D93,$1D5A1DAB0ED9870D,$3A563A1472B4737E,$C57D3FEE9CCE9ADE,$10CF58672FE996F4,$29CB13B6E333D8CF,$6747D39B539D69C4,$8B88F38373B96717,$2E3E972ECB824B89,$4AE4BDC8DDC61B9B,$F5D27AE15D71F574
  Data.q $DBA8EDC29BB39B9D,$DC87EE69EE36EEAF,$33599E299F34CC9F,$E551E043C8C3D073,$DF6B30959F0B3FD1,$B567814F434F7EAC,$AD57912F632F23E7,$61F7AA77A5B7B0D7,$E39F723EF63E17EF,$59DE32DE373CE33E,$CBB7C8B7C037CC5F,$43DF855F9E6FC34F,$D1FF7AFF64FF237F,$890367012580A700,$7AF8FB025B814181,$65DB3A3F8EBF217C
  Data.q $B9A08C41EDD9B2F6,$E582AD828F411541,$AD90ECC86821ADC1,$69CE91CE98E7F721,$07D0D6E87E50850E,$270C7EC38B61E661,$708E3F8657858785,$77359731D11A5888,$44FA44DF7343DCD1,$394F31679BDE4496,$2EAA3E2A354A2DAF,$3FBA34BA37DA3C6A,$9D58D5CC59662EC6,$2A2E391C4B6C4958,$EDFCDFBE6C6E36AE,$7BE30BE29DE287F3
  Data.q $A179705DC82F9817,$2EA916A785F4C2CE,$4E884C40963A2C12,$16A82A1041F09438,$0A8E257713F2258C,$D12F2267C21DC279,$1E2A5C43D888D136,$EC927A4D2A48F24E,$A533C5247935BC91,$BC90A92784B9E52C,$169E3A9BDD4C0D4C,$BD3A3D326D20769A,$AA42719091928331,$E667EA67B6934D21,$FEB28565ACCB7666,$07951E2FB78B6EC5
  Data.q $2D5905AC90B36BC9,$285A54E8A642B60A,$66576567B2072AD7,$9EAB9639CA89CDBF,$90DBCAB3CCEDCD2B,$C212EDFF9FEF9C37,$574B86A5B692E112,$396AACBDE6581D2D,$15E30ADB79713CB2,$B83CAC0656862B05,$EDAB4FD56D2AB68A,$4D7A26BD7EAE9757,$B5C182CAC15E816B,$85E50A550BEB6B01,$584F5DEDD7DCEB7D,$9D86FA61B5DF592F
  Data.q $DB14AE8A89153E1B,$78DC28D87F159717,$DC99BFCA6F871BE5,$CF64B9C4ABA9B494,$9E2DDEE6E966D266,$0E97E697AA960E5B,$56DF0DB4DAD90D6E,$972FDB45F6F5EDB4,$B943B683BBDB28CD,$C9A765BCB83CBFA3,$F454A4543F3BCDCE,$B5DDD2EE3654FA54,$7B1BEED16EF8D761,$BC5BDBD5EC34F6BC,$0155DBBEC93EFDF7,$49FB65D566D54D55
  Data.q $E9AA89AE3FF7B3FB,$6D4EAD5D6DFB96F8,$07FD03D203C7ED71,$1DD5D4B9D7B60E23,$EB2BD68F52543DD2,$EF9DFEBE1FC70E47,$9C8D550D360D2D77,$E9E479447023E2C6,$DA3A0D1EF7DF09F7,$1FD307E1AC7B8C76,$9A426A2F1D671D76,$5BFB9A539B469AF2,$D6D13ECC4FBA5B62,$0F1FDB47FC7ADEEA,$54F34A79593C349C,$6793D382E9DA69C9
  Data.q $7E7D9D959D8CCFF2,$7BB6A2DB60DCF92E,$EF6F0F6ADFCE63E7,$8BFF45D2E17410BA,$B8F25CCE3BBC3BE7,$B85713E5DBB2F274,$74EA6D5F3AAF9A57,$BBC74FD393FE3CEA,$B96B5CB9AE9ABB9C,$E9F7667BB5BD7AEE,$79BDF4DDCE379E1B,$3D399ED5D6FF16F1,$F7C5F76F7AF3BDDD,$FD27727EDD16DFF5,$ADEE2777D9BBCBCE,$41ED40F45FBC4FBC
  Data.q $FE5B3FD587DD43D9,$77C06A7FDCEFD8DC,$8506F747DCD1F3A0,$430F8FF591FECF83,$860D86CB8F998F05,$3FE239393E389EEB,$64CF43A7FCE9FD72,$CBFEA2FE179E26CF,$EBD5F87E2F1617AE,$F297A1D198D1CED7,$EAFDA57C6DBF9397,$C6C2C6DBAF19EBC0,$F45E313378C9BE1E,$1D77DC77C1EDFB56,$207CE44F0FDFA3EF,$53F5B1F968FF287F
  Data.q $FF93931993FBA7D0,$2D3363FCF3980304,$4D416704000000DB,$51FB7C8EB1000041,$5248632000000093,$800000257A00004D,$800000FFF9000083,$EA000030750000E9,$170000983A000060,$02000046C55F926F,$94DA785441444906,$9FC6186113683F92,$25E926B972F4BEFB,$75360E34FF51C7B1,$45C1304122839ED0,$105938DA2DE3B6A7
  Data.q $C5D8B72A1E08B8BA,$2420E25C5938C9D2,$145C408706222A4E,$6D436D691245C569,$BA7F71CB9369DDED,$FBDF4EF3489B4158,$7A05E1E7DE1EFC7E,$BB8B55550555552C,$79800DE00C2BD33D,$E605C7A413002500,$369EB50074000800,$6DB891224EF55550,$A720008E38EE8618,$49213C27DD02DA69,$65ACB2C175D703D2,$080013DA69A29659
  Data.q $FBE47841059603EC,$6AC9C71DD4D34C3E,$49008FFFF761F69A,$D42957BACFDF992B,$694A191BF5F2E001,$07556AD5094A9531,$322B490C000C17F0,$B0864922E522F8E1,$8DEFC3E287AA01A0,$FA7726452098EF2F,$07BDB6DBAB30C420,$10CE785D8ECA0006,$3E65B725C6C63922,$8E8745C5373F1F8B,$2F2B5F5B7266ED7A,$7F3A7F3E9192B7AD
  Data.q $A386848B2745F67F,$32852AF798FC63B2,$EAAF4BEF82107180,$06511183653ED73F,$96E85B9C3E9FD62F,$CC8F0DCEB69C6111,$A9A1F8D8D56F2684,$53D5ADED4BAF8FCD,$BFDA145E4F07C600,$C8E15D4C85FFF5D6,$D9F5BDBB84D8C74B,$99678FB7DD37996D,$03F26752C6CE27C3,$A2E2C97807E00783,$F1D024EE58BCBF8C,$212C70B5ABD90290
  Data.q $B0CD0BE91C958D98,$0B476CBDD2CD1131,$928717EE4569067B,$86250A55E7256366,$878E85ABB3767812,$72B493CE001E7844,$64EAC6F632078685,$0D8BCBF81DFE0CD7,$C16BB1D1D192C748,$AF5DEBEDF9B47E7E,$880019D81377C852,$006FBD8D59B5BD9D,$AE444E4549000000
  Data.b $42,$60,$82
  
  copier:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$5948700900000061,$0B0000130B000073,$0000189C9A000113,$6850504343694F0A,$20706F68736F746F,$666F727020434349,$9DDA780000656C69,$F73D16E953546753,$4B9480884B42F4DE,$8B4252200815526F,$1009212A26911480,$C15115D9A121884A
  Data.q $88A0C81B04454511,$2C51158C808E8E03,$A221E407D80A8A0C,$E1FBCA8A88A3838E,$CDE6F7BCD66BA37B,$9DF3ACE73ED7B5FE,$48960C08C007CFB3,$1E42A90C80355133,$E4E1C6C4C783E011,$100070240A81402E,$0123FD732164B308,$C0222B3C3C7EF800,$080BD3780100BE07,$871C30C09B4DC000,$80015C9942EA0FFF,$084B389174C00184
  Data.q $A6428E7A40001480,$26989D8001464000,$63CB600004A00053,$2760002D5000E362,$99F89D8000D3E67F,$011521945B00017B,$44886513200091A0,$8A56CFAC003B6800,$4B66140030580045,$4930002DD80039C4,$C000B7B000486657,$000C0800B20B10CE,$7B04002985885130,$8400782323C86000,$F13C57F246140099,$7800002AE710AE2B
  Data.q $81453924B93CB299,$2E575707712D085B,$36142B1749CE281E,$79C22E409A610261,$F3E00F3481321999,$E0111591A00000CC,$CEAE0ECE78FDF383,$EA2D5F0EB68E36CE,$FEE3626222FF06BF,$E100004070ABCFE5,$1AB32F2CFED17E74,$25A2FE6D80063B80,$F775A00B5E6804EE,$A000B5400FB2668B,$3C7EF870F357DAE9,$E5D9D9B990A1453C
  Data.q $615B42C44AD8E4E4,$C05FC267FE7D57CA,$F7FC3C7EF96CFD57,$5D328124E2BEE0F5,$F4CCC2E0F8044781,$62840992CF1CA54C,$FF0BB7FC478FE6DC,$B96249C422D31DFC,$8E711251E3142A58,$8922A532F38C9A44,$64FFD225C5299242,$35DF3E03FB2CDFE2,$2D917B013E6AB000,$10274BF603635DA8,$F20000F7E2C07458,$80030828D4C16FBB
  Data.q $3FEFFF77CFE18368,$4966800025A047FD,$2E24445E00007192,$000008C73FB3CA54,$F41B41B02A81A044,$05C11C06C02C18C1,$42843660FC0BC1DC,$640A421042C2C424,$4282AC2960721C80,$2F602A1DB0CD8628,$866851C0341D40D4,$0EB855C22E0E7093,$C19E0861FA0F703D,$08C841040981BC28,$8A620188DA216113,$F8859917088E2358
  Data.q $20248B120448C121,$35914B22511488C9,$485520548A523148,$5C873902723DF21D,$823200C83B91BA46,$B281943147BC86FC,$A8B943B50CD43D51,$64D00BA246841A37,$D09BA0168F9A3174,$E7A1368C3D1AB472,$433E8FDA0F68ABD0,$C4330718E8C030C7,$38B142C3C62E306C,$AC22B1CB6393092C,$03AC56B01AC6AB0C,$0477B1CF63F589BB
  Data.q $77043609C0458112,$4C5848411E612042,$241C20A848D84E58,$8403093709DA1134,$B44BA8932227C251,$326218C4F911BA26,$12D6232C48588731,$C443887B102F138F,$B927324389122437,$12D254A4B1490290,$2CE923526ED246D2,$C993231A48349BA9,$2C943907B26B64DA,$C3E49DE485C82B20,$5BF221E41BE433E4,$53F8A47140629D0A
  Data.q $E5194A6ACA5228E2,$32986506E534E510,$A1A8DD529AA35541,$A1AD425A8F351154,$3413A88751AF52B6,$4B491683CD399A75,$17681AD395A2ADA5,$11BA74E8AF69F768,$D257D0974E1E95DD,$F403E897E847E9CB,$88C78315860D0C77,$671807189B192867,$19A64C98AF187719,$31373054C7198BD3,$556F990F99E798EB,$CA91157C2AB62A58
  Data.q $2A1B9526954A950A,$AADEAAA6AAA9542F,$A98F54CB55F3550B,$53335546AE7D535E,$AA55AB96D409A9E3,$A967531B53EB509D,$546FA867AA87A83B,$590689FD597EA43F,$A051A4434FC34CC3,$630B20C6BCE35FB1,$AB0D6B212C78B319,$CDB126C435817586,$1DFD98BB2A767CD9,$4339A1A9AA3D8BBB,$94F352B357334A33,$9CF87198E3073F66
  Data.q $F397A728E7094E74,$29E229EF14DE8A7E,$5C6531B94C34A61B,$48AB58969796AA6B,$AE36BDEB47AB51AB,$59BB45BDA69DA7ED,$5C274AC7410E81FB,$E79D05CE8F674727,$16A70AA7DD53D953,$6BAA2EAEF53A3D4D,$6EBF7744BBA11BA5,$9E805EBE9E98EEA7,$FAE7BD79DEA76F4C,$FA6DFD54FD2F7D1C,$0CB306580C47F5A7,$C53C18CE0CDB0624
  Data.q $DBC72F1D3C6F7135,$A54340C35D4351F1,$B99184E197619561,$0F468D46D5A33CD1,$6DE324E35CC6698C,$21260626A3C66DC6,$529AEE4DEA4D4B26,$3B4C3BA629A6B94D,$D6CDA2CDCCCDC74C,$E732D7313D9B3599,$60B7DF9BD79BE79B,$B8B6A8B62C5A785A,$EE59A65AE4B24965,$A559395A856EBCB6,$9DAD46B35D5A5558,$11A7BBADBBD625AD
  Data.q $D69EAB4E934EB9A7,$A9B6C9B6F1B0C367,$AEDB06D8E5B019B7,$176267617DB66DB6,$BD93EEC3AEC5B767,$073DFD8D7DBA7D93,$1D5A1DAB0ED9870D,$3A563A1472B4737E,$C57D3FEE9CCE9ADE,$10CF58672FE996F4,$29CB13B6E333D8CF,$6747D39B539D69C4,$8B88F38373B96717,$2E3E972ECB824B89,$4AE4BDC8DDC61B9B,$F5D27AE15D71F574
  Data.q $DBA8EDC29BB39B9D,$DC87EE69EE36EEAF,$33599E299F34CC9F,$E551E043C8C3D073,$DF6B30959F0B3FD1,$B567814F434F7EAC,$AD57912F632F23E7,$61F7AA77A5B7B0D7,$E39F723EF63E17EF,$59DE32DE373CE33E,$CBB7C8B7C037CC5F,$43DF855F9E6FC34F,$D1FF7AFF64FF237F,$890367012580A700,$7AF8FB025B814181,$65DB3A3F8EBF217C
  Data.q $B9A08C41EDD9B2F6,$E582AD828F411541,$AD90ECC86821ADC1,$69CE91CE98E7F721,$07D0D6E87E50850E,$270C7EC38B61E661,$708E3F8657858785,$77359731D11A5888,$44FA44DF7343DCD1,$394F31679BDE4496,$2EAA3E2A354A2DAF,$3FBA34BA37DA3C6A,$9D58D5CC59662EC6,$2A2E391C4B6C4958,$EDFCDFBE6C6E36AE,$7BE30BE29DE287F3
  Data.q $A179705DC82F9817,$2EA916A785F4C2CE,$4E884C40963A2C12,$16A82A1041F09438,$0A8E257713F2258C,$D12F2267C21DC279,$1E2A5C43D888D136,$EC927A4D2A48F24E,$A533C5247935BC91,$BC90A92784B9E52C,$169E3A9BDD4C0D4C,$BD3A3D326D20769A,$AA42719091928331,$E667EA67B6934D21,$FEB28565ACCB7666,$07951E2FB78B6EC5
  Data.q $2D5905AC90B36BC9,$285A54E8A642B60A,$66576567B2072AD7,$9EAB9639CA89CDBF,$90DBCAB3CCEDCD2B,$C212EDFF9FEF9C37,$574B86A5B692E112,$396AACBDE6581D2D,$15E30ADB79713CB2,$B83CAC0656862B05,$EDAB4FD56D2AB68A,$4D7A26BD7EAE9757,$B5C182CAC15E816B,$85E50A550BEB6B01,$584F5DEDD7DCEB7D,$9D86FA61B5DF592F
  Data.q $DB14AE8A89153E1B,$78DC28D87F159717,$DC99BFCA6F871BE5,$CF64B9C4ABA9B494,$9E2DDEE6E966D266,$0E97E697AA960E5B,$56DF0DB4DAD90D6E,$972FDB45F6F5EDB4,$B943B683BBDB28CD,$C9A765BCB83CBFA3,$F454A4543F3BCDCE,$B5DDD2EE3654FA54,$7B1BEED16EF8D761,$BC5BDBD5EC34F6BC,$0155DBBEC93EFDF7,$49FB65D566D54D55
  Data.q $E9AA89AE3FF7B3FB,$6D4EAD5D6DFB96F8,$07FD03D203C7ED71,$1DD5D4B9D7B60E23,$EB2BD68F52543DD2,$EF9DFEBE1FC70E47,$9C8D550D360D2D77,$E9E479447023E2C6,$DA3A0D1EF7DF09F7,$1FD307E1AC7B8C76,$9A426A2F1D671D76,$5BFB9A539B469AF2,$D6D13ECC4FBA5B62,$0F1FDB47FC7ADEEA,$54F34A79593C349C,$6793D382E9DA69C9
  Data.q $7E7D9D959D8CCFF2,$7BB6A2DB60DCF92E,$EF6F0F6ADFCE63E7,$8BFF45D2E17410BA,$B8F25CCE3BBC3BE7,$B85713E5DBB2F274,$74EA6D5F3AAF9A57,$BBC74FD393FE3CEA,$B96B5CB9AE9ABB9C,$E9F7667BB5BD7AEE,$79BDF4DDCE379E1B,$3D399ED5D6FF16F1,$F7C5F76F7AF3BDDD,$FD27727EDD16DFF5,$ADEE2777D9BBCBCE,$41ED40F45FBC4FBC
  Data.q $FE5B3FD587DD43D9,$77C06A7FDCEFD8DC,$8506F747DCD1F3A0,$430F8FF591FECF83,$860D86CB8F998F05,$3FE239393E389EEB,$64CF43A7FCE9FD72,$CBFEA2FE179E26CF,$EBD5F87E2F1617AE,$F297A1D198D1CED7,$EAFDA57C6DBF9397,$C6C2C6DBAF19EBC0,$F45E313378C9BE1E,$1D77DC77C1EDFB56,$207CE44F0FDFA3EF,$53F5B1F968FF287F
  Data.q $FF93931993FBA7D0,$2D3363FCF3980304,$4D416704000000DB,$51FB7C8EB1000041,$5248632000000093,$800000257A00004D,$800000FFF9000083,$EA000030750000E9,$170000983A000060,$01000046C55F926F,$7CDA785441444948,$27441030C2AE3193,$8470B4445150D38E,$72826E13705003FC,$29B0470B47426E13,$7671C5174A409090
  Data.q $88B696093628E57E,$B09233AD59BF3F1C,$3E70E00EEBCB12D6,$124BBDF4E9D39B9F,$112C3088A49218C6,$7318D27CF9F088A1,$053D2D2249ACC633,$73CF3C11920B6DB5,$5FC005FDEF2BAD68,$030C30008FC2A02A,$6D07CF9F58F7EFDE,$F6B595000F7BC2DB,$F4023D75D75DAD66,$B2C8920B76EDE85C,$3959205EBD79346C,$89A000F1E3C72EE7
  Data.q $40A28AA1DFA5420C,$4B801556AD589659,$A6AC20F69C1E9064,$592052943DF7D069,$76001879F9110045,$E3C7852942481DBB,$29ED598618713711,$ED9E5D08034F696C,$7DF40238C1333A43,$C9A938D99110920F,$D6B414A50739C017,$D008E443DBB99C51,$D8F7BC2BD7AE1D75,$3C8841A99A5F366C,$FB9CBE367DFBF602,$738053483A73419D
  Data.q $6628A29C4312796E,$CE2101BFE79E669F,$01FF8000D9A5D6F4,$124AF49765728600,$4E454900000000B6
  Data.b $44,$AE,$42,$60,$82
  
  coller:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$5948700900000061,$0B0000130B000073,$0000189C9A000113,$6850504343694F0A,$20706F68736F746F,$666F727020434349,$9DDA780000656C69,$F73D16E953546753,$4B9480884B42F4DE,$8B4252200815526F,$1009212A26911480,$C15115D9A121884A
  Data.q $88A0C81B04454511,$2C51158C808E8E03,$A221E407D80A8A0C,$E1FBCA8A88A3838E,$CDE6F7BCD66BA37B,$9DF3ACE73ED7B5FE,$48960C08C007CFB3,$1E42A90C80355133,$E4E1C6C4C783E011,$100070240A81402E,$0123FD732164B308,$C0222B3C3C7EF800,$080BD3780100BE07,$871C30C09B4DC000,$80015C9942EA0FFF,$084B389174C00184
  Data.q $A6428E7A40001480,$26989D8001464000,$63CB600004A00053,$2760002D5000E362,$99F89D8000D3E67F,$011521945B00017B,$44886513200091A0,$8A56CFAC003B6800,$4B66140030580045,$4930002DD80039C4,$C000B7B000486657,$000C0800B20B10CE,$7B04002985885130,$8400782323C86000,$F13C57F246140099,$7800002AE710AE2B
  Data.q $81453924B93CB299,$2E575707712D085B,$36142B1749CE281E,$79C22E409A610261,$F3E00F3481321999,$E0111591A00000CC,$CEAE0ECE78FDF383,$EA2D5F0EB68E36CE,$FEE3626222FF06BF,$E100004070ABCFE5,$1AB32F2CFED17E74,$25A2FE6D80063B80,$F775A00B5E6804EE,$A000B5400FB2668B,$3C7EF870F357DAE9,$E5D9D9B990A1453C
  Data.q $615B42C44AD8E4E4,$C05FC267FE7D57CA,$F7FC3C7EF96CFD57,$5D328124E2BEE0F5,$F4CCC2E0F8044781,$62840992CF1CA54C,$FF0BB7FC478FE6DC,$B96249C422D31DFC,$8E711251E3142A58,$8922A532F38C9A44,$64FFD225C5299242,$35DF3E03FB2CDFE2,$2D917B013E6AB000,$10274BF603635DA8,$F20000F7E2C07458,$80030828D4C16FBB
  Data.q $3FEFFF77CFE18368,$4966800025A047FD,$2E24445E00007192,$000008C73FB3CA54,$F41B41B02A81A044,$05C11C06C02C18C1,$42843660FC0BC1DC,$640A421042C2C424,$4282AC2960721C80,$2F602A1DB0CD8628,$866851C0341D40D4,$0EB855C22E0E7093,$C19E0861FA0F703D,$08C841040981BC28,$8A620188DA216113,$F8859917088E2358
  Data.q $20248B120448C121,$35914B22511488C9,$485520548A523148,$5C873902723DF21D,$823200C83B91BA46,$B281943147BC86FC,$A8B943B50CD43D51,$64D00BA246841A37,$D09BA0168F9A3174,$E7A1368C3D1AB472,$433E8FDA0F68ABD0,$C4330718E8C030C7,$38B142C3C62E306C,$AC22B1CB6393092C,$03AC56B01AC6AB0C,$0477B1CF63F589BB
  Data.q $77043609C0458112,$4C5848411E612042,$241C20A848D84E58,$8403093709DA1134,$B44BA8932227C251,$326218C4F911BA26,$12D6232C48588731,$C443887B102F138F,$B927324389122437,$12D254A4B1490290,$2CE923526ED246D2,$C993231A48349BA9,$2C943907B26B64DA,$C3E49DE485C82B20,$5BF221E41BE433E4,$53F8A47140629D0A
  Data.q $E5194A6ACA5228E2,$32986506E534E510,$A1A8DD529AA35541,$A1AD425A8F351154,$3413A88751AF52B6,$4B491683CD399A75,$17681AD395A2ADA5,$11BA74E8AF69F768,$D257D0974E1E95DD,$F403E897E847E9CB,$88C78315860D0C77,$671807189B192867,$19A64C98AF187719,$31373054C7198BD3,$556F990F99E798EB,$CA91157C2AB62A58
  Data.q $2A1B9526954A950A,$AADEAAA6AAA9542F,$A98F54CB55F3550B,$53335546AE7D535E,$AA55AB96D409A9E3,$A967531B53EB509D,$546FA867AA87A83B,$590689FD597EA43F,$A051A4434FC34CC3,$630B20C6BCE35FB1,$AB0D6B212C78B319,$CDB126C435817586,$1DFD98BB2A767CD9,$4339A1A9AA3D8BBB,$94F352B357334A33,$9CF87198E3073F66
  Data.q $F397A728E7094E74,$29E229EF14DE8A7E,$5C6531B94C34A61B,$48AB58969796AA6B,$AE36BDEB47AB51AB,$59BB45BDA69DA7ED,$5C274AC7410E81FB,$E79D05CE8F674727,$16A70AA7DD53D953,$6BAA2EAEF53A3D4D,$6EBF7744BBA11BA5,$9E805EBE9E98EEA7,$FAE7BD79DEA76F4C,$FA6DFD54FD2F7D1C,$0CB306580C47F5A7,$C53C18CE0CDB0624
  Data.q $DBC72F1D3C6F7135,$A54340C35D4351F1,$B99184E197619561,$0F468D46D5A33CD1,$6DE324E35CC6698C,$21260626A3C66DC6,$529AEE4DEA4D4B26,$3B4C3BA629A6B94D,$D6CDA2CDCCCDC74C,$E732D7313D9B3599,$60B7DF9BD79BE79B,$B8B6A8B62C5A785A,$EE59A65AE4B24965,$A559395A856EBCB6,$9DAD46B35D5A5558,$11A7BBADBBD625AD
  Data.q $D69EAB4E934EB9A7,$A9B6C9B6F1B0C367,$AEDB06D8E5B019B7,$176267617DB66DB6,$BD93EEC3AEC5B767,$073DFD8D7DBA7D93,$1D5A1DAB0ED9870D,$3A563A1472B4737E,$C57D3FEE9CCE9ADE,$10CF58672FE996F4,$29CB13B6E333D8CF,$6747D39B539D69C4,$8B88F38373B96717,$2E3E972ECB824B89,$4AE4BDC8DDC61B9B,$F5D27AE15D71F574
  Data.q $DBA8EDC29BB39B9D,$DC87EE69EE36EEAF,$33599E299F34CC9F,$E551E043C8C3D073,$DF6B30959F0B3FD1,$B567814F434F7EAC,$AD57912F632F23E7,$61F7AA77A5B7B0D7,$E39F723EF63E17EF,$59DE32DE373CE33E,$CBB7C8B7C037CC5F,$43DF855F9E6FC34F,$D1FF7AFF64FF237F,$890367012580A700,$7AF8FB025B814181,$65DB3A3F8EBF217C
  Data.q $B9A08C41EDD9B2F6,$E582AD828F411541,$AD90ECC86821ADC1,$69CE91CE98E7F721,$07D0D6E87E50850E,$270C7EC38B61E661,$708E3F8657858785,$77359731D11A5888,$44FA44DF7343DCD1,$394F31679BDE4496,$2EAA3E2A354A2DAF,$3FBA34BA37DA3C6A,$9D58D5CC59662EC6,$2A2E391C4B6C4958,$EDFCDFBE6C6E36AE,$7BE30BE29DE287F3
  Data.q $A179705DC82F9817,$2EA916A785F4C2CE,$4E884C40963A2C12,$16A82A1041F09438,$0A8E257713F2258C,$D12F2267C21DC279,$1E2A5C43D888D136,$EC927A4D2A48F24E,$A533C5247935BC91,$BC90A92784B9E52C,$169E3A9BDD4C0D4C,$BD3A3D326D20769A,$AA42719091928331,$E667EA67B6934D21,$FEB28565ACCB7666,$07951E2FB78B6EC5
  Data.q $2D5905AC90B36BC9,$285A54E8A642B60A,$66576567B2072AD7,$9EAB9639CA89CDBF,$90DBCAB3CCEDCD2B,$C212EDFF9FEF9C37,$574B86A5B692E112,$396AACBDE6581D2D,$15E30ADB79713CB2,$B83CAC0656862B05,$EDAB4FD56D2AB68A,$4D7A26BD7EAE9757,$B5C182CAC15E816B,$85E50A550BEB6B01,$584F5DEDD7DCEB7D,$9D86FA61B5DF592F
  Data.q $DB14AE8A89153E1B,$78DC28D87F159717,$DC99BFCA6F871BE5,$CF64B9C4ABA9B494,$9E2DDEE6E966D266,$0E97E697AA960E5B,$56DF0DB4DAD90D6E,$972FDB45F6F5EDB4,$B943B683BBDB28CD,$C9A765BCB83CBFA3,$F454A4543F3BCDCE,$B5DDD2EE3654FA54,$7B1BEED16EF8D761,$BC5BDBD5EC34F6BC,$0155DBBEC93EFDF7,$49FB65D566D54D55
  Data.q $E9AA89AE3FF7B3FB,$6D4EAD5D6DFB96F8,$07FD03D203C7ED71,$1DD5D4B9D7B60E23,$EB2BD68F52543DD2,$EF9DFEBE1FC70E47,$9C8D550D360D2D77,$E9E479447023E2C6,$DA3A0D1EF7DF09F7,$1FD307E1AC7B8C76,$9A426A2F1D671D76,$5BFB9A539B469AF2,$D6D13ECC4FBA5B62,$0F1FDB47FC7ADEEA,$54F34A79593C349C,$6793D382E9DA69C9
  Data.q $7E7D9D959D8CCFF2,$7BB6A2DB60DCF92E,$EF6F0F6ADFCE63E7,$8BFF45D2E17410BA,$B8F25CCE3BBC3BE7,$B85713E5DBB2F274,$74EA6D5F3AAF9A57,$BBC74FD393FE3CEA,$B96B5CB9AE9ABB9C,$E9F7667BB5BD7AEE,$79BDF4DDCE379E1B,$3D399ED5D6FF16F1,$F7C5F76F7AF3BDDD,$FD27727EDD16DFF5,$ADEE2777D9BBCBCE,$41ED40F45FBC4FBC
  Data.q $FE5B3FD587DD43D9,$77C06A7FDCEFD8DC,$8506F747DCD1F3A0,$430F8FF591FECF83,$860D86CB8F998F05,$3FE239393E389EEB,$64CF43A7FCE9FD72,$CBFEA2FE179E26CF,$EBD5F87E2F1617AE,$F297A1D198D1CED7,$EAFDA57C6DBF9397,$C6C2C6DBAF19EBC0,$F45E313378C9BE1E,$1D77DC77C1EDFB56,$207CE44F0FDFA3EF,$53F5B1F968FF287F
  Data.q $FF93931993FBA7D0,$2D3363FCF3980304,$4D416704000000DB,$51FB7C8EB1000041,$5248632000000093,$800000257A00004D,$800000FFF9000083,$EA000030750000E9,$170000983A000060,$01000046C55F926F,$6CDA7854414449F8,$3FC71441146BBF92,$301898888B743FB3,$582084120CA48207,$963ACAC069624488,$57362163680A5FE6
  Data.q $44E4140E628D8098,$8D824126D04090B8,$BCCECEEDDEC2E049,$0307C4BDBB99B167,$C677DF7CCFBDE3F3,$6300573CDF5F2AA8,$FA15D9AB8E3BDB0C,$44479711127134D5,$633C3B14BDCAC471,$3CE193F2F2B01838,$4C4DC2FCCAF50012,$8F8793CA7BEEF114,$9FE966E6B4070C18,$D707DDC0FCDFBC15,$46699FB7C7C45130,$2A1FEC2738AA2002
  Data.q $66B7730BE776C1CE,$E21FE1C1CBFD3D39,$16AD5A1DE6D5E228,$A255500B5318C4CC,$A679A3DD84E219F3,$CDFC383818C75C6F,$AAA98F8E4E2FDEDE,$989696960FDE9D92,$B27AFDBB7698FDBA,$49FFDD9E17BC5505,$0888ABABAB29E4EF,$B0E9D3A0055517C1,$B76B5BD7AF48B8B8,$1E7381E0A22F00DB,$88B142002D247E71,$29A692EDDBA5AD60
  Data.q $C40B0C505236B222,$587986144D1C414D,$534D27BDE32F2F2F,$C2B2D82DC6B6B6B6,$8884239B13AD017B,$169550027807EC4C,$E0888F7BC08D04E7,$492795ED41E4BFBD,$6A2F30C063739C12,$BC5C66C484275C40,$02F10AAA0AD79C3D,$9BBDE1008ED6B06A,$C581E9B6B588049E,$6E272CB286C68257,$C72CB2C291800268,$8A235479C42B6700
  Data.q $04845E3D464440A2,$179C00031F3CF28F,$5553DEF1CF3C8562,$EC05FF1B4216A5D5,$2C81666CE007DB7E,$965910804BD550CB,$001E6A57EBF7EFD1,$1FF9A0B36BAFAFAC,$6FF30D8D8D8DFE2E,$3E9BF60493041E00,$4E45490000000082
  Data.b $44,$AE,$42,$60,$82
  
  supprimer:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$4144495B03000061,$9B4C4FD35D9C7854,$B4A7F3F7F1C71C75,$94B6904D9FCB680C,$C8C37F8E92C967F0,$868A187609C1C11F,$9183CDBD499B8C8C,$221771B3C1E8C16D,$A0B89A090C4919B2,$A44D121838586207,$184C806C643B3603,$FB4FB4F2DA7D0641
  Data.q $C93F38CC83C7BF3C,$2F37EFA73E1EF937,$BCBEA8686865FF89,$E23974F1E65C3CBC,$8DDCDEEDD64020F1,$2626C6767676E7C7,$BD2F9E97DBFE9626,$10B3E850A1B9BDBD,$017E6172D96353BC,$E7FE20E1C9005F6E,$FC4648F3EC1D9E13,$4CAE565656B728A6,$9E9E801400A74F4F,$0F3A679B9B57DC9E,$7540A467B5EDFD63,$25C6492E216F1E2D
  Data.q $C6ACAD284A4A78C9,$E24D47E3EE522B27,$756A77AF6E6BED74,$47FBFBFA0054D575,$05AE7CD9BC1D9E3B,$1FC4E491230EAEBD,$FD0711290C5A489B,$AA32B2AC0A8AFD88,$FBF49152BAB0853C,$0E0CA0FFCFCFCD4E,$96B79FDDBBB7D60E,$AA67450B6B74A4FA,$ADE49BC7B47E8350,$782BF37EC13242AD,$A44B429D95719BDB,$5E4351F4F40E2808
  Data.q $35C204081ABDF830,$1B0C479E505CA4F1,$FD83781BC8555500,$0DABB787CFB621D8,$2EE97649A658DB61,$72F2DC7AD4B3B3C5,$4F85C2EB79586555,$F1C4E9D7B17A13EB,$2A5F3893E2C902EB,$AAD43AC694659641,$EC4D3A749A74A920,$DAEA30FAF979AFCB,$DD7B7A7651078C43,$914B4A8B05A68E72,$1B8DF70251E7030C,$AEBA14A9E8CB2224
  Data.q $ABF2418618EBA473,$0016587157230249,$40154169A1C6DB2E,$A3B0369D8B201592,$1F41390BFCFC49F7,$BA85A69810840842,$C4052069042C84BC,$9DCD9E3C66AFDF8E,$F6B10B977EB5E35B,$8FBB78E1AE0FDD90,$B02108DB6D83264C,$1699AC6BC3FD1B6D,$8924F60745BFB7F9,$9CDA6AEF29B3C7AC,$7F7D3CA20F079F96,$9A6269A600F2F918
  Data.q $311645636E6FD916,$79572318DB610B4D,$2CF67920039FB172,$18D8D8DE4E6D354F,$DD81D54916EEEF5B,$3185A6985A698ED9,$7E1B908D1F251DF5,$D844D34C25DDF497,$DD87017F1B5B5482,$46894C7B7B7B62DD,$2E05E51D1D35BBA3,$5F3AC4E317F55367,$4C7C9F450EF1F8C7,$3BD9A90CD9920852,$70716C6C481BEA64,$FEFCF73CFE71187D
  Data.q $24402AE3A3A3A39B,$0B69EB6B44EF7912,$0E19B3387D7DFD3A,$24A3F4C1F1D49B6D,$1757571B0A4C387A,$E1616F74FCB4B7BF,$D54DD7D7D616BFCA,$E75A4F1B1A3298E1,$7B7B692EBA321A9A,$0850A424919FE024,$8CDDF3EFB892E971,$BD4999999E5E2E2C,$2BEA06060679F1A0,$CE57776EA5C32B2B,$ADADADE731CCE731,$0DFF3817C9C9C9B1
  Data.q $094D02F00E8A6747,$444E454900000000
  Data.b $AE,$42,$60,$82
  
  selectionner_Tout:
  Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$4D41670400000061,$61FC0B8FB1000041,$474B620600000005,$A0FF00FF00FF0044,$700900000093A7BD,$00130B0000735948,$189C9A0001130B00,$454D497407000000,$061937100C09DC07,$4993010000B900A4,$3B9095CB38544144,$6EF99F861061546B
  Data.q $178C049AE3DDD939,$831082E4B168245C,$92021548B0A483FE,$1FED48B2B2A4A522,$5809A2310B0B1110,$94810946D6C29084,$CB2C56E4580852C1,$8AB0C11632E7BB26,$CCFBCC30336FACE6,$4B8BBCB590296BCC,$2D6C72C8F5C7078C,$53B4EE238F519A8B,$F3C32C4B54FC8B76,$E2C15EFA00F1304B,$0645E937E09BD07D,$7A0A78185595F066
  Data.q $D5289F83081FB115,$8045CAD0C23803DE,$8651A4997318711C,$1EFF5C0DD0C211A5,$D0038DFB72A73349,$81A32200BFC2E1F6,$23D9412D6D398F38,$F2BA248FEFCDA1A6,$3D6A707CEE5B6311,$D67B7433DEE12BFB,$199E9AA3D940C48A,$20671957A18C50C8,$D088AA6FD9F9A0F2,$5DBA775C1023003B,$017FE00EFCE507A5,$A89CF5347FF04088
  Data.q $280EF00428B6B3DB,$AA4168E747133577,$087921EC08E295F5,$307E2DFD6A935B18,$DCD0BE582EBF1A01,$EB218839DB90AE3E,$6482F84C2DAD21EC,$4CA45EE1D8B45207,$78F03B770AFCBC29,$F49CF8FCBC463612,$986185310C2B5ADF,$B093C330C64F06FF,$ED10F0849DEBC11F,$EFACE985605E174C,$B4F41254163E1CDA,$5BE42684C3527A45
  Data.q $E5E1C26DBC59013F,$454900000000F608
  Data.b $4E,$44,$AE,$42,$60,$82
  
EndDataSection
;}

UsePNGImageDecoder()

; Procedure pour savoir si la souris est sur un gadget.
Procedure.l IsMouseOverGadget(Gadget)
  If IsGadget(Gadget)
    GetWindowRect_(GadgetID(Gadget),GadgetRect.RECT) 
    GetCursorPos_(mouse.POINT) 
    If mouse\x>=GadgetRect\Left And mouse\x<=GadgetRect\right And mouse\y>=GadgetRect\Top And mouse\y<=GadgetRect\bottom 
      ProcedureReturn #True 
    Else 
      ProcedureReturn #False 
    EndIf
  EndIf
EndProcedure

Procedure OuvrirFenetre()
  
  If OpenWindow(#Fenetre, 327, 177, 500, 300, "Exemple EditorGadget Avec Menue Contextuel...",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_TitleBar)
    EditorGadget(#Editeur, 25, 25, 450, 250)
    
    CreatePopupImageMenu(#MenuPopup_Editeur, #PB_Menu_ModernLook)
    
    MenuItem(#MenuPopup_Editeur_Effacer, "Effacer" + Chr(9) + "Ctrl+Q", CatchImage(#Icone_MenuPopup_Editeur_Effacer, ?Effacer))
    MenuBar()
    MenuItem(#MenuPopup_Editeur_Annuler, "Annuler" + Chr(9) + "Ctrl+Z", CatchImage(#Icone_MenuPopup_Editeur_Annuler, ?Annuler))
    MenuItem(#MenuPopup_Editeur_Restaurer, "Restaurer" + Chr(9) + "Ctrl+Y", CatchImage(#Icone_MenuPopup_Editeur_Restaurer, ?Restaurer))
    MenuBar()
    MenuItem(#MenuPopup_Editeur_Couper, "Couper" + Chr(9) + "Ctrl+X", CatchImage(#Icone_MenuPopup_Editeur_Couper, ?couper))
    MenuItem(#MenuPopup_Editeur_Copier, "Copier" + Chr(9) + "Ctrl+C", CatchImage(#Icone_MenuPopup_Editeur_Copier, ?copier))
    MenuItem(#MenuPopup_Editeur_Coller, "Coller" + Chr(9) + "Ctrl+V", CatchImage(#Icone_MenuPopup_Editeur_Coller, ?coller))
    MenuBar()
    MenuItem(#MenuPopup_Editeur_Supprimer, "Supprimer" + Chr(9) + "Supp", CatchImage(#Icone_MenuPopup_Editeur_Supprimer, ?supprimer))
    MenuBar()
    MenuItem(#MenuPopup_Editeur_SelectionnerTout, "Selectionner Tout" + Chr(9) + "Ctrl+A", CatchImage(#Icone_MenuPopup_Editeur_SelectionnerTout, ?selectionner_Tout))
    
    AddKeyboardShortcut(#Fenetre, #PB_Shortcut_Control | #PB_Shortcut_Q, #Editeur_MenuPopup_Evenement_Effacer)
    
    Repeat ; Départ des évènements de boucle.
      
      Event = WaitWindowEvent(1) ; Cette ligne attend pendent (Minuteur) qu'un évènement soit recus par la fenêtre.
      EventWindow = EventWindow(); La fenêtre oû l'évènement c'est produit.
      EventGadget = EventGadget(); Pour savoir sur quel gadget c'est produis l'évènement.
      EventMenu = EventMenu()    ; Pour savoir sur quel menue c'est produis l'évènement.
      EventType = EventType()    ; Le type d'évènement qui c'est produis sur le gadget.
      
      ; Interceptera le clique droit seulement si celui-ci se fait sur l'éditeur.
      If IsMouseOverGadget(#Editeur) And Event = #WM_RBUTTONDOWN
        InterupteurCliqueDroitEditeur = 1
        
      ElseIf IsMouseOverGadget(#Editeur) And (Event = #WM_RBUTTONUP And InterupteurCliqueDroitEditeur = 1)
        InterupteurCliqueDroitEditeur = 0
        DisplayPopupMenu(#MenuPopup_Editeur, WindowID(#Fenetre)) 
        
      ElseIf Not IsMouseOverGadget(#Editeur) And (Event = #WM_RBUTTONUP And InterupteurCliqueDroitEditeur = 1)
        InterupteurCliqueDroitEditeur = 0
        
      EndIf
      
      Select Event 
          
        Case #PB_Event_Gadget
          
          Select EventGadget
              
            Case 0
              
          EndSelect
          
        Case #PB_Event_Menu
          
          Select EventMenu
              
            Case #MenuPopup_Editeur_Effacer, #Editeur_MenuPopup_Evenement_Effacer
              
              ReponseEffacer = MessageRequester("Avertissement...", "    Vous êtes sûr de vouloir tout effacer ?", 52)
              
              If ReponseEffacer = 6
                SetGadgetText(#Editeur, "")
              EndIf
              
            Case #MenuPopup_Editeur_Annuler
              SendMessage_(GadgetID(#Editeur), #EM_UNDO, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_CANUNDO, #Null, #Null)
              
            Case #MenuPopup_Editeur_Restaurer
              SendMessage_(GadgetID(#Editeur), #EM_REDO, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_CANREDO, #Null, #Null)
              
            Case #MenuPopup_Editeur_Couper
              SendMessage_(GadgetID(#Editeur), #WM_CUT, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_Copier
              SendMessage_(GadgetID(#Editeur), #WM_COPY, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_Coller
              GetCursorPos_(mouseP.POINT) 
              SendMessage_(GadgetID(#Editeur), #WM_PASTE, #Null, #Null) 
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_Supprimer
              SendMessage_(GadgetID(#Editeur), #WM_CLEAR, #Null, #Null) 
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_SelectionnerTout
              Range.CHARRANGE\cpMin = #Null 
              Range\cpMax = -1 
              SendMessage_(GadgetID(#Editeur),#EM_EXSETSEL,#Null,@Range)
              
          EndSelect
          
        Case #PB_Event_CloseWindow  
          
      EndSelect
      
    Until Event = #PB_Event_CloseWindow ; Fin des évènements de boucle.
    
  EndIf
  
EndProcedure

OuvrirFenetre()

Re: Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 18:56
par falsam
Shadow a propos d'ACME a écrit :HA HA HA HA HA, un gars aussi calé que toi HA HA HA HA (Pas méchant hein)
Évidement que c'est possible, largement même mon cher Marc et je vais te faire voir comment en plus !
Deja fais de nombreuse fois, dans mon editeur d'expression notamment !
C'est facile mais par des moyen détourner et sans API !
Et en plus c'est très propre je vais faire un exemple :)
Sans API tu es certain ? Regarde bien ton code :mrgreen:

Code : Tout sélectionner

...
GetWindowRect_(GadgetID(Gadget),GadgetRect.RECT) 
GetCursorPos_(mouse.POINT)
...
Case #MenuPopup_Editeur_Annuler
              SendMessage_(GadgetID(#Editeur), #EM_UNDO, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_CANUNDO, #Null, #Null)
              
            Case #MenuPopup_Editeur_Restaurer
              SendMessage_(GadgetID(#Editeur), #EM_REDO, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_CANREDO, #Null, #Null)
              
            Case #MenuPopup_Editeur_Couper
              SendMessage_(GadgetID(#Editeur), #WM_CUT, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_Copier
              SendMessage_(GadgetID(#Editeur), #WM_COPY, #Null, #Null)
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_Coller
              GetCursorPos_(mouseP.POINT) 
              SendMessage_(GadgetID(#Editeur), #WM_PASTE, #Null, #Null) 
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_Supprimer
              SendMessage_(GadgetID(#Editeur), #WM_CLEAR, #Null, #Null) 
              SendMessage_(GadgetID(#Editeur), #EM_SETSEL, -1, #Null)
              
            Case #MenuPopup_Editeur_SelectionnerTout
              Range.CHARRANGE\cpMin = #Null 
              Range\cpMax = -1 
              SendMessage_(GadgetID(#Editeur),#EM_EXSETSEL,#Null,@Range)
■ Sans API c'est possible.
http://www.purebasic.fr/english/viewtop ... 5a#p484857
et c'est simple à lire.

Re: Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 18:58
par Marc56
Merci. C'est plein d'API :?

Cependant, je serais preneur pour une explication détaillée sur les paramètres utilisés par exemple dans

Code : Tout sélectionner

SendMessage_(GadgetID(#Editeur),#EM_EXSETSEL,#Null,@Range)

Re: Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 19:14
par Shadow
Je ne connais pas d'autre façon de faire, Oui sans API pour appeler le menue...
Et moi le clique se d’éclanche que si tu fais ça sur l'éditeur, pas ailleurs.

Pour l'appel des fonctions, annuler, restaurer, couper, etc, je ne connais que ça.
Ma façon fonctionne très bien.

Maintenant si ça plais pas pas grave, moi je partage juste :)
Falsam, au grand Falsam toi qui est si bon et si fort, si humble
montre-nous comment tu ferais toi.

Marc, je connais pas les APIs, ce sont des codes récupérer mais
les fonction parle d'elle même, même si les paramètres, je sais
pas trop à quoi ça correspond mais je pense que c'est bon.

Re: Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 19:26
par Ar-S
Ne pas confondre le menu contextuel qui n'a pas besoin d'API en soit et certaines commandes comme couper coller etc qui elles demandent d'utiliser l'api sendmessage

Un menu contextuel simple :

Code : Tout sélectionner

       OpenWindow(0, 100, 100, 300, 190, "Menu contextuel clic droit")
    EditorGadget(0, 10, 10, 280, 170)

      If CreatePopupMenu(0)
        MenuItem(0, "Choix 1")
        MenuItem(1, "Choix 2")
        MenuItem(2, "Quitter")
      EndIf

    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Break
       
   
          Case #PB_Event_Menu
            Select EventMenu()
              Case 0
                Debug "Choix 1"
              Case 1
                Debug "Choix 1"
              Case 2
                Debug "Quitter"
                End
            EndSelect

          Case #WM_RBUTTONDOWN
            If EventGadget() = 0
              DisplayPopupMenu(0, WindowID(0))
            EndIf

      EndSelect
    ForEver
    End
Et pour le copier/couper/coller simplement TOUT le contenu pas besoin non plus d'API., un GetGadgettext() Serttgadgettext() suffisent aussi.

Donc en gros le sendmessage ne sert que dans des cas particuliers ou l'on a besoin de couper/coller des morceaux de texts contenus dans un editor.
Soyez précis dans vos explications sinon vous vous embrouillez tout seul.

Re: Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 20:19
par falsam
Mon cher Shadow est ce que tu comprends que tu ne peux pas sortir une phrase comme
C'est facile mais par des moyen détourner et sans API !
et dire en même temps dire
Marc, je connais pas les APIs, ce sont des codes récupérer
Bref passons.
... montre-nous comment tu ferais toi.
je passe sur les propos précédents ces quelques mots. Sans API je ne vais pas te montrer comment je ferais puisque d'autres l'ont fait. J'ai cité un lien précédemment. Peut être que tu n'as pas lu.

:arrow: http://www.purebasic.fr/english/viewtop ... 5a#p484857

Ce code est sans API. Ha mince c'est vrai que tu ne sais pas ce que est une API.

Re: Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 20:32
par Kwai chang caine
Ha mince c'est vrai que tu ne sais pas ce que est une API.
Image

Non ????? :oops:

Re: Exemple EditorGadget Avec Menue Contextuel

Publié : jeu. 09/mars/2017 22:30
par ChrisR
Image
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru