Soucis de lancement du menu

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Soucis de lancement du menu

Message par Ar-S »

Me revoilà avec un code qui marche pas au niveau du menu, ce que je ne comprend pas.

- j'ai un menu #Menu
- Un ItemMenu : #menu_about
- Une procédure openwindow_WIN() (c'est la fenêtre principale qui contient des boutons et le menu. ils s'affichent bien)
- une procédure openwindow_WINabout () (fenetre contenant juste un texte)

Lorsque je clique sur #menu_about, ma procédure OpenWindow_WINabout() est censée s'executer. Et bien que néni :twisted:

Voilà la partie du code qui pose problème

Code : Tout sélectionner

Openwindow_WIN()
; puis ma boule s'exécute
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Largeur
      ElseIf EventGadget = #ResiZe
        Resize() ; là ça marche
      EndIf 
      
    Case #PB_Event_Menu 
      EventMenu=EventMenu()
      If EventMenu = #menu_about
        OpenWindow_WINabout()
      EndIf
      
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #WIN 
        CloseWindow(#WIN)
        Break
      EndIf
  EndSelect
ForEver
End


Je ne pige pas pourquoi

Code : Tout sélectionner

 Case #PB_Event_Menu 
      EventMenu=EventMenu()
      If EventMenu = #menu_about
        OpenWindow_WINabout()
      EndIf
ne lance pas ma seconde fenêtre.

Si vous aviez une tite explication, ça me ferait bien plaisir 8O

D'avance merci
Haut
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

salut

j'aurais ecris plutot comme ça :

Case #PB_Event_Menu
Select eventmenu()
case #menu_About:OpenWindow_WINabout()
endSelect
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

ça ne marche pas plus :(
Haut
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

peux tu posté ton code complet ? svp afin que je puisse taider
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Voilà mon code complet (sauf procédure Resize mais elle n'a rien a voir avec mon soucis)

Désolé pour la taille de l'image en datas

Code : Tout sélectionner

;{- Enumerations / DataSections

Enumeration
  #WIN
  #WINabout
  #Largeur
  #Hauteur
  #Text_L
  #Text_H
  #ResiZe
  #Image_ButtonImage_8
  #menu=1
  #menu_about=1
  #Image
  #BT_retour
EndEnumeration
;}
Global about$="ResiZe v1.0"+Chr(10)+Chr(10)+"Ce logiciel a été réalisé par LDV MULTIMEDIA"+Chr(10)+"Il permet de redimensionner les images JPG et PNG."+Chr(10)+Chr(10)+"Découvrez d'autres logiciels sur http://ldvmultimedia.free.fr"
Global WinL=168
Global WinH=135
Global V$="1.0"

;{ Included Images
DataSection ;>
  Image_ButtonImage_8:
  Data.l $474E5089,$0A1A0A0D,$0D000000,$52444849,$A0000000,$42000000,$00000208,$4A215F00,$000000F3,$58457419,$666F5374,$72617774
  Data.l $64410065,$2065626F,$67616D49,$61655265,$C9717964,$00003C65,$4449F71B,$DA785441,$8C695DEC,$7E55D764,$D6ADBEF7,$7BBDEAEE
  Data.l $4B3D3DA6,$2C978CBC,$10504C4E,$4A470091,$424B110C,$81472422,$C4221410,$822C288F,$0255881F,$48B62405,$CB0A0401,$0848880F
  Data.l $E3127622,$8C1DB228,$B63DB1EC,$C7B1E3C1,$78B3C78E,$D6BBDEB6,$CBBDEF57,$7B79EE77,$926A4F75,$EA89DDC1,$754D4DE9,$7BAAABF5
  Data.l $77CE77EE,$6DDE7B96,$BEF7E3E3,$DF1D18DD,$15C007A3,$CFBEEFF8,$528F187E,$530C210A,$A694D34A,$2BC47814,$BFC10A74,$1C7A2212
  Data.l $1EEEDC4D,$0E84420C,$08C82290,$EC24CB2F,$4C70BC12,$ADF7E9BD,$D1453E9D,$5E7C4781,$DD08E884,$60AE83BD,$98FECB6B,$A37E8EC7
  Data.l $376D8B0F,$E118CFC2,$F483DDF7,$AB06F60E,$C6346FC4,$75F1C009,$B6C5B4DA,$DDB23CA6,$1ABE623D,$0C1A22DA,$30C21E11,$620D6784
  Data.l $9C167374,$6DE48BD1,$13F111AC,$DE508C65,$9D6323DD,$9D2E8322,$F444A861,$12980863,$78600988,$B07CEDE6,$CF475F11,$6DBF09F8
  Data.l $8BBBCD64,$A04E5031,$98022251,$212BC630,$B391A49B,$B05B5360,$E2CC018A,$8440BD07,$C9BBD216,$444D49D0,$E3A3EFCA,$CCBBF7F5
  Data.l $0964DAD4,$C3568211,$603FC114,$8705A97A,$00371161,$BAF13809,$8F511194,$F365DDD0,$8E039155,$D36955F9,$6221A433,$E2F6558C
  Data.l $78916004,$362A7D59,$0D9F88E2,$262226AD,$EF3F11FA,$48EB05AA,$591BB60A,$A85F9B30,$8A0AB27D,$451A53F1,$118769B3,$4F018B83
  Data.l $F80A98AC,$BD134673,$249C16BB,$2351ECBA,$3F06558A,$952F2266,$46DAD146,$2ACEA715,$2919501B,$928687D7,$63A3C611,$59563117
  Data.l $824465C3,$1F317A20,$B300C75A,$3DC98D67,$D73F2E87,$6109AD96,$3A3E2F1B,$7854E75E,$CB359C80,$7E41C5E2,$A7D6004E,$99E3842A
  Data.l $799D9AA0,$88F319C8,$4D3777A2,$D30DAB22,$E66226A4,$57B2B902,$A6DE008D,$82B99574,$5F48E0F3,$63AD51C2,$322C8377,$093BA437
  Data.l $418740C6,$E2394C49,$AA532367,$305BA02C,$4D6CE673,$44B646E3,$C9763A32,$72A53580,$B292ABB8,$D8A8BF04,$CB0CAA85,$D2E96FCA
  Data.l $0A308D63,$EC7479BE,$AF1D144A,$B974A9F2,$8A548B2F,$DE0155D5,$BA11C816,$35878DDF,$94E8E2B4,$869F6A89,$CF4E3F5D,$394329BD
  Data.l $2DCC18E4,$E2AF3561,$327F5438,$3046EBF4,$20EC77B9,$579D7652,$6962E708,$8E512BFA,$1984D41F,$F37A12C9,$113DEADE,$EA48A9E3
  Data.l $84CD9634,$61394A34,$8A88CA7F,$2F74CA45,$46945FA6,$1E1F02A5,$9D7C6F76,$C86B1883,$257508E9,$6524F293,$E69EC754,$67273BD8
  Data.l $9912492C,$28659919,$27708283,$AD052CE8,$6D6118B7,$E90E31D7,$A19D0150,$BC72FC34,$66EC2E12,$20FD3356,$40806AD4,$9FC75546
  Data.l $1911B14E,$31FE33A9,$782B3D91,$08CA9A44,$F800F37A,$B3945E75,$0C0E9C86,$40C3F031,$E4A4CBCF,$A8BC80EE,$7D71B4B1,$F19C8B93
  Data.l $E178E223,$AB29EA89,$DD6FCA72,$FF7D6FEA,$ECE3456E,$DF4520C0,$A0FDFB0F,$E066F9E7,$266D884D,$02E2571D,$A1FBEBA0,$B2D307EF
  Data.l $0018AC28,$2A3F1138,$E308ABDD,$F3657B08,$A35EED7A,$3F0E9A68,$DF9EBD0C,$1FAF02F3,$5724901C,$1B62C16A,$32458F8B,$C46D8EB8
  Data.l $6AB4E2D2,$76904227,$C3DDA6F7,$D0176C98,$66FDBA76,$5EFC73DB,$F1F9E734,$B8335B74,$23DC4606,$63217DC1,$5E0BCF2B,$29573E5C
  Data.l $C25E86C0,$8084BA13,$89BD7AAB,$D8D21950,$54CD1463,$BB4179E6,$EAD1D343,$FB4CA5F4,$AC059202,$56E722A2,$1123A02F,$D2C17ACC
  Data.l $EF1FC670,$742A4B7A,$32630577,$EDD07EDF,$DECD9BF9,$F5D746FA,$D978093A,$68420823,$AB7A1400,$1E5AB5E5,$3522412B,$E2339CC3
  Data.l $BC82738C,$CE082861,$24269750,$C752D7AF,$EBC53285,$84351AD9,$700C360F,$B4060014,$8DDD9BEB,$BC012EAD,$38674B13,$801950CA
  Data.l $E4B30C45,$3A593D1F,$DF6FB615,$2A125CAD,$9760A10B,$FCEF76CD,$7FB3D2A5,$680866FA,$3B29514A,$D53B9AF5,$958F8CA8,$7A05AE4A
  Data.l $9B1BC606,$297AB71D,$B2445805,$F3A718A7,$B8956710,$B4A40038,$6B60438A,$4E5F66CD,$97B99D91,$11F1D600,$BE54163C,$DF9505BF
  Data.l $AE334AEC,$EA39E66E,$98B97F33,$72E55364,$9D0DF878,$59B5DEB7,$D703B572,$72D2C534,$EF6201EF,$86DF4324,$E90BF1E1,$63256B09
  Data.l $A1447577,$E9848643,$A06133DB,$E04FA20A,$1D531214,$89E13804,$52C319C9,$076DB001,$06A10578,$3801A11E,$ECD0E860,$AFFCA6B5
  Data.l $95E86787,$9E25A9A8,$DCD28C81,$F16B477E,$D65C6E86,$6960574D,$B66B4049,$F6E15BEF,$2477E7F9,$451E77F2,$15C05CD3,$69C9C741
  Data.l $45097AB5,$FCF9D567,$13F9E739,$698A8B36,$63D8F9C0,$A95F03F6,$2E57E27C,$2E7C2637,$86B4B296,$5DD32E26,$32CA85ED,$E9CF8645
  Data.l $AB05CE90,$395D92FA,$F20B690B,$F3789693,$A0C6FB7E,$B2364B93,$3837076F,$EAECE7F5,$196AD24B,$3089CE46,$56BF2A9D,$99DEABF2
  Data.l $3D7643B7,$6DCB717E,$F9B86FCB,$901CE90A,$4A658530,$534D32DB,$AFE35B76,$6D8DBC9C,$3CCD757D,$C434E0FD,$99642A87,$20C46940
  Data.l $DEC5FEEC,$85747FBB,$1854DB9B,$62757815,$86C74BA9,$E2DCF971,$EB1BA5FA,$BCC66DB5,$FC9AC8A3,$B081DE82,$F91054BB,$51D1473A
  Data.l $298C059C,$80220CEC,$FC653465,$B69AEDD8,$B5A0F26D,$AFF5D3EE,$4F27105D,$01F8EF3A,$F35CA95F,$280F3D1E,$F05254A4,$2AB45134
  Data.l $8F336B37,$A94B95DA,$3DFE25CD,$BA59A37E,$8FF43388,$2377AB7B,$4D06CB52,$AF6139B0,$101F1634,$EB8B9FB2,$73467633,$A72D34E4
  Data.l $0CD69769,$64C24663,$E898D92D,$1AD4B0DF,$8AC6A570,$D0429157,$5092003D,$3E022CB7,$E1A1F7A7,$170821E3,$ED7F77F6,$4F50AF37
  Data.l $CB62B26A,$5492AF2B,$ABC61439,$773B9CDF,$13D34DEA,$DA85B691,$61663068,$9FA6572D,$4CE446D8,$CE9566BC,$598CF728,$BF5FDE3D
  Data.l $D793F95B,$1435F30A,$03A3B83A,$33B8D0A8,$6713CBE6,$AC6262DB,$F7815F8C,$6CEC3ABA,$5FBD7077,$621C06A9,$D99D58A8,$719DBB8E
  Data.l $A414C55A,$0C58C8ED,$C0FA7973,$8BECD283,$B4997F01,$DDDE2420,$99A59A74,$DE573BFB,$D6958C03,$1F827C24,$7C0FE674,$46FB34DD
  Data.l $0315433E,$EB460D59,$394CD656,$8E4AC00B,$07214785,$EAA314BE,$8EB2A0D7,$0E2B5563,$B294DF3E,$0EA822EB,$C3A146D8,$85F1343A
  Data.l $93E27DE9,$286AD52B,$5FD2B992,$F0336BC6,$4C4F274A,$E8F2789D,$DEE4ACFC,$3EC37637,$A3B8BC8B,$C97A49C8,$69BB4B30,$5FDFDE4F
  Data.l $D70547BD,$AD75B186,$D9313F26,$CC857467,$0C3093C4,$AD9F9CC7,$07318B43,$D6F05A70,$A9C9E4D0,$EAEEDBFE,$583603B1,$AE1EA59D
  Data.l $A7D6B461,$0B269F0D,$636A04F0,$8107A6F1,$2F43B6CD,$073C5DE6,$FB9D5796,$F7D9C6F2,$5781B1C3,$3BBEDDBA,$B729DA76,$29845877
  Data.l $F0C9093E,$9A1EBC54,$C445120F,$1D768819,$1C55ACDB,$8BE6008C,$1E4F9E27,$5C1D159A,$43F5E9DD,$8FD9FDD5,$F19A999D,$8916CA63
  Data.l $333D2932,$9E952E57,$D4D0F478,$92D8EDB8,$2EB426FB,$62E44D5E,$2D322491,$313D34C3,$F96F7F79,$0D2A95A7,$5150F18F,$34E00174
  Data.l $37B8C8C4,$4CDCC5CC,$0E0A4A0D,$169F912F,$F1BADD37,$E45E0FBE,$67520FA5,$B18441FD,$4DAC6C61,$574DAE6E,$E0CB14CA,$3C3785FA
  Data.l $C1FD38E1,$67AF602A,$53BFFF3E,$4783BE60,$9EF56BD6,$0DBC3952,$4F1A95E9,$13BF9CAD,$CF0911AE,$936703A1,$E4D5C212,$340ABFD7
  Data.l $3A19A442,$D9734DD3,$09691E84,$82D681DD,$25CFC1C3,$746BEED7,$B6D32E29,$BEBD740B,$5F07EF7A,$19E85B99,$49850E03,$F705C2E7
  Data.l $7372FF0B,$94A956A3,$6381D76D,$0119A497,$DC373285,$893BDFF2,$B393CCFC,$F07872A5,$DAA57AF0,$1B0CDC13,$3C349F33,$6A9CF2B3
  Data.l $53FAF5BF,$1C40B274,$89F2DA55,$9DF16520,$E6A1D2CA,$10BFB78D,$AF507350,$144CD531,$A99648D0,$CF410035,$A3D9F17A,$465C8552
  Data.l $D4F2E650,$9C9CC5DC,$0BC5C9FA,$F5FECFA5,$2176B801,$F132B545,$3ABC8FA1,$5431DB3D,$32B2BD6E,$97B9F2F1,$6BBA00EF,$A2C39D1B
  Data.l $C0FDE147,$705E2FE0,$BCF2F81F,$C3469C0A,$FD9D55AC,$F3337BFB,$DF09001B,$E482570E,$1445C81E,$0945299D,$E834742A,$82472E76
  Data.l $2B254BA8,$02C0A208,$8BDE3751,$EF7EEEAB,$9DF3730B,$AA6677C4,$AF25A4CE,$EE7EE6BD,$57AA6E9F,$12F5E36A,$AF541E48,$0DD09F69
  Data.l $E9F195E4,$F5503115,$EF7C882C,$353ABDCF,$FF3191DD,$CDF09A19,$EB7EA9F2,$CD86A54E,$D6A1ADA5,$65788CA7,$3E4C3D8A,$75C1E67E
  Data.l $95CD95DB,$31C4FA99,$0527EECB,$8C7E42AC,$F33C7641,$D1BDF76B,$4AB56354,$F4E2E9D8,$4A7EDC8F,$DE58DB9A,$FCDDFC3F,$6C4526FA
  Data.l $1B6AD7F8,$F6343F0F,$E2740FFE,$4A9A334C,$B57DF64B,$4894D5BE,$745E2EDE,$91B717E7,$C68791FA,$CB749E4F,$E2BAB5AE,$DB978C4E
  Data.l $CF17331B,$7931811C,$0298027D,$722C0063,$DD78F4E5,$1A88A0D5,$266DA391,$B76C1C71,$E6287D2B,$B9F07EDB,$B2361B85,$E5D33E9E
  Data.l $F23A7464,$AA5F7FFE,$8D93EA96,$05860032,$617CDA5B,$83C750F7,$24C94F47,$BC8BCD44,$9A0E49B1,$78F63E45,$EB1F9EED,$D1016BC4
  Data.l $EADDA6C5,$8C692D89,$383CCF5D,$A46912B7,$B61B2B7E,$A99877E0,$F6E6E74B,$C4673A1F,$F180AC6E,$9E344F53,$B654B639,$82631BC7
  Data.l $ADADA323,$6AFCF4EE,$3E4C2952,$9AD56D70,$92700E9A,$8F81F8D1,$B8F4CC70,$458D9B3D,$E4A884C4,$865DAB56,$62F53FCB,$DBEFCEE9
  Data.l $F13FF866,$B7DF65BE,$61AA79BF,$925537C6,$8EDFD517,$B60DA910,$1A4ADA5C,$89488421,$0A29F75A,$44295F78,$9DD6BE54,$BE6F382D
  Data.l $A1E2F8F3,$AC550AD7,$476EE004,$1EDFE3FE,$D3937A09,$54A86593,$5C96E6BD,$8478679A,$2D162EB6,$99CCB81C,$41EA5648,$1F5D3D91
  Data.l $459CC235,$E281CB69,$7EEC87D7,$C3A28E1C,$C61032A8,$8F918951,$DE1239A2,$FB3EEAD8,$C3C5BEE4,$6A2A94E7,$F58ACAF5,$407E7F57
  Data.l $A999F1A8,$74B35BAA,$3BB6162C,$EA36205E,$592CBDE3,$A6A69BF1,$F2FF8FFC,$DEE16CD9,$DD49E388,$33449A36,$A3BF3598,$F1F8F10D
  Data.l $776F9DD2,$57B9BE6F,$3572CE50,$CE47D0FC,$FBB6789F,$1C8723D8,$724582CB,$BF0A3FB9,$AB1B01FB,$E8C26EDA,$26DD5B5E,$60031493
  Data.l $3E8E07F4,$B9E0EFBE,$99197B2C,$5B7697EE,$1CDFFDFE,$B740BBF1,$6AC77402,$6B64A56E,$B30CA0C2,$6342F6D5,$520A54BD,$BFDA13FE
  Data.l $550E45E6,$D30A115C,$9F8A8AA2,$B0CB6AE8,$9543F36B,$2D16A3BE,$9728D982,$BCB28183,$BF9EC1F6,$E17EDEBA,$EEB1B905,$6139EE24
  Data.l $BF69E9A1,$631B775E,$765C0825,$0038026D,$6ED37DC0,$9726388A,$4E675B9C,$3E948B19,$F8F05249,$89C9715D,$FE9F52CA,$6733E9B3
  Data.l $F027C2AD,$569BDB79,$4E67EA7E,$E1F41D2E,$8CC75D0E,$479A1633,$BB913A9A,$0A458EEB,$45A93B03,$F01E3570,$ED4E2794,$AD1B3A5B
  Data.l $903C1437,$7EAFF39E,$4CEBC169,$98544D4C,$5C75F19C,$8B45E01E,$1013CB66,$2C209259,$644EDCAF,$3328CB19,$99326CF1,$B618183A
  Data.l $150E4A77,$57E3A560,$297B16FB,$C42464B7,$3D356F2C,$3D8F3B04,$5908563A,$0FE778F9,$2346B1AD,$860B6160,$7EBD7435,$79F8CE4E
  Data.l $4B06640A,$4E755321,$AD58D9AE,$A6047EF3,$FC9E1029,$9D4EEFC1,$9911DE7C,$34C27172,$77CD5313,$610C7DDC,$C40C3411,$4969282B
  Data.l $EF23F9FB,$5ED09990,$5C2A227B,$F78A5C07,$DD2F93AA,$13A7D6FA,$1FB3D3E3,$2CF0A1AD,$F79FFE7D,$1FB53E9F,$2A344EE8,$9E0EAE8C
  Data.l $50FE2E85,$E915055A,$4EA9FAF6,$E46C880F,$A430BA75,$CD6ED228,$BF5D50AA,$21A78934,$BAAB12E4,$0E8D12CA,$BE87BD4A,$7BD77D5E
  Data.l $AC730796,$5E58EF5B,$B6B9633E,$B691740B,$0DC2C032,$DB063484,$DAFA1E07,$ED0FA3FC,$4985BF63,$C2F3E281,$5CB2D80E,$4BC627B2
  Data.l $99D593D3,$62A22AC9,$1E3AE2BC,$EF5E1C9C,$05977AD0,$81FFDF8C,$6FBE4FE6,$68F9172B,$78004756,$4F87AEF4,$D7977B1E,$8D5445B7
  Data.l $B2CB1152,$FB6F4F5F,$C54777E1,$9955C86A,$B796E978,$46944F1C,$EA64254A,$E97E7038,$BEAFF38B,$B2666FB4,$695E3932,$2A317468
  Data.l $6DBB1268,$6C8868A6,$F9108138,$C8A0EF5A,$4ED9AF2D,$068C4645,$AA9D98DB,$9B1B9FEE,$364DAD9B,$2B452BAE,$8549E695,$3952B0CA
  Data.l $3EF9751C,$BC4178BC,$7C8EDA7A,$DB32E667,$AC8E97F1,$2CC8AC60,$FE4A2675,$A59ABC0F,$E69184DC,$2F3CDA17,$0E37BE86,$513228F9
  Data.l $BDBC3338,$7130B252,$FA3A6DAE,$A556392C,$A9902362,$1D57B9C3,$FC4A035C,$3FC617E2,$DDB387F5,$3D1ACCAE,$F769805B,$489F0E17
  Data.l $49C83896,$516CC257,$20670D33,$5D08A051,$DF2E6C4A,$46E396FC,$9F8C078C,$51D7114F,$78D63C9F,$D04599FE,$799804F2,$C285D08C
  Data.l $79A68051,$75C08A22,$B769CDE6,$C6E12018,$D9152F44,$148C89CA,$DC8CA5C0,$AE382DE4,$0E51B569,$CABAD043,$C8BA97A8,$7C5CE707
  Data.l $B3F9F182,$2F851663,$7D0F81F4,$8C8B92BD,$DC0ECBE2,$0BA53CF4,$C091FFDA,$C9E2F841,$52E05192,$DCB7C54D,$BFB0B9BE,$21018B8B
  Data.l $DC57AC84,$71F0B871,$7D314A0A,$D15BAAB5,$F2D65833,$C2E4344F,$375982BC,$7563CAC6,$25F06A0A,$FE944F27,$06168FE4,$38F01B17
  Data.l $163A7F35,$E1BBFE8A,$D3972F06,$35E1E3C7,$CA1BA034,$E3BC77CB,$C496A91B,$019E32FE,$E3E3C4F1,$0477DE0F,$119C82E8,$18ABD467
  Data.l $16AED91B,$A2027055,$4C2883DB,$15C6773B,$21C70585,$72FA8644,$CDE2C4B5,$652E8671,$93B2D90D,$5FEE6AB6,$629919EC,$8EBE624D
  Data.l $7AB4920D,$F7AA0B3D,$7BD5C3C8,$4051BC3F,$6E3A3F17,$FCE67C7B,$28F985CA,$72AAD2EF,$607D8CF6,$53583FA9,$2FA3F7BC,$079FFC3E
  Data.l $2CCFFE4F,$376B3FAB,$1C2CC364,$78BABC3C,$9AD7AB60,$36FA78B8,$F3B03C8B,$D5FE3F43,$BCCCCED7,$89F8FCF8,$31579CE7,$B60F2D83
  Data.l $5CFD38E2,$612685BB,$FA9599F6,$B9B55ABA,$38B98ADF,$1788A657,$F23DBBFC,$F5DCB73B,$59F8E38C,$13458D52,$A7A6B2EC,$FCFD0F83
  Data.l $00030A29,$06E3DEAA,$35A5D9D7,$388976A4,$F4DD4E67,$F87DA5DA,$904776BE,$85FB07C8,$F5A10434,$2FCF224E,$5C1C0F74,$D5B7DF9D
  Data.l $57B64CEF,$704B48DF,$15600BD7,$5F40E0DF,$1B57AD16,$9E282CB9,$502E041D,$D3874C31,$161B5AB6,$51E8FA26,$C2C2DB2F,$9C2E4F18
  Data.l $4311C004,$7EAF87EA,$1F0BFEB9,$5606355B,$B8275D85,$DF979EFB,$AEAF23F9,$66A2D72E,$5D98C301,$D1CA4F58,$E23F1C2F,$DC83CE50
  Data.l $FB0BC5D4,$1E2CAE97,$EFC3F2BC,$ED7D8FA1,$D5313B9C,$5424D907,$C7ECB513,$AD5F5E63,$4C276187,$6910DF6E,$81E2AD7A,$98402F21
  Data.l $8E00088D,$8D89BF24,$E8C34D4E,$D2F18183,$E40726A1,$AA2CAE2A,$FB372881,$A95F03CA,$5717F47F,$14F5E6E3,$95E444AC,$136E352B
  Data.l $CF4EC7C0,$0C31E3AE,$E7E9F9E8,$CDA8EA8E,$9EB8C294,$6A5A383E,$13093DD5,$B3237DD3,$1E6C995A,$10B11360,$E241C26D,$CAC793F9
  Data.l $B6484AC9,$7E32B0B9,$ACB8D2B9,$06F45B17,$FA3C524F,$69F4ED48,$9201D0BB,$7F6CB73C,$CE9D7E66,$F9D9F585,$11C99575,$FDF2E511
  Data.l $D57EB4E9,$A833A4A9,$7BFB7D8C,$4DB852E5,$595FA220,$FBEA9E5F,$C2C61F6C,$824EEEBE,$ED9B5943,$8756FADE,$4E332B7A,$9C666124
  Data.l $2B0FA161,$72A18523,$F75A0FE5,$95ADBC15,$B51BF478,$9A66CBE5,$F224EC99,$332A9D1C,$618D522D,$42C1616E,$F69F7B0E,$511B0010
  Data.l $4CD02389,$EF57A93D,$3C56CDB3,$C896DB50,$ABB0007F,$4FE38223,$92C05395,$C27D3F55,$84EF5205,$702DE265,$CFD8E029,$FA71BA7C
  Data.l $35E54B15,$234FE546,$4AFC75F3,$8F815DAF,$247D74EC,$52ADAD30,$DF2C05AE,$12239611,$C2F2BC65,$1C402641,$5430296E,$988F66FE
  Data.l $6D3ABA9E,$D9EADCDD,$D9C77F76,$0B34DB54,$C0997F17,$26231D43,$9FC7FC8B,$C57CBC9A,$98634ECC,$D01B5FED,$13C8A892,$0D73A072
  Data.l $0AB7D671,$A7DAF4B2,$7CAB153E,$8E985804,$34240883,$2ED86E30,$F90E03A2,$C41D57D6,$E83F2AD2,$73139F50,$AEB52BA7,$489452EB
  Data.l $F9D6BB17,$FCEFEE73,$71D914D6,$7EF95DF4,$11FC552E,$B4EAE6E7,$B7F222EE,$8738D45A,$B2F07758,$1E7CE402,$17ADC6FB,$4EEACCCE
  Data.l $9E18C242,$5B9A154F,$59A9C163,$F3E1EDA7,$DBBA16E7,$F625B0AE,$3A7B7D99,$6BC5FCE0,$69D053CB,$7EC22C10,$22702984,$E9C9FEBF
  Data.l $641DE448,$8E3A2ACC,$330CE6F6,$3BE6F0DF,$37C70584,$E01A0434,$599B0703,$F03C12B4,$4621BC23,$B25D144F,$55417011,$B2709C4F
  Data.l $CA32AA8C,$B2F4B0B8,$36E90B4B,$B10AE182,$ACF5EDBA,$99D5F8DF,$D8EBFC2F,$4AC5B2F2,$1C374593,$2CDDBBC0,$56CCCAF3,$DEB2B7B3
  Data.l $58C4E17E,$760BEB41,$AFD3C78F,$73E3FF54,$8D5521B7,$71ED0B62,$D914BF10,$E9E67E34,$F5DBB5B4,$E466848B,$AE5CDFD2,$6FB3B6A8
  Data.l $834C227D,$6464434E,$03B29550,$EFF22198,$BFD4F6FD,$F96C7E7D,$01E4464A,$F47E4DF3,$18A4957A,$449A7C33,$DF793E97,$96C0712F
  Data.l $F0716F06,$E95479E1,$2EECDF5D,$5C2EB6AF,$DCB4BCDA,$6CECDF5A,$7DD23CB5,$C382E2D7,$99B1F9FE,$8D062AC9,$9757E277,$2F179B96
  Data.l $CDFAE16F,$F4F38F66,$B846D96A,$66166B8F,$591EB8EB,$7A3AD504,$E746DAFE,$CAEB4AF2,$A36D6B4A,$F0F4D9BD,$F363CC5D,$43C1E1F3
  Data.l $CA6B423E,$96E10C07,$169B6EC3,$A85B105F,$1AB6EDC0,$7C067F46,$C0064F81,$8DB590F8,$DBACEC2E,$B5CCCFED,$DC1E1AC7,$4FE8F72A
  Data.l $2F97F94E,$85EA9353,$B58DA5F3,$73E354BA,$46C9B5D3,$FBE19C05,$74BA8401,$A57979A5,$6DD9B1B9,$31848875,$A649C8F5,$8465541A
  Data.l $6EF5C1FE,$3DA1756E,$101DEBAB,$2A5CC535,$84C81E4A,$531E56E2,$B0E8F377,$08DDDD27,$2027C723,$82D09F2F,$8A5F11E3,$C4E30158
  Data.l $6D595CCC,$B677ADAD,$C8B0FCF4,$B3FB0F87,$0C8B2173,$B0A54AFC,$035C96D3,$D7B70308,$7662586A,$563E3ABC,$5422A173,$17069049
  Data.l $8DBEAFC9,$FDDF9BE8,$2A10D617,$EA609440,$182E3385,$CB9436B1,$0E548736,$97535379,$A864242F,$86081C55,$1DA480E9,$638EFEAD
  Data.l $E72FB945,$79F1065B,$5B5E0859,$9A091EA5,$7AB40911,$2B56041E,$D56D72CB,$AAE9F67E,$1EB339C9,$6912A637,$84AD58D8,$586C9FD9
  Data.l $F9ED15B6,$F867B516,$95FB1821,$3430AC57,$E4A27A9F,$06C351FB,$30C0C02E,$8DC8A454,$D5D35B86,$E0B4AE25,$19784111,$75D5C1E4
  Data.l $4B4D99EA,$CD15960A,$2BC3442F,$C967DEB4,$FE3BF6E4,$B2460D5E,$2CC8A03D,$251A679C,$AD53E4F5,$950536C6,$8BA6A8DD,$118EA259
  Data.l $483BB653,$67A068E7,$CFE738CF,$3C88AB89,$F10B6D3B,$F19F6CED,$D566002D,$5E6A4D30,$39029101,$2B321C8C,$AD565EF2,$388CA7A2
  Data.l $CA73D299,$35C2941D,$4852DDE3,$53B2931D,$4C5346A2,$975BEC25,$8BCF25F8,$568BCD45,$7D242952,$AC842DB7,$DF1D43E0,$2777F186
  Data.l $1E126D9B,$FC7646A4,$3524A148,$5C50C066,$A3786AF2,$090197A9,$C7774B57,$ABAE82F1,$3A8D5D4B,$D752A9A6,$C4824415,$544EA9F3
  Data.l $8BBEBDB6,$026100EF,$AF5BA060,$91242A95,$32FA7105,$6F430684,$DF6608B4,$106C760F,$4E770A31,$DF4A482B,$9075A90B,$589690E1
  Data.l $5F2C21BC,$C5E03186,$7AF56BA6,$8BAC89C3,$CABA6662,$E6003D78,$18B591C4,$C2A754AA,$0B35722F,$925F8676,$E86C97FA,$70585717
  Data.l $AD75EB0D,$45BAF812,$53A8330D,$C8AF98C9,$934AE0F7,$2D378D69,$0C819266,$DB6AA4B0,$F0FAF6E9,$14B2D47C,$2E9EA4AA,$D706E174
  Data.l $97477D50,$663E7524,$D2D04CF1,$3FC54FA9,$47EBC78C,$0944533D,$76606EDA,$357C5930,$3025C5DE,$8D6BA8FC,$5631DAB4,$F1DBE12F
  Data.l $8C12BB0A,$CB57F00D,$D750680E,$6CDAA947,$BD59F191,$446FAFAA,$D1B43A1B,$EA3981F8,$745D33E0,$F51422A3,$67BD4A65,$5572E0B3
  Data.l $8EE67052,$5C88ABEB,$6BA456D6,$46DEDB58,$56F6E3B5,$C560B757,$2F30266B,$ECEDD155,$9D7DA35A,$44BA5928,$F798578C,$9CC89CF0
  Data.l $46B305F8,$73D63AD3,$AC792A99,$494AEA20,$F163B52B,$2508A958,$5D22FA23,$DBEB4501,$6F80FC9F,$CDC68BFE,$A8214834,$BE19714B
  Data.l $68603A8E,$062F0E0D,$E4DE4D7A,$70044B1A,$5098596C,$E1FA1C9C,$F5C72002,$93C3BA61,$C3C08B94,$92A8F607,$3CF06211,$4BCCC048
  Data.l $90671440,$7563FA15,$3224AE17,$1B4321B2,$0A3E172D,$D0FE0B8A,$B026A3D9,$D3477058,$61A6443E,$AB32270F,$F4DE0148,$78357EF6
  Data.l $022A9893,$9BC5B85C,$96817C7B,$1E92A965,$F014A55A,$A4A400DD,$5268709A,$8D3CEA6C,$2486CC4A,$783DD3BA,$3B4D4BBA,$D1C5FCC2
  Data.l $8C9AD5A6,$1A4533C8,$BA30854D,$2BBF40C9,$A7BBEECC,$9EEE1A83,$C6BC12A1,$9548B4C0,$FA0D624D,$D75C0555,$E2129BE7,$28CA4005
  Data.l $66173B24,$7AAE7248,$8EADF57E,$114944EC,$20D2E4F5,$91B45489,$305B9A59,$DF3CD272,$0C335ED2,$77F6E5AF,$BEA4D7ED,$8564C255
  Data.l $33D58A26,$E4651F84,$E4AB2995,$2F3887E5,$D1C88ABF,$63688B14,$D5D9912C,$21C8DA2A,$155449D9,$D62D9B76,$2BD5B2AD,$430C9EC5
  Data.l $4BE5690D,$C4B24659,$5865D716,$3C978612,$880956A3,$89A9ADC4,$732C972F,$EC1CCCC4,$5144DA0B,$0FB0274F,$AA8B537C,$CC7C61B2
  Data.l $DD2D1A78,$7C45C340,$49E9D62E,$DF125013,$D46F0B35,$7B82350B,$C5F9D86E,$6AB72EB1,$0424B648,$A5BC6165,$FB877E54,$0B874DA8
  Data.l $6F06D7B4,$7E667222,$44972892,$4D067AD6,$4561DC0A,$F04D7ED6,$9766B4E2,$992B5774,$706B27D9,$132B49AF,$5956F216,$36EF78AA
  Data.l $80F12F11,$54501519,$F9688656,$9E11A64C,$4C16C149,$EC8D4281,$562E1597,$1C891ED1,$09534A85,$A55B6DF8,$F785CEAB,$4939388A
  Data.l $077D5762,$020D8D00,$242DF1DB,$D54B7E46,$F014EFE4,$20C9F81E,$AF0FCDA9,$0C3BAC60,$40C1BD32,$577BFB7D,$FDA64414,$6226A211
  Data.l $34E1322D,$E771C8AC,$F13BAD10,$4B3149EE,$822E8119,$7736E186,$46C9198B,$F9BA2968,$1ADE3C50,$FD43222D,$3B5BF211,$E16AE1A0
  Data.l $2DA12E69,$666DB31A,$B4A0C51C,$B928CDE9,$46FD7646,$064FC933,$93BE25DF,$1BE75E41,$B916771B,$893B46A0,$0486E2AC,$76C8E236
  Data.l $B6161AB5,$56E7E773,$C18FC421,$A4C766DE,$FF3DA6CC,$86AC47BF,$DAD2A762,$61D8434E,$C6E2FB97,$B8F07B50,$48C3DFEA,$C6F11645
  Data.l $D98C59DD,$45DD69A0,$85EA9CC3,$BC7058CA,$F7D09A61,$B1EE0AEF,$4415DB8E,$1D1FBB36,$6204A7BB,$64FAA5DB,$DF915187,$14A54077
  Data.l $2F157C4D,$E22EF181,$BC4E1749,$6FE8F883,$23C1ECEA,$527E54E6,$473BD0DC,$2B4506D1,$71C9C6BC,$645A0E9E,$C359EB6C,$07BC411F
  Data.l $9E6458EC,$54E57BE7,$A294CAE1,$BA6BFDF5,$30883E91,$34146116,$C354FF67,$49BDDF08,$115B83D7,$AC1E428A,$630E75DD,$D115FA6A
  Data.l $7F83F37D,$EC7461CE,$18363856,$BB232B96,$E57261C5,$8B2B2540,$66AF9B31,$7A69DE76,$02DEED04,$3635DD38,$D258F373,$E8A3991E
  Data.l $79E06ECC,$1E5E858C,$8F8C5BD2,$93DCAA36,$C1BC5641,$2C67B273,$51844735,$2D88D999,$4E1FF798,$C6313CAB,$3F33821C,$EF56D1AB
  Data.l $EA48EF7B,$9CC0B4F5,$B5929DCF,$A67F8B07,$2E3215FD,$6F571336,$3A3A01D3,$12ED82F6,$56AD52B3,$C51D1DC5,$EE93A83F,$D2551EF8
  Data.l $F865BA65,$288FE900,$E27A0F7A,$FDCD7D24,$A1628D81,$A207F477,$800F87BF,$0C027FFB,$4EFB6400,$510B79C5,$00000063,$4E454900
  Data.l $6042AE44
  Data.b $82
  
EndDataSection ;<
;}
;{ Image Plugins
UsePNGImageDecoder()
UsePNGImageEncoder()
UseJPEGImageDecoder()
UseJPEGImageEncoder()
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}

Procedure OpenWindow_WIN()
  If OpenWindow(#WIN, 565, 484, WinL, WinH, "ResiZe "+V$, #PB_Window_SystemMenu|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#WIN))
      StringGadget(#Largeur, 2, 25, 75, 17, "100", #PB_String_Numeric|#ES_CENTER|#PB_String_BorderLess)
      StringGadget(#Hauteur, 90, 25, 75, 17, "100", #PB_String_Numeric|#ES_CENTER|#PB_String_BorderLess)
      TextGadget(#Text_L, 20, 5, 60, 15, "Largeur") 
      TextGadget(#Text_H, 110, 5, 60, 15, "Hauteur")
      ButtonImageGadget(#ResiZe, 5, 51, 160, 60, CatchImage(#Image_ButtonImage_8, ?Image_ButtonImage_8))
      PureCOLOR_SetGadgetColor(#Largeur, #PureCOLOR_SystemColor, $13A9C4)
      PureCOLOR_SetGadgetColor(#Hauteur, #PureCOLOR_SystemColor, $13A9C4)
      PureCOLOR_SetGadgetColor(#Text_L, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetGadgetColor(#Text_H, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetGadgetColor(#ResiZe, $71ECFD, $82F7FD)
      PureCOLOR_SetWindowColor(#WIN, $55CBFD)
      
      If CreateMenu   ( #menu, WindowID(#WIN))
        MenuTitle ("Menu")
        MenuItem (#menu_about,"A Propos")
        PureCOLOR_SetMenuColors(#menu,$00, $55CBFD,$00,$55CBFD)
        PureCOLOR_SetMenuItemColors(#menu,#menu_about,$00, $55CBFD,$00,$55CBFD)
      EndIf 
    EndIf
  EndIf
EndProcedure

Procedure OpenWindow_WINabout()
  If OpenWindow(#WINabout, 565, 484, WinL, WinH, "ResiZe "+V$, #PB_Window_SystemMenu|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#WINabout))
      TextGadget(#Text_L, 5, 0, 160, 115, about$, #PB_Text_Center)
      TextGadget(#Text_H, 10, 120, 150, 15, "Ce logiciel est gratuit", #PB_Text_Center)
      PureCOLOR_SetGadgetColor(#Text_L, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetGadgetColor(#Text_H, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetWindowColor(#WINabout, $55CBFD)
    EndIf
  EndIf 
EndProcedure

Procedure ResiZe()
  messagerequester("no","pas de  soucis")
EndProcedure

PREMIERE:
OpenWindow_WIN()
RESIZE:
;{- Event loop
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget() 
        Case #Largeur
        Case #Hauteur
        Case #Text_L
        Case #Text_H
        Case #ResiZe
          ResiZe()
      EndSelect
    
    Case #PB_Event_Menu 
      Select EventMenu() 
        Case #menu_about
          OpenWindow_WINabout()
          ; EndIf
          
      EndSelect          
    Case #PB_Event_CloseWindow
      Select EventWindow() 
        Case #WIN 
          CloseWindow(#WIN)
          Break
          
      EndSelect
      
  EndSelect
Until quit
End
    
SECOND:
OpenWindow_WINabout()
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow=#WINabout
        CloseWindow(#WINabout)
        Goto PREMIERE:
      EndIf
  EndSelect
ForEver
    ;
    ;}
Haut
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

j'ai reussi à faire fonctionner le menu about
j'ai du enlever 2 ligne qui pose probleme :

Code : Tout sélectionner

PureCOLOR_SetMenuColors(#menu,$00, $55CBFD,$00,$55CBFD)
PureCOLOR_SetMenuItemColors(#menu,#menu_about,$00, $55CBFD,$00,$55CBFD)
sans elle ça marche bien . si ça peux t'aider

j'ai rajouter aussi dans ta boucle principale :

Code : Tout sélectionner

    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #WIN
          CloseWindow(#WIN)
          Break
         Case #WINabout ;  ici  modification 
         CloseWindow(#WINabout); ici  modification 
      EndSelect
     
  EndSelect
Until quit
End

je comprend pas pourquoi tu crée 2 boucle pour 2 fenetre

alors que tu peux tout gere dans une meme boucle

voici ton code modifier pour que ça marche

Code : Tout sélectionner


;{- Enumerations / DataSections

Enumeration
  #WIN
  #WINabout
  #Largeur
  #Hauteur
  #Text_L
  #Text_H
  #ResiZe
  #Image_ButtonImage_8
  #menu=1
  #menu_about=1
  #Image
  #BT_retour
EndEnumeration
;}
Global about$="ResiZe v1.0"+Chr(10)+Chr(10)+"Ce logiciel a été réalisé par LDV MULTIMEDIA"+Chr(10)+"Il permet de redimensionner les images JPG et PNG."+Chr(10)+Chr(10)+"Découvrez d'autres logiciels sur http://ldvmultimedia.free.fr"
Global WinL=168
Global WinH=135
Global V$="1.0"

;{ Included Images
DataSection ;>
  Image_ButtonImage_8:
  Data.l $474E5089,$0A1A0A0D,$0D000000,$52444849,$A0000000,$42000000,$00000208,$4A215F00,$000000F3,$58457419,$666F5374,$72617774
  Data.l $64410065,$2065626F,$67616D49,$61655265,$C9717964,$00003C65,$4449F71B,$DA785441,$8C695DEC,$7E55D764,$D6ADBEF7,$7BBDEAEE
  Data.l $4B3D3DA6,$2C978CBC,$10504C4E,$4A470091,$424B110C,$81472422,$C4221410,$822C288F,$0255881F,$48B62405,$CB0A0401,$0848880F
  Data.l $E3127622,$8C1DB228,$B63DB1EC,$C7B1E3C1,$78B3C78E,$D6BBDEB6,$CBBDEF57,$7B79EE77,$926A4F75,$EA89DDC1,$754D4DE9,$7BAAABF5
  Data.l $77CE77EE,$6DDE7B96,$BEF7E3E3,$DF1D18DD,$15C007A3,$CFBEEFF8,$528F187E,$530C210A,$A694D34A,$2BC47814,$BFC10A74,$1C7A2212
  Data.l $1EEEDC4D,$0E84420C,$08C82290,$EC24CB2F,$4C70BC12,$ADF7E9BD,$D1453E9D,$5E7C4781,$DD08E884,$60AE83BD,$98FECB6B,$A37E8EC7
  Data.l $376D8B0F,$E118CFC2,$F483DDF7,$AB06F60E,$C6346FC4,$75F1C009,$B6C5B4DA,$DDB23CA6,$1ABE623D,$0C1A22DA,$30C21E11,$620D6784
  Data.l $9C167374,$6DE48BD1,$13F111AC,$DE508C65,$9D6323DD,$9D2E8322,$F444A861,$12980863,$78600988,$B07CEDE6,$CF475F11,$6DBF09F8
  Data.l $8BBBCD64,$A04E5031,$98022251,$212BC630,$B391A49B,$B05B5360,$E2CC018A,$8440BD07,$C9BBD216,$444D49D0,$E3A3EFCA,$CCBBF7F5
  Data.l $0964DAD4,$C3568211,$603FC114,$8705A97A,$00371161,$BAF13809,$8F511194,$F365DDD0,$8E039155,$D36955F9,$6221A433,$E2F6558C
  Data.l $78916004,$362A7D59,$0D9F88E2,$262226AD,$EF3F11FA,$48EB05AA,$591BB60A,$A85F9B30,$8A0AB27D,$451A53F1,$118769B3,$4F018B83
  Data.l $F80A98AC,$BD134673,$249C16BB,$2351ECBA,$3F06558A,$952F2266,$46DAD146,$2ACEA715,$2919501B,$928687D7,$63A3C611,$59563117
  Data.l $824465C3,$1F317A20,$B300C75A,$3DC98D67,$D73F2E87,$6109AD96,$3A3E2F1B,$7854E75E,$CB359C80,$7E41C5E2,$A7D6004E,$99E3842A
  Data.l $799D9AA0,$88F319C8,$4D3777A2,$D30DAB22,$E66226A4,$57B2B902,$A6DE008D,$82B99574,$5F48E0F3,$63AD51C2,$322C8377,$093BA437
  Data.l $418740C6,$E2394C49,$AA532367,$305BA02C,$4D6CE673,$44B646E3,$C9763A32,$72A53580,$B292ABB8,$D8A8BF04,$CB0CAA85,$D2E96FCA
  Data.l $0A308D63,$EC7479BE,$AF1D144A,$B974A9F2,$8A548B2F,$DE0155D5,$BA11C816,$35878DDF,$94E8E2B4,$869F6A89,$CF4E3F5D,$394329BD
  Data.l $2DCC18E4,$E2AF3561,$327F5438,$3046EBF4,$20EC77B9,$579D7652,$6962E708,$8E512BFA,$1984D41F,$F37A12C9,$113DEADE,$EA48A9E3
  Data.l $84CD9634,$61394A34,$8A88CA7F,$2F74CA45,$46945FA6,$1E1F02A5,$9D7C6F76,$C86B1883,$257508E9,$6524F293,$E69EC754,$67273BD8
  Data.l $9912492C,$28659919,$27708283,$AD052CE8,$6D6118B7,$E90E31D7,$A19D0150,$BC72FC34,$66EC2E12,$20FD3356,$40806AD4,$9FC75546
  Data.l $1911B14E,$31FE33A9,$782B3D91,$08CA9A44,$F800F37A,$B3945E75,$0C0E9C86,$40C3F031,$E4A4CBCF,$A8BC80EE,$7D71B4B1,$F19C8B93
  Data.l $E178E223,$AB29EA89,$DD6FCA72,$FF7D6FEA,$ECE3456E,$DF4520C0,$A0FDFB0F,$E066F9E7,$266D884D,$02E2571D,$A1FBEBA0,$B2D307EF
  Data.l $0018AC28,$2A3F1138,$E308ABDD,$F3657B08,$A35EED7A,$3F0E9A68,$DF9EBD0C,$1FAF02F3,$5724901C,$1B62C16A,$32458F8B,$C46D8EB8
  Data.l $6AB4E2D2,$76904227,$C3DDA6F7,$D0176C98,$66FDBA76,$5EFC73DB,$F1F9E734,$B8335B74,$23DC4606,$63217DC1,$5E0BCF2B,$29573E5C
  Data.l $C25E86C0,$8084BA13,$89BD7AAB,$D8D21950,$54CD1463,$BB4179E6,$EAD1D343,$FB4CA5F4,$AC059202,$56E722A2,$1123A02F,$D2C17ACC
  Data.l $EF1FC670,$742A4B7A,$32630577,$EDD07EDF,$DECD9BF9,$F5D746FA,$D978093A,$68420823,$AB7A1400,$1E5AB5E5,$3522412B,$E2339CC3
  Data.l $BC82738C,$CE082861,$24269750,$C752D7AF,$EBC53285,$84351AD9,$700C360F,$B4060014,$8DDD9BEB,$BC012EAD,$38674B13,$801950CA
  Data.l $E4B30C45,$3A593D1F,$DF6FB615,$2A125CAD,$9760A10B,$FCEF76CD,$7FB3D2A5,$680866FA,$3B29514A,$D53B9AF5,$958F8CA8,$7A05AE4A
  Data.l $9B1BC606,$297AB71D,$B2445805,$F3A718A7,$B8956710,$B4A40038,$6B60438A,$4E5F66CD,$97B99D91,$11F1D600,$BE54163C,$DF9505BF
  Data.l $AE334AEC,$EA39E66E,$98B97F33,$72E55364,$9D0DF878,$59B5DEB7,$D703B572,$72D2C534,$EF6201EF,$86DF4324,$E90BF1E1,$63256B09
  Data.l $A1447577,$E9848643,$A06133DB,$E04FA20A,$1D531214,$89E13804,$52C319C9,$076DB001,$06A10578,$3801A11E,$ECD0E860,$AFFCA6B5
  Data.l $95E86787,$9E25A9A8,$DCD28C81,$F16B477E,$D65C6E86,$6960574D,$B66B4049,$F6E15BEF,$2477E7F9,$451E77F2,$15C05CD3,$69C9C741
  Data.l $45097AB5,$FCF9D567,$13F9E739,$698A8B36,$63D8F9C0,$A95F03F6,$2E57E27C,$2E7C2637,$86B4B296,$5DD32E26,$32CA85ED,$E9CF8645
  Data.l $AB05CE90,$395D92FA,$F20B690B,$F3789693,$A0C6FB7E,$B2364B93,$3837076F,$EAECE7F5,$196AD24B,$3089CE46,$56BF2A9D,$99DEABF2
  Data.l $3D7643B7,$6DCB717E,$F9B86FCB,$901CE90A,$4A658530,$534D32DB,$AFE35B76,$6D8DBC9C,$3CCD757D,$C434E0FD,$99642A87,$20C46940
  Data.l $DEC5FEEC,$85747FBB,$1854DB9B,$62757815,$86C74BA9,$E2DCF971,$EB1BA5FA,$BCC66DB5,$FC9AC8A3,$B081DE82,$F91054BB,$51D1473A
  Data.l $298C059C,$80220CEC,$FC653465,$B69AEDD8,$B5A0F26D,$AFF5D3EE,$4F27105D,$01F8EF3A,$F35CA95F,$280F3D1E,$F05254A4,$2AB45134
  Data.l $8F336B37,$A94B95DA,$3DFE25CD,$BA59A37E,$8FF43388,$2377AB7B,$4D06CB52,$AF6139B0,$101F1634,$EB8B9FB2,$73467633,$A72D34E4
  Data.l $0CD69769,$64C24663,$E898D92D,$1AD4B0DF,$8AC6A570,$D0429157,$5092003D,$3E022CB7,$E1A1F7A7,$170821E3,$ED7F77F6,$4F50AF37
  Data.l $CB62B26A,$5492AF2B,$ABC61439,$773B9CDF,$13D34DEA,$DA85B691,$61663068,$9FA6572D,$4CE446D8,$CE9566BC,$598CF728,$BF5FDE3D
  Data.l $D793F95B,$1435F30A,$03A3B83A,$33B8D0A8,$6713CBE6,$AC6262DB,$F7815F8C,$6CEC3ABA,$5FBD7077,$621C06A9,$D99D58A8,$719DBB8E
  Data.l $A414C55A,$0C58C8ED,$C0FA7973,$8BECD283,$B4997F01,$DDDE2420,$99A59A74,$DE573BFB,$D6958C03,$1F827C24,$7C0FE674,$46FB34DD
  Data.l $0315433E,$EB460D59,$394CD656,$8E4AC00B,$07214785,$EAA314BE,$8EB2A0D7,$0E2B5563,$B294DF3E,$0EA822EB,$C3A146D8,$85F1343A
  Data.l $93E27DE9,$286AD52B,$5FD2B992,$F0336BC6,$4C4F274A,$E8F2789D,$DEE4ACFC,$3EC37637,$A3B8BC8B,$C97A49C8,$69BB4B30,$5FDFDE4F
  Data.l $D70547BD,$AD75B186,$D9313F26,$CC857467,$0C3093C4,$AD9F9CC7,$07318B43,$D6F05A70,$A9C9E4D0,$EAEEDBFE,$583603B1,$AE1EA59D
  Data.l $A7D6B461,$0B269F0D,$636A04F0,$8107A6F1,$2F43B6CD,$073C5DE6,$FB9D5796,$F7D9C6F2,$5781B1C3,$3BBEDDBA,$B729DA76,$29845877
  Data.l $F0C9093E,$9A1EBC54,$C445120F,$1D768819,$1C55ACDB,$8BE6008C,$1E4F9E27,$5C1D159A,$43F5E9DD,$8FD9FDD5,$F19A999D,$8916CA63
  Data.l $333D2932,$9E952E57,$D4D0F478,$92D8EDB8,$2EB426FB,$62E44D5E,$2D322491,$313D34C3,$F96F7F79,$0D2A95A7,$5150F18F,$34E00174
  Data.l $37B8C8C4,$4CDCC5CC,$0E0A4A0D,$169F912F,$F1BADD37,$E45E0FBE,$67520FA5,$B18441FD,$4DAC6C61,$574DAE6E,$E0CB14CA,$3C3785FA
  Data.l $C1FD38E1,$67AF602A,$53BFFF3E,$4783BE60,$9EF56BD6,$0DBC3952,$4F1A95E9,$13BF9CAD,$CF0911AE,$936703A1,$E4D5C212,$340ABFD7
  Data.l $3A19A442,$D9734DD3,$09691E84,$82D681DD,$25CFC1C3,$746BEED7,$B6D32E29,$BEBD740B,$5F07EF7A,$19E85B99,$49850E03,$F705C2E7
  Data.l $7372FF0B,$94A956A3,$6381D76D,$0119A497,$DC373285,$893BDFF2,$B393CCFC,$F07872A5,$DAA57AF0,$1B0CDC13,$3C349F33,$6A9CF2B3
  Data.l $53FAF5BF,$1C40B274,$89F2DA55,$9DF16520,$E6A1D2CA,$10BFB78D,$AF507350,$144CD531,$A99648D0,$CF410035,$A3D9F17A,$465C8552
  Data.l $D4F2E650,$9C9CC5DC,$0BC5C9FA,$F5FECFA5,$2176B801,$F132B545,$3ABC8FA1,$5431DB3D,$32B2BD6E,$97B9F2F1,$6BBA00EF,$A2C39D1B
  Data.l $C0FDE147,$705E2FE0,$BCF2F81F,$C3469C0A,$FD9D55AC,$F3337BFB,$DF09001B,$E482570E,$1445C81E,$0945299D,$E834742A,$82472E76
  Data.l $2B254BA8,$02C0A208,$8BDE3751,$EF7EEEAB,$9DF3730B,$AA6677C4,$AF25A4CE,$EE7EE6BD,$57AA6E9F,$12F5E36A,$AF541E48,$0DD09F69
  Data.l $E9F195E4,$F5503115,$EF7C882C,$353ABDCF,$FF3191DD,$CDF09A19,$EB7EA9F2,$CD86A54E,$D6A1ADA5,$65788CA7,$3E4C3D8A,$75C1E67E
  Data.l $95CD95DB,$31C4FA99,$0527EECB,$8C7E42AC,$F33C7641,$D1BDF76B,$4AB56354,$F4E2E9D8,$4A7EDC8F,$DE58DB9A,$FCDDFC3F,$6C4526FA
  Data.l $1B6AD7F8,$F6343F0F,$E2740FFE,$4A9A334C,$B57DF64B,$4894D5BE,$745E2EDE,$91B717E7,$C68791FA,$CB749E4F,$E2BAB5AE,$DB978C4E
  Data.l $CF17331B,$7931811C,$0298027D,$722C0063,$DD78F4E5,$1A88A0D5,$266DA391,$B76C1C71,$E6287D2B,$B9F07EDB,$B2361B85,$E5D33E9E
  Data.l $F23A7464,$AA5F7FFE,$8D93EA96,$05860032,$617CDA5B,$83C750F7,$24C94F47,$BC8BCD44,$9A0E49B1,$78F63E45,$EB1F9EED,$D1016BC4
  Data.l $EADDA6C5,$8C692D89,$383CCF5D,$A46912B7,$B61B2B7E,$A99877E0,$F6E6E74B,$C4673A1F,$F180AC6E,$9E344F53,$B654B639,$82631BC7
  Data.l $ADADA323,$6AFCF4EE,$3E4C2952,$9AD56D70,$92700E9A,$8F81F8D1,$B8F4CC70,$458D9B3D,$E4A884C4,$865DAB56,$62F53FCB,$DBEFCEE9
  Data.l $F13FF866,$B7DF65BE,$61AA79BF,$925537C6,$8EDFD517,$B60DA910,$1A4ADA5C,$89488421,$0A29F75A,$44295F78,$9DD6BE54,$BE6F382D
  Data.l $A1E2F8F3,$AC550AD7,$476EE004,$1EDFE3FE,$D3937A09,$54A86593,$5C96E6BD,$8478679A,$2D162EB6,$99CCB81C,$41EA5648,$1F5D3D91
  Data.l $459CC235,$E281CB69,$7EEC87D7,$C3A28E1C,$C61032A8,$8F918951,$DE1239A2,$FB3EEAD8,$C3C5BEE4,$6A2A94E7,$F58ACAF5,$407E7F57
  Data.l $A999F1A8,$74B35BAA,$3BB6162C,$EA36205E,$592CBDE3,$A6A69BF1,$F2FF8FFC,$DEE16CD9,$DD49E388,$33449A36,$A3BF3598,$F1F8F10D
  Data.l $776F9DD2,$57B9BE6F,$3572CE50,$CE47D0FC,$FBB6789F,$1C8723D8,$724582CB,$BF0A3FB9,$AB1B01FB,$E8C26EDA,$26DD5B5E,$60031493
  Data.l $3E8E07F4,$B9E0EFBE,$99197B2C,$5B7697EE,$1CDFFDFE,$B740BBF1,$6AC77402,$6B64A56E,$B30CA0C2,$6342F6D5,$520A54BD,$BFDA13FE
  Data.l $550E45E6,$D30A115C,$9F8A8AA2,$B0CB6AE8,$9543F36B,$2D16A3BE,$9728D982,$BCB28183,$BF9EC1F6,$E17EDEBA,$EEB1B905,$6139EE24
  Data.l $BF69E9A1,$631B775E,$765C0825,$0038026D,$6ED37DC0,$9726388A,$4E675B9C,$3E948B19,$F8F05249,$89C9715D,$FE9F52CA,$6733E9B3
  Data.l $F027C2AD,$569BDB79,$4E67EA7E,$E1F41D2E,$8CC75D0E,$479A1633,$BB913A9A,$0A458EEB,$45A93B03,$F01E3570,$ED4E2794,$AD1B3A5B
  Data.l $903C1437,$7EAFF39E,$4CEBC169,$98544D4C,$5C75F19C,$8B45E01E,$1013CB66,$2C209259,$644EDCAF,$3328CB19,$99326CF1,$B618183A
  Data.l $150E4A77,$57E3A560,$297B16FB,$C42464B7,$3D356F2C,$3D8F3B04,$5908563A,$0FE778F9,$2346B1AD,$860B6160,$7EBD7435,$79F8CE4E
  Data.l $4B06640A,$4E755321,$AD58D9AE,$A6047EF3,$FC9E1029,$9D4EEFC1,$9911DE7C,$34C27172,$77CD5313,$610C7DDC,$C40C3411,$4969282B
  Data.l $EF23F9FB,$5ED09990,$5C2A227B,$F78A5C07,$DD2F93AA,$13A7D6FA,$1FB3D3E3,$2CF0A1AD,$F79FFE7D,$1FB53E9F,$2A344EE8,$9E0EAE8C
  Data.l $50FE2E85,$E915055A,$4EA9FAF6,$E46C880F,$A430BA75,$CD6ED228,$BF5D50AA,$21A78934,$BAAB12E4,$0E8D12CA,$BE87BD4A,$7BD77D5E
  Data.l $AC730796,$5E58EF5B,$B6B9633E,$B691740B,$0DC2C032,$DB063484,$DAFA1E07,$ED0FA3FC,$4985BF63,$C2F3E281,$5CB2D80E,$4BC627B2
  Data.l $99D593D3,$62A22AC9,$1E3AE2BC,$EF5E1C9C,$05977AD0,$81FFDF8C,$6FBE4FE6,$68F9172B,$78004756,$4F87AEF4,$D7977B1E,$8D5445B7
  Data.l $B2CB1152,$FB6F4F5F,$C54777E1,$9955C86A,$B796E978,$46944F1C,$EA64254A,$E97E7038,$BEAFF38B,$B2666FB4,$695E3932,$2A317468
  Data.l $6DBB1268,$6C8868A6,$F9108138,$C8A0EF5A,$4ED9AF2D,$068C4645,$AA9D98DB,$9B1B9FEE,$364DAD9B,$2B452BAE,$8549E695,$3952B0CA
  Data.l $3EF9751C,$BC4178BC,$7C8EDA7A,$DB32E667,$AC8E97F1,$2CC8AC60,$FE4A2675,$A59ABC0F,$E69184DC,$2F3CDA17,$0E37BE86,$513228F9
  Data.l $BDBC3338,$7130B252,$FA3A6DAE,$A556392C,$A9902362,$1D57B9C3,$FC4A035C,$3FC617E2,$DDB387F5,$3D1ACCAE,$F769805B,$489F0E17
  Data.l $49C83896,$516CC257,$20670D33,$5D08A051,$DF2E6C4A,$46E396FC,$9F8C078C,$51D7114F,$78D63C9F,$D04599FE,$799804F2,$C285D08C
  Data.l $79A68051,$75C08A22,$B769CDE6,$C6E12018,$D9152F44,$148C89CA,$DC8CA5C0,$AE382DE4,$0E51B569,$CABAD043,$C8BA97A8,$7C5CE707
  Data.l $B3F9F182,$2F851663,$7D0F81F4,$8C8B92BD,$DC0ECBE2,$0BA53CF4,$C091FFDA,$C9E2F841,$52E05192,$DCB7C54D,$BFB0B9BE,$21018B8B
  Data.l $DC57AC84,$71F0B871,$7D314A0A,$D15BAAB5,$F2D65833,$C2E4344F,$375982BC,$7563CAC6,$25F06A0A,$FE944F27,$06168FE4,$38F01B17
  Data.l $163A7F35,$E1BBFE8A,$D3972F06,$35E1E3C7,$CA1BA034,$E3BC77CB,$C496A91B,$019E32FE,$E3E3C4F1,$0477DE0F,$119C82E8,$18ABD467
  Data.l $16AED91B,$A2027055,$4C2883DB,$15C6773B,$21C70585,$72FA8644,$CDE2C4B5,$652E8671,$93B2D90D,$5FEE6AB6,$629919EC,$8EBE624D
  Data.l $7AB4920D,$F7AA0B3D,$7BD5C3C8,$4051BC3F,$6E3A3F17,$FCE67C7B,$28F985CA,$72AAD2EF,$607D8CF6,$53583FA9,$2FA3F7BC,$079FFC3E
  Data.l $2CCFFE4F,$376B3FAB,$1C2CC364,$78BABC3C,$9AD7AB60,$36FA78B8,$F3B03C8B,$D5FE3F43,$BCCCCED7,$89F8FCF8,$31579CE7,$B60F2D83
  Data.l $5CFD38E2,$612685BB,$FA9599F6,$B9B55ABA,$38B98ADF,$1788A657,$F23DBBFC,$F5DCB73B,$59F8E38C,$13458D52,$A7A6B2EC,$FCFD0F83
  Data.l $00030A29,$06E3DEAA,$35A5D9D7,$388976A4,$F4DD4E67,$F87DA5DA,$904776BE,$85FB07C8,$F5A10434,$2FCF224E,$5C1C0F74,$D5B7DF9D
  Data.l $57B64CEF,$704B48DF,$15600BD7,$5F40E0DF,$1B57AD16,$9E282CB9,$502E041D,$D3874C31,$161B5AB6,$51E8FA26,$C2C2DB2F,$9C2E4F18
  Data.l $4311C004,$7EAF87EA,$1F0BFEB9,$5606355B,$B8275D85,$DF979EFB,$AEAF23F9,$66A2D72E,$5D98C301,$D1CA4F58,$E23F1C2F,$DC83CE50
  Data.l $FB0BC5D4,$1E2CAE97,$EFC3F2BC,$ED7D8FA1,$D5313B9C,$5424D907,$C7ECB513,$AD5F5E63,$4C276187,$6910DF6E,$81E2AD7A,$98402F21
  Data.l $8E00088D,$8D89BF24,$E8C34D4E,$D2F18183,$E40726A1,$AA2CAE2A,$FB372881,$A95F03CA,$5717F47F,$14F5E6E3,$95E444AC,$136E352B
  Data.l $CF4EC7C0,$0C31E3AE,$E7E9F9E8,$CDA8EA8E,$9EB8C294,$6A5A383E,$13093DD5,$B3237DD3,$1E6C995A,$10B11360,$E241C26D,$CAC793F9
  Data.l $B6484AC9,$7E32B0B9,$ACB8D2B9,$06F45B17,$FA3C524F,$69F4ED48,$9201D0BB,$7F6CB73C,$CE9D7E66,$F9D9F585,$11C99575,$FDF2E511
  Data.l $D57EB4E9,$A833A4A9,$7BFB7D8C,$4DB852E5,$595FA220,$FBEA9E5F,$C2C61F6C,$824EEEBE,$ED9B5943,$8756FADE,$4E332B7A,$9C666124
  Data.l $2B0FA161,$72A18523,$F75A0FE5,$95ADBC15,$B51BF478,$9A66CBE5,$F224EC99,$332A9D1C,$618D522D,$42C1616E,$F69F7B0E,$511B0010
  Data.l $4CD02389,$EF57A93D,$3C56CDB3,$C896DB50,$ABB0007F,$4FE38223,$92C05395,$C27D3F55,$84EF5205,$702DE265,$CFD8E029,$FA71BA7C
  Data.l $35E54B15,$234FE546,$4AFC75F3,$8F815DAF,$247D74EC,$52ADAD30,$DF2C05AE,$12239611,$C2F2BC65,$1C402641,$5430296E,$988F66FE
  Data.l $6D3ABA9E,$D9EADCDD,$D9C77F76,$0B34DB54,$C0997F17,$26231D43,$9FC7FC8B,$C57CBC9A,$98634ECC,$D01B5FED,$13C8A892,$0D73A072
  Data.l $0AB7D671,$A7DAF4B2,$7CAB153E,$8E985804,$34240883,$2ED86E30,$F90E03A2,$C41D57D6,$E83F2AD2,$73139F50,$AEB52BA7,$489452EB
  Data.l $F9D6BB17,$FCEFEE73,$71D914D6,$7EF95DF4,$11FC552E,$B4EAE6E7,$B7F222EE,$8738D45A,$B2F07758,$1E7CE402,$17ADC6FB,$4EEACCCE
  Data.l $9E18C242,$5B9A154F,$59A9C163,$F3E1EDA7,$DBBA16E7,$F625B0AE,$3A7B7D99,$6BC5FCE0,$69D053CB,$7EC22C10,$22702984,$E9C9FEBF
  Data.l $641DE448,$8E3A2ACC,$330CE6F6,$3BE6F0DF,$37C70584,$E01A0434,$599B0703,$F03C12B4,$4621BC23,$B25D144F,$55417011,$B2709C4F
  Data.l $CA32AA8C,$B2F4B0B8,$36E90B4B,$B10AE182,$ACF5EDBA,$99D5F8DF,$D8EBFC2F,$4AC5B2F2,$1C374593,$2CDDBBC0,$56CCCAF3,$DEB2B7B3
  Data.l $58C4E17E,$760BEB41,$AFD3C78F,$73E3FF54,$8D5521B7,$71ED0B62,$D914BF10,$E9E67E34,$F5DBB5B4,$E466848B,$AE5CDFD2,$6FB3B6A8
  Data.l $834C227D,$6464434E,$03B29550,$EFF22198,$BFD4F6FD,$F96C7E7D,$01E4464A,$F47E4DF3,$18A4957A,$449A7C33,$DF793E97,$96C0712F
  Data.l $F0716F06,$E95479E1,$2EECDF5D,$5C2EB6AF,$DCB4BCDA,$6CECDF5A,$7DD23CB5,$C382E2D7,$99B1F9FE,$8D062AC9,$9757E277,$2F179B96
  Data.l $CDFAE16F,$F4F38F66,$B846D96A,$66166B8F,$591EB8EB,$7A3AD504,$E746DAFE,$CAEB4AF2,$A36D6B4A,$F0F4D9BD,$F363CC5D,$43C1E1F3
  Data.l $CA6B423E,$96E10C07,$169B6EC3,$A85B105F,$1AB6EDC0,$7C067F46,$C0064F81,$8DB590F8,$DBACEC2E,$B5CCCFED,$DC1E1AC7,$4FE8F72A
  Data.l $2F97F94E,$85EA9353,$B58DA5F3,$73E354BA,$46C9B5D3,$FBE19C05,$74BA8401,$A57979A5,$6DD9B1B9,$31848875,$A649C8F5,$8465541A
  Data.l $6EF5C1FE,$3DA1756E,$101DEBAB,$2A5CC535,$84C81E4A,$531E56E2,$B0E8F377,$08DDDD27,$2027C723,$82D09F2F,$8A5F11E3,$C4E30158
  Data.l $6D595CCC,$B677ADAD,$C8B0FCF4,$B3FB0F87,$0C8B2173,$B0A54AFC,$035C96D3,$D7B70308,$7662586A,$563E3ABC,$5422A173,$17069049
  Data.l $8DBEAFC9,$FDDF9BE8,$2A10D617,$EA609440,$182E3385,$CB9436B1,$0E548736,$97535379,$A864242F,$86081C55,$1DA480E9,$638EFEAD
  Data.l $E72FB945,$79F1065B,$5B5E0859,$9A091EA5,$7AB40911,$2B56041E,$D56D72CB,$AAE9F67E,$1EB339C9,$6912A637,$84AD58D8,$586C9FD9
  Data.l $F9ED15B6,$F867B516,$95FB1821,$3430AC57,$E4A27A9F,$06C351FB,$30C0C02E,$8DC8A454,$D5D35B86,$E0B4AE25,$19784111,$75D5C1E4
  Data.l $4B4D99EA,$CD15960A,$2BC3442F,$C967DEB4,$FE3BF6E4,$B2460D5E,$2CC8A03D,$251A679C,$AD53E4F5,$950536C6,$8BA6A8DD,$118EA259
  Data.l $483BB653,$67A068E7,$CFE738CF,$3C88AB89,$F10B6D3B,$F19F6CED,$D566002D,$5E6A4D30,$39029101,$2B321C8C,$AD565EF2,$388CA7A2
  Data.l $CA73D299,$35C2941D,$4852DDE3,$53B2931D,$4C5346A2,$975BEC25,$8BCF25F8,$568BCD45,$7D242952,$AC842DB7,$DF1D43E0,$2777F186
  Data.l $1E126D9B,$FC7646A4,$3524A148,$5C50C066,$A3786AF2,$090197A9,$C7774B57,$ABAE82F1,$3A8D5D4B,$D752A9A6,$C4824415,$544EA9F3
  Data.l $8BBEBDB6,$026100EF,$AF5BA060,$91242A95,$32FA7105,$6F430684,$DF6608B4,$106C760F,$4E770A31,$DF4A482B,$9075A90B,$589690E1
  Data.l $5F2C21BC,$C5E03186,$7AF56BA6,$8BAC89C3,$CABA6662,$E6003D78,$18B591C4,$C2A754AA,$0B35722F,$925F8676,$E86C97FA,$70585717
  Data.l $AD75EB0D,$45BAF812,$53A8330D,$C8AF98C9,$934AE0F7,$2D378D69,$0C819266,$DB6AA4B0,$F0FAF6E9,$14B2D47C,$2E9EA4AA,$D706E174
  Data.l $97477D50,$663E7524,$D2D04CF1,$3FC54FA9,$47EBC78C,$0944533D,$76606EDA,$357C5930,$3025C5DE,$8D6BA8FC,$5631DAB4,$F1DBE12F
  Data.l $8C12BB0A,$CB57F00D,$D750680E,$6CDAA947,$BD59F191,$446FAFAA,$D1B43A1B,$EA3981F8,$745D33E0,$F51422A3,$67BD4A65,$5572E0B3
  Data.l $8EE67052,$5C88ABEB,$6BA456D6,$46DEDB58,$56F6E3B5,$C560B757,$2F30266B,$ECEDD155,$9D7DA35A,$44BA5928,$F798578C,$9CC89CF0
  Data.l $46B305F8,$73D63AD3,$AC792A99,$494AEA20,$F163B52B,$2508A958,$5D22FA23,$DBEB4501,$6F80FC9F,$CDC68BFE,$A8214834,$BE19714B
  Data.l $68603A8E,$062F0E0D,$E4DE4D7A,$70044B1A,$5098596C,$E1FA1C9C,$F5C72002,$93C3BA61,$C3C08B94,$92A8F607,$3CF06211,$4BCCC048
  Data.l $90671440,$7563FA15,$3224AE17,$1B4321B2,$0A3E172D,$D0FE0B8A,$B026A3D9,$D3477058,$61A6443E,$AB32270F,$F4DE0148,$78357EF6
  Data.l $022A9893,$9BC5B85C,$96817C7B,$1E92A965,$F014A55A,$A4A400DD,$5268709A,$8D3CEA6C,$2486CC4A,$783DD3BA,$3B4D4BBA,$D1C5FCC2
  Data.l $8C9AD5A6,$1A4533C8,$BA30854D,$2BBF40C9,$A7BBEECC,$9EEE1A83,$C6BC12A1,$9548B4C0,$FA0D624D,$D75C0555,$E2129BE7,$28CA4005
  Data.l $66173B24,$7AAE7248,$8EADF57E,$114944EC,$20D2E4F5,$91B45489,$305B9A59,$DF3CD272,$0C335ED2,$77F6E5AF,$BEA4D7ED,$8564C255
  Data.l $33D58A26,$E4651F84,$E4AB2995,$2F3887E5,$D1C88ABF,$63688B14,$D5D9912C,$21C8DA2A,$155449D9,$D62D9B76,$2BD5B2AD,$430C9EC5
  Data.l $4BE5690D,$C4B24659,$5865D716,$3C978612,$880956A3,$89A9ADC4,$732C972F,$EC1CCCC4,$5144DA0B,$0FB0274F,$AA8B537C,$CC7C61B2
  Data.l $DD2D1A78,$7C45C340,$49E9D62E,$DF125013,$D46F0B35,$7B82350B,$C5F9D86E,$6AB72EB1,$0424B648,$A5BC6165,$FB877E54,$0B874DA8
  Data.l $6F06D7B4,$7E667222,$44972892,$4D067AD6,$4561DC0A,$F04D7ED6,$9766B4E2,$992B5774,$706B27D9,$132B49AF,$5956F216,$36EF78AA
  Data.l $80F12F11,$54501519,$F9688656,$9E11A64C,$4C16C149,$EC8D4281,$562E1597,$1C891ED1,$09534A85,$A55B6DF8,$F785CEAB,$4939388A
  Data.l $077D5762,$020D8D00,$242DF1DB,$D54B7E46,$F014EFE4,$20C9F81E,$AF0FCDA9,$0C3BAC60,$40C1BD32,$577BFB7D,$FDA64414,$6226A211
  Data.l $34E1322D,$E771C8AC,$F13BAD10,$4B3149EE,$822E8119,$7736E186,$46C9198B,$F9BA2968,$1ADE3C50,$FD43222D,$3B5BF211,$E16AE1A0
  Data.l $2DA12E69,$666DB31A,$B4A0C51C,$B928CDE9,$46FD7646,$064FC933,$93BE25DF,$1BE75E41,$B916771B,$893B46A0,$0486E2AC,$76C8E236
  Data.l $B6161AB5,$56E7E773,$C18FC421,$A4C766DE,$FF3DA6CC,$86AC47BF,$DAD2A762,$61D8434E,$C6E2FB97,$B8F07B50,$48C3DFEA,$C6F11645
  Data.l $D98C59DD,$45DD69A0,$85EA9CC3,$BC7058CA,$F7D09A61,$B1EE0AEF,$4415DB8E,$1D1FBB36,$6204A7BB,$64FAA5DB,$DF915187,$14A54077
  Data.l $2F157C4D,$E22EF181,$BC4E1749,$6FE8F883,$23C1ECEA,$527E54E6,$473BD0DC,$2B4506D1,$71C9C6BC,$645A0E9E,$C359EB6C,$07BC411F
  Data.l $9E6458EC,$54E57BE7,$A294CAE1,$BA6BFDF5,$30883E91,$34146116,$C354FF67,$49BDDF08,$115B83D7,$AC1E428A,$630E75DD,$D115FA6A
  Data.l $7F83F37D,$EC7461CE,$18363856,$BB232B96,$E57261C5,$8B2B2540,$66AF9B31,$7A69DE76,$02DEED04,$3635DD38,$D258F373,$E8A3991E
  Data.l $79E06ECC,$1E5E858C,$8F8C5BD2,$93DCAA36,$C1BC5641,$2C67B273,$51844735,$2D88D999,$4E1FF798,$C6313CAB,$3F33821C,$EF56D1AB
  Data.l $EA48EF7B,$9CC0B4F5,$B5929DCF,$A67F8B07,$2E3215FD,$6F571336,$3A3A01D3,$12ED82F6,$56AD52B3,$C51D1DC5,$EE93A83F,$D2551EF8
  Data.l $F865BA65,$288FE900,$E27A0F7A,$FDCD7D24,$A1628D81,$A207F477,$800F87BF,$0C027FFB,$4EFB6400,$510B79C5,$00000063,$4E454900
  Data.l $6042AE44
  Data.b $82
 
EndDataSection ;<
;}
;{ Image Plugins
UsePNGImageDecoder()
UsePNGImageEncoder()
UseJPEGImageDecoder()
UseJPEGImageEncoder()
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}

Procedure OpenWindow_WIN()
  If OpenWindow(#WIN, 565, 484, WinL, WinH, "ResiZe "+V$, #PB_Window_SystemMenu|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#WIN))
      StringGadget(#Largeur, 2, 25, 75, 17, "100", #PB_String_Numeric|#ES_CENTER|#PB_String_BorderLess)
      StringGadget(#Hauteur, 90, 25, 75, 17, "100", #PB_String_Numeric|#ES_CENTER|#PB_String_BorderLess)
      TextGadget(#Text_L, 20, 5, 60, 15, "Largeur")
      TextGadget(#Text_H, 110, 5, 60, 15, "Hauteur")
      ButtonImageGadget(#ResiZe, 5, 51, 160, 60, CatchImage(#Image_ButtonImage_8, ?Image_ButtonImage_8))
      PureCOLOR_SetGadgetColor(#Largeur, #PureCOLOR_SystemColor, $13A9C4)
      PureCOLOR_SetGadgetColor(#Hauteur, #PureCOLOR_SystemColor, $13A9C4)
      PureCOLOR_SetGadgetColor(#Text_L, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetGadgetColor(#Text_H, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetGadgetColor(#ResiZe, $71ECFD, $82F7FD)
      PureCOLOR_SetWindowColor(#WIN, $55CBFD)
     
      If CreateMenu   ( #menu, WindowID(#WIN))
        MenuTitle ("Menu")
        MenuItem (#menu_about,"A Propos")
        ;PureCOLOR_SetMenuColors(#menu,$00, $55CBFD,$00,$55CBFD); ca marche pas si on les mets 
      ; PureCOLOR_SetMenuItemColors(#menu,#menu_about,$00, $55CBFD,$00,$55CBFD); ca marche pas si on les mets 
      EndIf
    EndIf
  EndIf
EndProcedure

Procedure OpenWindow_WINabout()
  If OpenWindow(#WINabout, 565, 484, WinL, WinH, "ResiZe "+V$, #PB_Window_SystemMenu|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#WINabout))
      TextGadget(#Text_L, 5, 0, 160, 115, about$, #PB_Text_Center)
      TextGadget(#Text_H, 10, 120, 150, 15, "Ce logiciel est gratuit", #PB_Text_Center)
      PureCOLOR_SetGadgetColor(#Text_L, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetGadgetColor(#Text_H, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetWindowColor(#WINabout, $55CBFD)
    EndIf
  EndIf
EndProcedure

Procedure ResiZe()
  MessageRequester("no","pas de  soucis")
EndProcedure

PREMIERE:
OpenWindow_WIN()
RESIZE:
;{- Event loop
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Largeur
        Case #Hauteur
        Case #Text_L
        Case #Text_H
        Case #ResiZe
          ResiZe()
      EndSelect
   
    Case #PB_Event_Menu
      Select EventMenu()
        Case #menu_about:OpenWindow_WINabout()
          
          ; EndIf
         
      EndSelect         
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #WIN
          CloseWindow(#WIN)
          Break
         Case #WINabout ;  ici  modification 
         CloseWindow(#WINabout); ici  modification 
      EndSelect
     
  EndSelect
Until quit
End
   
SECOND:
OpenWindow_WINabout()
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow=#WINabout
        CloseWindow(#WINabout)
        Goto PREMIERE:
      EndIf
  EndSelect
ForEver
    ;
    ;}
Haut
Avatar de l’utilisateur
Ulix
Messages : 315
Inscription : ven. 04/juin/2004 14:27
Localisation : Frontignan

Message par Ulix »

Tiens ! Fais un essais avec ça !

Code : Tout sélectionner

;{- Enumerations / DataSections

Enumeration
  #WIN
  #WINabout
  #Largeur
  #Hauteur
  #Text_L
  #Text_H
  #ResiZe
  #Image_ButtonImage_8
  #menu
  #menu_about
  #Image
  #BT_retour
EndEnumeration
;}
Global about$="ResiZe v1.0"+Chr(10)+Chr(10)+"Ce logiciel a été réalisé par LDV MULTIMEDIA"+Chr(10)+"Il permet de redimensionner les images JPG et PNG."+Chr(10)+Chr(10)+"Découvrez d'autres logiciels sur http://ldvmultimedia.free.fr"
Global WinL=168
Global WinH=135
Global V$="1.0"

;{ Included Images
DataSection ;>
  Image_ButtonImage_8:
  Data.l $474E5089,$0A1A0A0D,$0D000000,$52444849,$A0000000,$42000000,$00000208,$4A215F00,$000000F3,$58457419,$666F5374,$72617774
  Data.l $64410065,$2065626F,$67616D49,$61655265,$C9717964,$00003C65,$4449F71B,$DA785441,$8C695DEC,$7E55D764,$D6ADBEF7,$7BBDEAEE
  Data.l $4B3D3DA6,$2C978CBC,$10504C4E,$4A470091,$424B110C,$81472422,$C4221410,$822C288F,$0255881F,$48B62405,$CB0A0401,$0848880F
  Data.l $E3127622,$8C1DB228,$B63DB1EC,$C7B1E3C1,$78B3C78E,$D6BBDEB6,$CBBDEF57,$7B79EE77,$926A4F75,$EA89DDC1,$754D4DE9,$7BAAABF5
  Data.l $77CE77EE,$6DDE7B96,$BEF7E3E3,$DF1D18DD,$15C007A3,$CFBEEFF8,$528F187E,$530C210A,$A694D34A,$2BC47814,$BFC10A74,$1C7A2212
  Data.l $1EEEDC4D,$0E84420C,$08C82290,$EC24CB2F,$4C70BC12,$ADF7E9BD,$D1453E9D,$5E7C4781,$DD08E884,$60AE83BD,$98FECB6B,$A37E8EC7
  Data.l $376D8B0F,$E118CFC2,$F483DDF7,$AB06F60E,$C6346FC4,$75F1C009,$B6C5B4DA,$DDB23CA6,$1ABE623D,$0C1A22DA,$30C21E11,$620D6784
  Data.l $9C167374,$6DE48BD1,$13F111AC,$DE508C65,$9D6323DD,$9D2E8322,$F444A861,$12980863,$78600988,$B07CEDE6,$CF475F11,$6DBF09F8
  Data.l $8BBBCD64,$A04E5031,$98022251,$212BC630,$B391A49B,$B05B5360,$E2CC018A,$8440BD07,$C9BBD216,$444D49D0,$E3A3EFCA,$CCBBF7F5
  Data.l $0964DAD4,$C3568211,$603FC114,$8705A97A,$00371161,$BAF13809,$8F511194,$F365DDD0,$8E039155,$D36955F9,$6221A433,$E2F6558C
  Data.l $78916004,$362A7D59,$0D9F88E2,$262226AD,$EF3F11FA,$48EB05AA,$591BB60A,$A85F9B30,$8A0AB27D,$451A53F1,$118769B3,$4F018B83
  Data.l $F80A98AC,$BD134673,$249C16BB,$2351ECBA,$3F06558A,$952F2266,$46DAD146,$2ACEA715,$2919501B,$928687D7,$63A3C611,$59563117
  Data.l $824465C3,$1F317A20,$B300C75A,$3DC98D67,$D73F2E87,$6109AD96,$3A3E2F1B,$7854E75E,$CB359C80,$7E41C5E2,$A7D6004E,$99E3842A
  Data.l $799D9AA0,$88F319C8,$4D3777A2,$D30DAB22,$E66226A4,$57B2B902,$A6DE008D,$82B99574,$5F48E0F3,$63AD51C2,$322C8377,$093BA437
  Data.l $418740C6,$E2394C49,$AA532367,$305BA02C,$4D6CE673,$44B646E3,$C9763A32,$72A53580,$B292ABB8,$D8A8BF04,$CB0CAA85,$D2E96FCA
  Data.l $0A308D63,$EC7479BE,$AF1D144A,$B974A9F2,$8A548B2F,$DE0155D5,$BA11C816,$35878DDF,$94E8E2B4,$869F6A89,$CF4E3F5D,$394329BD
  Data.l $2DCC18E4,$E2AF3561,$327F5438,$3046EBF4,$20EC77B9,$579D7652,$6962E708,$8E512BFA,$1984D41F,$F37A12C9,$113DEADE,$EA48A9E3
  Data.l $84CD9634,$61394A34,$8A88CA7F,$2F74CA45,$46945FA6,$1E1F02A5,$9D7C6F76,$C86B1883,$257508E9,$6524F293,$E69EC754,$67273BD8
  Data.l $9912492C,$28659919,$27708283,$AD052CE8,$6D6118B7,$E90E31D7,$A19D0150,$BC72FC34,$66EC2E12,$20FD3356,$40806AD4,$9FC75546
  Data.l $1911B14E,$31FE33A9,$782B3D91,$08CA9A44,$F800F37A,$B3945E75,$0C0E9C86,$40C3F031,$E4A4CBCF,$A8BC80EE,$7D71B4B1,$F19C8B93
  Data.l $E178E223,$AB29EA89,$DD6FCA72,$FF7D6FEA,$ECE3456E,$DF4520C0,$A0FDFB0F,$E066F9E7,$266D884D,$02E2571D,$A1FBEBA0,$B2D307EF
  Data.l $0018AC28,$2A3F1138,$E308ABDD,$F3657B08,$A35EED7A,$3F0E9A68,$DF9EBD0C,$1FAF02F3,$5724901C,$1B62C16A,$32458F8B,$C46D8EB8
  Data.l $6AB4E2D2,$76904227,$C3DDA6F7,$D0176C98,$66FDBA76,$5EFC73DB,$F1F9E734,$B8335B74,$23DC4606,$63217DC1,$5E0BCF2B,$29573E5C
  Data.l $C25E86C0,$8084BA13,$89BD7AAB,$D8D21950,$54CD1463,$BB4179E6,$EAD1D343,$FB4CA5F4,$AC059202,$56E722A2,$1123A02F,$D2C17ACC
  Data.l $EF1FC670,$742A4B7A,$32630577,$EDD07EDF,$DECD9BF9,$F5D746FA,$D978093A,$68420823,$AB7A1400,$1E5AB5E5,$3522412B,$E2339CC3
  Data.l $BC82738C,$CE082861,$24269750,$C752D7AF,$EBC53285,$84351AD9,$700C360F,$B4060014,$8DDD9BEB,$BC012EAD,$38674B13,$801950CA
  Data.l $E4B30C45,$3A593D1F,$DF6FB615,$2A125CAD,$9760A10B,$FCEF76CD,$7FB3D2A5,$680866FA,$3B29514A,$D53B9AF5,$958F8CA8,$7A05AE4A
  Data.l $9B1BC606,$297AB71D,$B2445805,$F3A718A7,$B8956710,$B4A40038,$6B60438A,$4E5F66CD,$97B99D91,$11F1D600,$BE54163C,$DF9505BF
  Data.l $AE334AEC,$EA39E66E,$98B97F33,$72E55364,$9D0DF878,$59B5DEB7,$D703B572,$72D2C534,$EF6201EF,$86DF4324,$E90BF1E1,$63256B09
  Data.l $A1447577,$E9848643,$A06133DB,$E04FA20A,$1D531214,$89E13804,$52C319C9,$076DB001,$06A10578,$3801A11E,$ECD0E860,$AFFCA6B5
  Data.l $95E86787,$9E25A9A8,$DCD28C81,$F16B477E,$D65C6E86,$6960574D,$B66B4049,$F6E15BEF,$2477E7F9,$451E77F2,$15C05CD3,$69C9C741
  Data.l $45097AB5,$FCF9D567,$13F9E739,$698A8B36,$63D8F9C0,$A95F03F6,$2E57E27C,$2E7C2637,$86B4B296,$5DD32E26,$32CA85ED,$E9CF8645
  Data.l $AB05CE90,$395D92FA,$F20B690B,$F3789693,$A0C6FB7E,$B2364B93,$3837076F,$EAECE7F5,$196AD24B,$3089CE46,$56BF2A9D,$99DEABF2
  Data.l $3D7643B7,$6DCB717E,$F9B86FCB,$901CE90A,$4A658530,$534D32DB,$AFE35B76,$6D8DBC9C,$3CCD757D,$C434E0FD,$99642A87,$20C46940
  Data.l $DEC5FEEC,$85747FBB,$1854DB9B,$62757815,$86C74BA9,$E2DCF971,$EB1BA5FA,$BCC66DB5,$FC9AC8A3,$B081DE82,$F91054BB,$51D1473A
  Data.l $298C059C,$80220CEC,$FC653465,$B69AEDD8,$B5A0F26D,$AFF5D3EE,$4F27105D,$01F8EF3A,$F35CA95F,$280F3D1E,$F05254A4,$2AB45134
  Data.l $8F336B37,$A94B95DA,$3DFE25CD,$BA59A37E,$8FF43388,$2377AB7B,$4D06CB52,$AF6139B0,$101F1634,$EB8B9FB2,$73467633,$A72D34E4
  Data.l $0CD69769,$64C24663,$E898D92D,$1AD4B0DF,$8AC6A570,$D0429157,$5092003D,$3E022CB7,$E1A1F7A7,$170821E3,$ED7F77F6,$4F50AF37
  Data.l $CB62B26A,$5492AF2B,$ABC61439,$773B9CDF,$13D34DEA,$DA85B691,$61663068,$9FA6572D,$4CE446D8,$CE9566BC,$598CF728,$BF5FDE3D
  Data.l $D793F95B,$1435F30A,$03A3B83A,$33B8D0A8,$6713CBE6,$AC6262DB,$F7815F8C,$6CEC3ABA,$5FBD7077,$621C06A9,$D99D58A8,$719DBB8E
  Data.l $A414C55A,$0C58C8ED,$C0FA7973,$8BECD283,$B4997F01,$DDDE2420,$99A59A74,$DE573BFB,$D6958C03,$1F827C24,$7C0FE674,$46FB34DD
  Data.l $0315433E,$EB460D59,$394CD656,$8E4AC00B,$07214785,$EAA314BE,$8EB2A0D7,$0E2B5563,$B294DF3E,$0EA822EB,$C3A146D8,$85F1343A
  Data.l $93E27DE9,$286AD52B,$5FD2B992,$F0336BC6,$4C4F274A,$E8F2789D,$DEE4ACFC,$3EC37637,$A3B8BC8B,$C97A49C8,$69BB4B30,$5FDFDE4F
  Data.l $D70547BD,$AD75B186,$D9313F26,$CC857467,$0C3093C4,$AD9F9CC7,$07318B43,$D6F05A70,$A9C9E4D0,$EAEEDBFE,$583603B1,$AE1EA59D
  Data.l $A7D6B461,$0B269F0D,$636A04F0,$8107A6F1,$2F43B6CD,$073C5DE6,$FB9D5796,$F7D9C6F2,$5781B1C3,$3BBEDDBA,$B729DA76,$29845877
  Data.l $F0C9093E,$9A1EBC54,$C445120F,$1D768819,$1C55ACDB,$8BE6008C,$1E4F9E27,$5C1D159A,$43F5E9DD,$8FD9FDD5,$F19A999D,$8916CA63
  Data.l $333D2932,$9E952E57,$D4D0F478,$92D8EDB8,$2EB426FB,$62E44D5E,$2D322491,$313D34C3,$F96F7F79,$0D2A95A7,$5150F18F,$34E00174
  Data.l $37B8C8C4,$4CDCC5CC,$0E0A4A0D,$169F912F,$F1BADD37,$E45E0FBE,$67520FA5,$B18441FD,$4DAC6C61,$574DAE6E,$E0CB14CA,$3C3785FA
  Data.l $C1FD38E1,$67AF602A,$53BFFF3E,$4783BE60,$9EF56BD6,$0DBC3952,$4F1A95E9,$13BF9CAD,$CF0911AE,$936703A1,$E4D5C212,$340ABFD7
  Data.l $3A19A442,$D9734DD3,$09691E84,$82D681DD,$25CFC1C3,$746BEED7,$B6D32E29,$BEBD740B,$5F07EF7A,$19E85B99,$49850E03,$F705C2E7
  Data.l $7372FF0B,$94A956A3,$6381D76D,$0119A497,$DC373285,$893BDFF2,$B393CCFC,$F07872A5,$DAA57AF0,$1B0CDC13,$3C349F33,$6A9CF2B3
  Data.l $53FAF5BF,$1C40B274,$89F2DA55,$9DF16520,$E6A1D2CA,$10BFB78D,$AF507350,$144CD531,$A99648D0,$CF410035,$A3D9F17A,$465C8552
  Data.l $D4F2E650,$9C9CC5DC,$0BC5C9FA,$F5FECFA5,$2176B801,$F132B545,$3ABC8FA1,$5431DB3D,$32B2BD6E,$97B9F2F1,$6BBA00EF,$A2C39D1B
  Data.l $C0FDE147,$705E2FE0,$BCF2F81F,$C3469C0A,$FD9D55AC,$F3337BFB,$DF09001B,$E482570E,$1445C81E,$0945299D,$E834742A,$82472E76
  Data.l $2B254BA8,$02C0A208,$8BDE3751,$EF7EEEAB,$9DF3730B,$AA6677C4,$AF25A4CE,$EE7EE6BD,$57AA6E9F,$12F5E36A,$AF541E48,$0DD09F69
  Data.l $E9F195E4,$F5503115,$EF7C882C,$353ABDCF,$FF3191DD,$CDF09A19,$EB7EA9F2,$CD86A54E,$D6A1ADA5,$65788CA7,$3E4C3D8A,$75C1E67E
  Data.l $95CD95DB,$31C4FA99,$0527EECB,$8C7E42AC,$F33C7641,$D1BDF76B,$4AB56354,$F4E2E9D8,$4A7EDC8F,$DE58DB9A,$FCDDFC3F,$6C4526FA
  Data.l $1B6AD7F8,$F6343F0F,$E2740FFE,$4A9A334C,$B57DF64B,$4894D5BE,$745E2EDE,$91B717E7,$C68791FA,$CB749E4F,$E2BAB5AE,$DB978C4E
  Data.l $CF17331B,$7931811C,$0298027D,$722C0063,$DD78F4E5,$1A88A0D5,$266DA391,$B76C1C71,$E6287D2B,$B9F07EDB,$B2361B85,$E5D33E9E
  Data.l $F23A7464,$AA5F7FFE,$8D93EA96,$05860032,$617CDA5B,$83C750F7,$24C94F47,$BC8BCD44,$9A0E49B1,$78F63E45,$EB1F9EED,$D1016BC4
  Data.l $EADDA6C5,$8C692D89,$383CCF5D,$A46912B7,$B61B2B7E,$A99877E0,$F6E6E74B,$C4673A1F,$F180AC6E,$9E344F53,$B654B639,$82631BC7
  Data.l $ADADA323,$6AFCF4EE,$3E4C2952,$9AD56D70,$92700E9A,$8F81F8D1,$B8F4CC70,$458D9B3D,$E4A884C4,$865DAB56,$62F53FCB,$DBEFCEE9
  Data.l $F13FF866,$B7DF65BE,$61AA79BF,$925537C6,$8EDFD517,$B60DA910,$1A4ADA5C,$89488421,$0A29F75A,$44295F78,$9DD6BE54,$BE6F382D
  Data.l $A1E2F8F3,$AC550AD7,$476EE004,$1EDFE3FE,$D3937A09,$54A86593,$5C96E6BD,$8478679A,$2D162EB6,$99CCB81C,$41EA5648,$1F5D3D91
  Data.l $459CC235,$E281CB69,$7EEC87D7,$C3A28E1C,$C61032A8,$8F918951,$DE1239A2,$FB3EEAD8,$C3C5BEE4,$6A2A94E7,$F58ACAF5,$407E7F57
  Data.l $A999F1A8,$74B35BAA,$3BB6162C,$EA36205E,$592CBDE3,$A6A69BF1,$F2FF8FFC,$DEE16CD9,$DD49E388,$33449A36,$A3BF3598,$F1F8F10D
  Data.l $776F9DD2,$57B9BE6F,$3572CE50,$CE47D0FC,$FBB6789F,$1C8723D8,$724582CB,$BF0A3FB9,$AB1B01FB,$E8C26EDA,$26DD5B5E,$60031493
  Data.l $3E8E07F4,$B9E0EFBE,$99197B2C,$5B7697EE,$1CDFFDFE,$B740BBF1,$6AC77402,$6B64A56E,$B30CA0C2,$6342F6D5,$520A54BD,$BFDA13FE
  Data.l $550E45E6,$D30A115C,$9F8A8AA2,$B0CB6AE8,$9543F36B,$2D16A3BE,$9728D982,$BCB28183,$BF9EC1F6,$E17EDEBA,$EEB1B905,$6139EE24
  Data.l $BF69E9A1,$631B775E,$765C0825,$0038026D,$6ED37DC0,$9726388A,$4E675B9C,$3E948B19,$F8F05249,$89C9715D,$FE9F52CA,$6733E9B3
  Data.l $F027C2AD,$569BDB79,$4E67EA7E,$E1F41D2E,$8CC75D0E,$479A1633,$BB913A9A,$0A458EEB,$45A93B03,$F01E3570,$ED4E2794,$AD1B3A5B
  Data.l $903C1437,$7EAFF39E,$4CEBC169,$98544D4C,$5C75F19C,$8B45E01E,$1013CB66,$2C209259,$644EDCAF,$3328CB19,$99326CF1,$B618183A
  Data.l $150E4A77,$57E3A560,$297B16FB,$C42464B7,$3D356F2C,$3D8F3B04,$5908563A,$0FE778F9,$2346B1AD,$860B6160,$7EBD7435,$79F8CE4E
  Data.l $4B06640A,$4E755321,$AD58D9AE,$A6047EF3,$FC9E1029,$9D4EEFC1,$9911DE7C,$34C27172,$77CD5313,$610C7DDC,$C40C3411,$4969282B
  Data.l $EF23F9FB,$5ED09990,$5C2A227B,$F78A5C07,$DD2F93AA,$13A7D6FA,$1FB3D3E3,$2CF0A1AD,$F79FFE7D,$1FB53E9F,$2A344EE8,$9E0EAE8C
  Data.l $50FE2E85,$E915055A,$4EA9FAF6,$E46C880F,$A430BA75,$CD6ED228,$BF5D50AA,$21A78934,$BAAB12E4,$0E8D12CA,$BE87BD4A,$7BD77D5E
  Data.l $AC730796,$5E58EF5B,$B6B9633E,$B691740B,$0DC2C032,$DB063484,$DAFA1E07,$ED0FA3FC,$4985BF63,$C2F3E281,$5CB2D80E,$4BC627B2
  Data.l $99D593D3,$62A22AC9,$1E3AE2BC,$EF5E1C9C,$05977AD0,$81FFDF8C,$6FBE4FE6,$68F9172B,$78004756,$4F87AEF4,$D7977B1E,$8D5445B7
  Data.l $B2CB1152,$FB6F4F5F,$C54777E1,$9955C86A,$B796E978,$46944F1C,$EA64254A,$E97E7038,$BEAFF38B,$B2666FB4,$695E3932,$2A317468
  Data.l $6DBB1268,$6C8868A6,$F9108138,$C8A0EF5A,$4ED9AF2D,$068C4645,$AA9D98DB,$9B1B9FEE,$364DAD9B,$2B452BAE,$8549E695,$3952B0CA
  Data.l $3EF9751C,$BC4178BC,$7C8EDA7A,$DB32E667,$AC8E97F1,$2CC8AC60,$FE4A2675,$A59ABC0F,$E69184DC,$2F3CDA17,$0E37BE86,$513228F9
  Data.l $BDBC3338,$7130B252,$FA3A6DAE,$A556392C,$A9902362,$1D57B9C3,$FC4A035C,$3FC617E2,$DDB387F5,$3D1ACCAE,$F769805B,$489F0E17
  Data.l $49C83896,$516CC257,$20670D33,$5D08A051,$DF2E6C4A,$46E396FC,$9F8C078C,$51D7114F,$78D63C9F,$D04599FE,$799804F2,$C285D08C
  Data.l $79A68051,$75C08A22,$B769CDE6,$C6E12018,$D9152F44,$148C89CA,$DC8CA5C0,$AE382DE4,$0E51B569,$CABAD043,$C8BA97A8,$7C5CE707
  Data.l $B3F9F182,$2F851663,$7D0F81F4,$8C8B92BD,$DC0ECBE2,$0BA53CF4,$C091FFDA,$C9E2F841,$52E05192,$DCB7C54D,$BFB0B9BE,$21018B8B
  Data.l $DC57AC84,$71F0B871,$7D314A0A,$D15BAAB5,$F2D65833,$C2E4344F,$375982BC,$7563CAC6,$25F06A0A,$FE944F27,$06168FE4,$38F01B17
  Data.l $163A7F35,$E1BBFE8A,$D3972F06,$35E1E3C7,$CA1BA034,$E3BC77CB,$C496A91B,$019E32FE,$E3E3C4F1,$0477DE0F,$119C82E8,$18ABD467
  Data.l $16AED91B,$A2027055,$4C2883DB,$15C6773B,$21C70585,$72FA8644,$CDE2C4B5,$652E8671,$93B2D90D,$5FEE6AB6,$629919EC,$8EBE624D
  Data.l $7AB4920D,$F7AA0B3D,$7BD5C3C8,$4051BC3F,$6E3A3F17,$FCE67C7B,$28F985CA,$72AAD2EF,$607D8CF6,$53583FA9,$2FA3F7BC,$079FFC3E
  Data.l $2CCFFE4F,$376B3FAB,$1C2CC364,$78BABC3C,$9AD7AB60,$36FA78B8,$F3B03C8B,$D5FE3F43,$BCCCCED7,$89F8FCF8,$31579CE7,$B60F2D83
  Data.l $5CFD38E2,$612685BB,$FA9599F6,$B9B55ABA,$38B98ADF,$1788A657,$F23DBBFC,$F5DCB73B,$59F8E38C,$13458D52,$A7A6B2EC,$FCFD0F83
  Data.l $00030A29,$06E3DEAA,$35A5D9D7,$388976A4,$F4DD4E67,$F87DA5DA,$904776BE,$85FB07C8,$F5A10434,$2FCF224E,$5C1C0F74,$D5B7DF9D
  Data.l $57B64CEF,$704B48DF,$15600BD7,$5F40E0DF,$1B57AD16,$9E282CB9,$502E041D,$D3874C31,$161B5AB6,$51E8FA26,$C2C2DB2F,$9C2E4F18
  Data.l $4311C004,$7EAF87EA,$1F0BFEB9,$5606355B,$B8275D85,$DF979EFB,$AEAF23F9,$66A2D72E,$5D98C301,$D1CA4F58,$E23F1C2F,$DC83CE50
  Data.l $FB0BC5D4,$1E2CAE97,$EFC3F2BC,$ED7D8FA1,$D5313B9C,$5424D907,$C7ECB513,$AD5F5E63,$4C276187,$6910DF6E,$81E2AD7A,$98402F21
  Data.l $8E00088D,$8D89BF24,$E8C34D4E,$D2F18183,$E40726A1,$AA2CAE2A,$FB372881,$A95F03CA,$5717F47F,$14F5E6E3,$95E444AC,$136E352B
  Data.l $CF4EC7C0,$0C31E3AE,$E7E9F9E8,$CDA8EA8E,$9EB8C294,$6A5A383E,$13093DD5,$B3237DD3,$1E6C995A,$10B11360,$E241C26D,$CAC793F9
  Data.l $B6484AC9,$7E32B0B9,$ACB8D2B9,$06F45B17,$FA3C524F,$69F4ED48,$9201D0BB,$7F6CB73C,$CE9D7E66,$F9D9F585,$11C99575,$FDF2E511
  Data.l $D57EB4E9,$A833A4A9,$7BFB7D8C,$4DB852E5,$595FA220,$FBEA9E5F,$C2C61F6C,$824EEEBE,$ED9B5943,$8756FADE,$4E332B7A,$9C666124
  Data.l $2B0FA161,$72A18523,$F75A0FE5,$95ADBC15,$B51BF478,$9A66CBE5,$F224EC99,$332A9D1C,$618D522D,$42C1616E,$F69F7B0E,$511B0010
  Data.l $4CD02389,$EF57A93D,$3C56CDB3,$C896DB50,$ABB0007F,$4FE38223,$92C05395,$C27D3F55,$84EF5205,$702DE265,$CFD8E029,$FA71BA7C
  Data.l $35E54B15,$234FE546,$4AFC75F3,$8F815DAF,$247D74EC,$52ADAD30,$DF2C05AE,$12239611,$C2F2BC65,$1C402641,$5430296E,$988F66FE
  Data.l $6D3ABA9E,$D9EADCDD,$D9C77F76,$0B34DB54,$C0997F17,$26231D43,$9FC7FC8B,$C57CBC9A,$98634ECC,$D01B5FED,$13C8A892,$0D73A072
  Data.l $0AB7D671,$A7DAF4B2,$7CAB153E,$8E985804,$34240883,$2ED86E30,$F90E03A2,$C41D57D6,$E83F2AD2,$73139F50,$AEB52BA7,$489452EB
  Data.l $F9D6BB17,$FCEFEE73,$71D914D6,$7EF95DF4,$11FC552E,$B4EAE6E7,$B7F222EE,$8738D45A,$B2F07758,$1E7CE402,$17ADC6FB,$4EEACCCE
  Data.l $9E18C242,$5B9A154F,$59A9C163,$F3E1EDA7,$DBBA16E7,$F625B0AE,$3A7B7D99,$6BC5FCE0,$69D053CB,$7EC22C10,$22702984,$E9C9FEBF
  Data.l $641DE448,$8E3A2ACC,$330CE6F6,$3BE6F0DF,$37C70584,$E01A0434,$599B0703,$F03C12B4,$4621BC23,$B25D144F,$55417011,$B2709C4F
  Data.l $CA32AA8C,$B2F4B0B8,$36E90B4B,$B10AE182,$ACF5EDBA,$99D5F8DF,$D8EBFC2F,$4AC5B2F2,$1C374593,$2CDDBBC0,$56CCCAF3,$DEB2B7B3
  Data.l $58C4E17E,$760BEB41,$AFD3C78F,$73E3FF54,$8D5521B7,$71ED0B62,$D914BF10,$E9E67E34,$F5DBB5B4,$E466848B,$AE5CDFD2,$6FB3B6A8
  Data.l $834C227D,$6464434E,$03B29550,$EFF22198,$BFD4F6FD,$F96C7E7D,$01E4464A,$F47E4DF3,$18A4957A,$449A7C33,$DF793E97,$96C0712F
  Data.l $F0716F06,$E95479E1,$2EECDF5D,$5C2EB6AF,$DCB4BCDA,$6CECDF5A,$7DD23CB5,$C382E2D7,$99B1F9FE,$8D062AC9,$9757E277,$2F179B96
  Data.l $CDFAE16F,$F4F38F66,$B846D96A,$66166B8F,$591EB8EB,$7A3AD504,$E746DAFE,$CAEB4AF2,$A36D6B4A,$F0F4D9BD,$F363CC5D,$43C1E1F3
  Data.l $CA6B423E,$96E10C07,$169B6EC3,$A85B105F,$1AB6EDC0,$7C067F46,$C0064F81,$8DB590F8,$DBACEC2E,$B5CCCFED,$DC1E1AC7,$4FE8F72A
  Data.l $2F97F94E,$85EA9353,$B58DA5F3,$73E354BA,$46C9B5D3,$FBE19C05,$74BA8401,$A57979A5,$6DD9B1B9,$31848875,$A649C8F5,$8465541A
  Data.l $6EF5C1FE,$3DA1756E,$101DEBAB,$2A5CC535,$84C81E4A,$531E56E2,$B0E8F377,$08DDDD27,$2027C723,$82D09F2F,$8A5F11E3,$C4E30158
  Data.l $6D595CCC,$B677ADAD,$C8B0FCF4,$B3FB0F87,$0C8B2173,$B0A54AFC,$035C96D3,$D7B70308,$7662586A,$563E3ABC,$5422A173,$17069049
  Data.l $8DBEAFC9,$FDDF9BE8,$2A10D617,$EA609440,$182E3385,$CB9436B1,$0E548736,$97535379,$A864242F,$86081C55,$1DA480E9,$638EFEAD
  Data.l $E72FB945,$79F1065B,$5B5E0859,$9A091EA5,$7AB40911,$2B56041E,$D56D72CB,$AAE9F67E,$1EB339C9,$6912A637,$84AD58D8,$586C9FD9
  Data.l $F9ED15B6,$F867B516,$95FB1821,$3430AC57,$E4A27A9F,$06C351FB,$30C0C02E,$8DC8A454,$D5D35B86,$E0B4AE25,$19784111,$75D5C1E4
  Data.l $4B4D99EA,$CD15960A,$2BC3442F,$C967DEB4,$FE3BF6E4,$B2460D5E,$2CC8A03D,$251A679C,$AD53E4F5,$950536C6,$8BA6A8DD,$118EA259
  Data.l $483BB653,$67A068E7,$CFE738CF,$3C88AB89,$F10B6D3B,$F19F6CED,$D566002D,$5E6A4D30,$39029101,$2B321C8C,$AD565EF2,$388CA7A2
  Data.l $CA73D299,$35C2941D,$4852DDE3,$53B2931D,$4C5346A2,$975BEC25,$8BCF25F8,$568BCD45,$7D242952,$AC842DB7,$DF1D43E0,$2777F186
  Data.l $1E126D9B,$FC7646A4,$3524A148,$5C50C066,$A3786AF2,$090197A9,$C7774B57,$ABAE82F1,$3A8D5D4B,$D752A9A6,$C4824415,$544EA9F3
  Data.l $8BBEBDB6,$026100EF,$AF5BA060,$91242A95,$32FA7105,$6F430684,$DF6608B4,$106C760F,$4E770A31,$DF4A482B,$9075A90B,$589690E1
  Data.l $5F2C21BC,$C5E03186,$7AF56BA6,$8BAC89C3,$CABA6662,$E6003D78,$18B591C4,$C2A754AA,$0B35722F,$925F8676,$E86C97FA,$70585717
  Data.l $AD75EB0D,$45BAF812,$53A8330D,$C8AF98C9,$934AE0F7,$2D378D69,$0C819266,$DB6AA4B0,$F0FAF6E9,$14B2D47C,$2E9EA4AA,$D706E174
  Data.l $97477D50,$663E7524,$D2D04CF1,$3FC54FA9,$47EBC78C,$0944533D,$76606EDA,$357C5930,$3025C5DE,$8D6BA8FC,$5631DAB4,$F1DBE12F
  Data.l $8C12BB0A,$CB57F00D,$D750680E,$6CDAA947,$BD59F191,$446FAFAA,$D1B43A1B,$EA3981F8,$745D33E0,$F51422A3,$67BD4A65,$5572E0B3
  Data.l $8EE67052,$5C88ABEB,$6BA456D6,$46DEDB58,$56F6E3B5,$C560B757,$2F30266B,$ECEDD155,$9D7DA35A,$44BA5928,$F798578C,$9CC89CF0
  Data.l $46B305F8,$73D63AD3,$AC792A99,$494AEA20,$F163B52B,$2508A958,$5D22FA23,$DBEB4501,$6F80FC9F,$CDC68BFE,$A8214834,$BE19714B
  Data.l $68603A8E,$062F0E0D,$E4DE4D7A,$70044B1A,$5098596C,$E1FA1C9C,$F5C72002,$93C3BA61,$C3C08B94,$92A8F607,$3CF06211,$4BCCC048
  Data.l $90671440,$7563FA15,$3224AE17,$1B4321B2,$0A3E172D,$D0FE0B8A,$B026A3D9,$D3477058,$61A6443E,$AB32270F,$F4DE0148,$78357EF6
  Data.l $022A9893,$9BC5B85C,$96817C7B,$1E92A965,$F014A55A,$A4A400DD,$5268709A,$8D3CEA6C,$2486CC4A,$783DD3BA,$3B4D4BBA,$D1C5FCC2
  Data.l $8C9AD5A6,$1A4533C8,$BA30854D,$2BBF40C9,$A7BBEECC,$9EEE1A83,$C6BC12A1,$9548B4C0,$FA0D624D,$D75C0555,$E2129BE7,$28CA4005
  Data.l $66173B24,$7AAE7248,$8EADF57E,$114944EC,$20D2E4F5,$91B45489,$305B9A59,$DF3CD272,$0C335ED2,$77F6E5AF,$BEA4D7ED,$8564C255
  Data.l $33D58A26,$E4651F84,$E4AB2995,$2F3887E5,$D1C88ABF,$63688B14,$D5D9912C,$21C8DA2A,$155449D9,$D62D9B76,$2BD5B2AD,$430C9EC5
  Data.l $4BE5690D,$C4B24659,$5865D716,$3C978612,$880956A3,$89A9ADC4,$732C972F,$EC1CCCC4,$5144DA0B,$0FB0274F,$AA8B537C,$CC7C61B2
  Data.l $DD2D1A78,$7C45C340,$49E9D62E,$DF125013,$D46F0B35,$7B82350B,$C5F9D86E,$6AB72EB1,$0424B648,$A5BC6165,$FB877E54,$0B874DA8
  Data.l $6F06D7B4,$7E667222,$44972892,$4D067AD6,$4561DC0A,$F04D7ED6,$9766B4E2,$992B5774,$706B27D9,$132B49AF,$5956F216,$36EF78AA
  Data.l $80F12F11,$54501519,$F9688656,$9E11A64C,$4C16C149,$EC8D4281,$562E1597,$1C891ED1,$09534A85,$A55B6DF8,$F785CEAB,$4939388A
  Data.l $077D5762,$020D8D00,$242DF1DB,$D54B7E46,$F014EFE4,$20C9F81E,$AF0FCDA9,$0C3BAC60,$40C1BD32,$577BFB7D,$FDA64414,$6226A211
  Data.l $34E1322D,$E771C8AC,$F13BAD10,$4B3149EE,$822E8119,$7736E186,$46C9198B,$F9BA2968,$1ADE3C50,$FD43222D,$3B5BF211,$E16AE1A0
  Data.l $2DA12E69,$666DB31A,$B4A0C51C,$B928CDE9,$46FD7646,$064FC933,$93BE25DF,$1BE75E41,$B916771B,$893B46A0,$0486E2AC,$76C8E236
  Data.l $B6161AB5,$56E7E773,$C18FC421,$A4C766DE,$FF3DA6CC,$86AC47BF,$DAD2A762,$61D8434E,$C6E2FB97,$B8F07B50,$48C3DFEA,$C6F11645
  Data.l $D98C59DD,$45DD69A0,$85EA9CC3,$BC7058CA,$F7D09A61,$B1EE0AEF,$4415DB8E,$1D1FBB36,$6204A7BB,$64FAA5DB,$DF915187,$14A54077
  Data.l $2F157C4D,$E22EF181,$BC4E1749,$6FE8F883,$23C1ECEA,$527E54E6,$473BD0DC,$2B4506D1,$71C9C6BC,$645A0E9E,$C359EB6C,$07BC411F
  Data.l $9E6458EC,$54E57BE7,$A294CAE1,$BA6BFDF5,$30883E91,$34146116,$C354FF67,$49BDDF08,$115B83D7,$AC1E428A,$630E75DD,$D115FA6A
  Data.l $7F83F37D,$EC7461CE,$18363856,$BB232B96,$E57261C5,$8B2B2540,$66AF9B31,$7A69DE76,$02DEED04,$3635DD38,$D258F373,$E8A3991E
  Data.l $79E06ECC,$1E5E858C,$8F8C5BD2,$93DCAA36,$C1BC5641,$2C67B273,$51844735,$2D88D999,$4E1FF798,$C6313CAB,$3F33821C,$EF56D1AB
  Data.l $EA48EF7B,$9CC0B4F5,$B5929DCF,$A67F8B07,$2E3215FD,$6F571336,$3A3A01D3,$12ED82F6,$56AD52B3,$C51D1DC5,$EE93A83F,$D2551EF8
  Data.l $F865BA65,$288FE900,$E27A0F7A,$FDCD7D24,$A1628D81,$A207F477,$800F87BF,$0C027FFB,$4EFB6400,$510B79C5,$00000063,$4E454900
  Data.l $6042AE44
  Data.b $82
 
EndDataSection ;<
;}
;{ Image Plugins
UsePNGImageDecoder()
UsePNGImageEncoder()
UseJPEGImageDecoder()
UseJPEGImageEncoder()
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}

Procedure OpenWindow_WIN()
  If OpenWindow(#WIN, 565, 484, WinL, WinH, "ResiZe "+V$, #PB_Window_SystemMenu|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#WIN))
      StringGadget(#Largeur, 2, 25, 75, 17, "100", #PB_String_Numeric|#ES_CENTER|#PB_String_BorderLess)
      StringGadget(#Hauteur, 90, 25, 75, 17, "100", #PB_String_Numeric|#ES_CENTER|#PB_String_BorderLess)
      TextGadget(#Text_L, 20, 5, 60, 15, "Largeur")
      TextGadget(#Text_H, 110, 5, 60, 15, "Hauteur")
      ButtonImageGadget(#ResiZe, 5, 51, 160, 60, CatchImage(#Image_ButtonImage_8, ?Image_ButtonImage_8))
      ;PureCOLOR_SetGadgetColor(#Largeur, #PureCOLOR_SystemColor, $13A9C4)
      ;PureCOLOR_SetGadgetColor(#Hauteur, #PureCOLOR_SystemColor, $13A9C4)
      ;PureCOLOR_SetGadgetColor(#Text_L, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      ;PureCOLOR_SetGadgetColor(#Text_H, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      ;PureCOLOR_SetGadgetColor(#ResiZe, $71ECFD, $82F7FD)
      ;PureCOLOR_SetWindowColor(#WIN, $55CBFD)
     
      If CreateMenu   ( #menu, WindowID(#WIN))
        MenuTitle ("Menu")
        MenuItem (#menu_about,"A Propos")
        ;PureCOLOR_SetMenuColors(#menu,$00, $55CBFD,$00,$55CBFD)
        ;PureCOLOR_SetMenuItemColors(#menu,#menu_about,$00, $55CBFD,$00,$55CBFD)
      EndIf
    EndIf
  EndIf
EndProcedure

Procedure OpenWindow_WINabout()
  If OpenWindow(#WINabout, 565, 484, WinL, WinH, "ResiZe "+V$, #PB_Window_SystemMenu|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#WINabout))
      TextGadget(#Text_L, 5, 0, 160, 115, about$, #PB_Text_Center)
      TextGadget(#Text_H, 10, 120, 150, 15, "Ce logiciel est gratuit", #PB_Text_Center)
      ;PureCOLOR_SetGadgetColor(#Text_L, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      ;PureCOLOR_SetGadgetColor(#Text_H, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
      ;PureCOLOR_SetWindowColor(#WINabout, $55CBFD)
    EndIf
 
  
  Repeat
  Select WaitWindowEvent()  
  			Case #PB_Event_CloseWindow: Quit=1
	EndSelect
	Until Quit=1; si 1 alors fin de boucle
	CloseWindow(#WINabout):ProcedureReturn 
EndIf
EndProcedure

Procedure ResiZe()
  MessageRequester("no","pas de  soucis")
EndProcedure

PREMIERE:
OpenWindow_WIN()
RESIZE:
;{- Event loop
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Largeur
        Case #Hauteur
        Case #Text_L
        Case #Text_H
        Case #ResiZe
          ResiZe()
      EndSelect
   
    Case #PB_Event_Menu
      Select EventMenu()
        Case #menu_about
          OpenWindow_WINabout()
          ; EndIf
         
      EndSelect         
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #WIN
          CloseWindow(#WIN)
          Break
         
      EndSelect
     
  EndSelect
Until quit
End
   
SECOND:
OpenWindow_WINabout()
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow=#WINabout
        CloseWindow(#WINabout)
        Goto PREMIERE:
      EndIf
  EndSelect
ForEver
    ;
    ;}

J'ai tentais de change le moins de chose possible dans ton code, mais franchement, il faut le revoir : évite les goto, travail plus avec des procedures, quand fait une nouvelle fenetre (sous forme de procédure : bien) mais laisse la gestion des evenements de cette fenetre avec)

Note j'ai commenter tous les

Code : Tout sélectionner

 convernant PureCOLOR, je n'utilise pas ! 

A+
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Salut Ulix
Merci pour la modif du code,
C'est effectivement les 2 commandes PURECOLOR du menu qui l'empêche de fonctionner. Je ne comprends pas porquoi, faut que je vois avec Gnozal.

Je sais que les Gotos ça date mais j'aime bien les utiliser :)

Y'a t il une raison particulière de devoir les éviter ?


-----edit------

Tiens c'est étrange, maintenant lorsque j'affiche l'About, et que je ferme la fenêtre, les textes largeur et hauteur ne sont plus visibles !?

----edit2------

Finalement j'ai supprimé la fenêtre #WINabout et je joue seulement avec les hidegadget, c'est plus leger et ça marche aussi bien :)
Haut
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

moi aussi je travaille rarement avec la lib purecolor de Gnozal
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

bernard13 a écrit :moi aussi je travaille rarement avec la lib purecolor de Gnozal
Moi tout le temps, elle fonctionne parfaitement, excepté pour les menus, ce que je viens de découvrir à mes dépends.
Haut
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

content t'avoir aider :D
Haut
gnozal
Messages : 832
Inscription : mar. 07/déc./2004 17:35
Localisation : France
Contact :
Contacter gnozal

Message par gnozal »

Le support des menus n'est pas terrible dans PureCOLOR, mais je n'ai pas le temps pour l'instant de le changer ...

Il faut utiliser PureCOLOR_EventMenuID() et alors çà marche.

Code : Tout sélectionner

...
    Case #PB_Event_Menu 
      Select PureCOLOR_EventMenuID() 
        Case 2 ; pourquoi 2 -> cf. aide de PureCOLOR, section PureCOLOR_EventMenuID() 
          OpenWindow_WINabout() 
      EndSelect
...
Haut
bernard13
Messages : 1221
Inscription : mer. 05/janv./2005 21:30

Message par bernard13 »

merci Gnozal pour tes explications
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Merci Gnozal, t'es un chef
Haut
gnozal
Messages : 832
Inscription : mar. 07/déc./2004 17:35
Localisation : France
Contact :
Contacter gnozal

Message par gnozal »

A propos, j'ai modifié les menus dans PureCOLOR, avec support des icônes et utilisation des ID de Purebasic.
Haut
Répondre

Revenir à « Débutants »