[Résolu] Problème affichage icone en datasection
Publié : jeu. 16/févr./2017 15:03
Salut,
J'ai un soucis dans mon programme, j'arrive pas à afficher les icônes dans le menue contextuel.
J'inclue les image directement dans un datasection, à mon avis ça viens de là, mon convertisseur est pas bon.
Je ne sais plus ou trouver ça.
Merci.
J'ai un soucis dans mon programme, j'arrive pas à afficher les icônes dans le menue contextuel.
J'inclue les image directement dans un datasection, à mon avis ça viens de là, mon convertisseur est pas bon.
Je ne sais plus ou trouver ça.
Merci.
Code : Tout sélectionner
; Editeur D'expression 1.40
; Fait par Micoute et posté Monsieur Dieppedalle David le 14/02/2017.
;{- Enumerations / DataSections
;{ Windows
Enumeration
#FenetreEditeurExpression
EndEnumeration
;}
;{ Gadgets
Enumeration
#Texte_Info_Editeur_Resultat
#Texte_Info_Editeur_Expression
#Texte_Info_Sortie_Editeur_Expression
#Texte_Info_Panel
#Editeur_Expression
#Editeur_Resultat
#Panel
#Boutton_0
#Boutton_1
#Boutton_2
#Boutton_3
#Boutton_4
#Boutton_5
#Boutton_6
#Boutton_7
#Boutton_8
#Boutton_9
#Boutton_Point
#Boutton_Or
#Boutton_Xor
#Boutton_And
#Boutton_Divise
#Boutton_Parenthese_Ouvrante
#Boutton_Parenthese_Fermente
#Boutton_Plus
#Boutton_Moins
#Boutton_Multiplie
#Boutton_Inferieur
#Boutton_Superieur_Ou_Egale
#Boutton_Inferieur_Ou_Egale
#Boutton_Decalage_Droite
#Boutton_Decalage_Gauche
#Boutton_Superieur
#Boutton_Not
#Boutton_Modulo_Binaire
#Boutton_Exponentiel
#Boutton_Hexadecimal
#Boutton_Different
#Boutton_Egale
#OptionGadget_Sortie_Entier_Signe
#OptionGadget_Sortie_Entier_Non_Signe
#OptionGadget_Sortie_Float
#OptionGadget_Sortie_Double
#OptionGadget_Sortie_Hexadecimale
#OptionGadget_Sortie_Binaire
#MenuPopup_Editeur_Expression
#MenuPopup_Editeur_Expression_Annuler
#MenuPopup_Editeur_Expression_Restaurer
#MenuPopup_Editeur_Expression_Couper
#MenuPopup_Editeur_Expression_Copier
#MenuPopup_Editeur_Expression_Coller
#MenuPopup_Editeur_Expression_Supprimer
#MenuPopup_Editeur_Expression_SelectionnerTous
#Icone_MenuPopup_Editeur_Expression_Annuler
#Icone_MenuPopup_Editeur_Expression_Restaurer
#Icone_MenuPopup_Editeur_Expression_Couper
#Icone_MenuPopup_Editeur_Expression_Copier
#Icone_MenuPopup_Editeur_Expression_Coller
#Icone_MenuPopup_Editeur_Expression_Supprimer
#Icone_MenuPopup_Editeur_Expression_SelectionnerTous
#Boutton_Verifier
#Boutton_Valider
#Boutton_Annuler
EndEnumeration
;}
;{ Fonts
Enumeration
#Font_Texte_Info_Editeur_Resultat
#Font_Texte_Info_Editeur_Expression
#Font_Texte_Info_Sortie_Editeur_Expression
#Font_Texte_Info_Panel
#Font_Editeur_Expression
#Font_Editeur_Resultat
#Font_Panel
#Font_OptionGadget
EndEnumeration
;}
; Data Section Icônes.
DataSection
annuler:
Data.l 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 951781632, 2075131932, 62525696, 16777215, 16777215, 515641856, 2057895955, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 1975193856, 2495807515, 2914975748, 79631872, 16777215, 1304172032, 3166109714, 3216179217, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 398595840, 2814251520, 3604886528, 3002886912, 3234076416, 113252096, 2193428992, 3854243328, 2214159104, 3635481600, 16777215, 16777215, 16777215
Data.l 16777215, 1136793344, 3385333504, 3538701824, 3741285888, 2835114496, 3502775296, 3015841536, 3754239232, 3674177024, 2868867584, 3736344064, 16777215, 16777215, 16777215, 29891584, 1992694784, 3721602048, 3573048064, 3774838784, 3774837248, 3723647744, 3737984000, 3589231872, 3741285888, 3808393216, 2801560064, 3702920448, 16777215, 16777215, 449520128, 2932481280, 3621598208, 3673580032, 3824640768, 3824509440, 3841088256, 3689367296, 3639232512, 3774376192, 3824509440, 3824509440, 2834519296, 3703051776, 16777215, 1254958592, 3536790016, 3655482112, 3840758784, 3874049280
Data.l 3857337600, 3840494848, 3756608768, 3773055232, 3790294528, 3874180608, 3874180608, 2884387584, 3686143232, 2245072896, 3316973568, 3353097472, 3957473280, 3957341952, 3923720704, 3923720704, 3940563456, 3940563456, 3856611840, 3789437440, 3856678656, 3923853056, 3940564736, 2917150464, 3686341120, 1742020096, 3434614016, 2966496000, 3452838400, 3972998912, 4040041984, 4023197952, 4023198208, 4006355200, 3905692160, 3855689472, 3956155904, 4023197952, 4056621312, 3016362496, 3686341120, 16777215, 718746368, 3401129472, 3100844800, 3218088704, 3872401408, 4040173312, 4023329280, 3939312128
Data.l 3738314496, 3922733056, 4023329280, 4039909632, 3016362496, 3686472192, 16777215, 16777215, 131609344, 2813730304, 3369676288, 3016958976, 3688114176, 4006882560, 4040305920, 3654559744, 3201640704, 3587450880, 3973327872, 4023461632, 2983138048, 3669760512, 16777215, 16777215, 16777215, 16777215, 2074744832, 3619758080, 3017353472, 3419811072, 3973459200, 3923193344, 3554424064, 3050909184, 3436654080, 3940036096, 2949978368, 3653181184, 16777215, 16777215, 16777215, 16777215, 16777215, 652230400, 3267372288, 3151836160, 3252237312, 2816025856, 3403758080, 3284149504
Data.l 3235525632, 2883200000, 3670156288, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 98779136, 2713395968, 3303160576, 2212369664, 3267437568, 132464896, 2713395968, 3586269184, 2329812736, 3485672704, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 1991056384, 3119057920, 3653769216, 48778240, 16777215, 1323846656, 3284468992, 3872002816, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 1419054336, 2142442752, 48975360, 16777215, 16777215, 569000448
restaurer:
Data.l 515641856, 16777215, 16777215, 62525696, 2075131932, 951781632, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 3216179217, 3166109714, 1304172032, 16777215, 79631872, 2914975748, 2495807515, 1975193856, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 3635481600, 2214159104, 3854243328, 2193428992, 113252096, 3234076416, 3002886912, 3604886528, 2814251520, 398595840, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 3736344064, 2868867584, 3674177024
Data.l 3015841536, 3502775296, 2835114496, 3741285888, 3538701824, 3385333504, 1136793344, 16777215, 16777215, 16777215, 16777215, 16777215, 3702920448, 2801560064, 3808393216, 3741285888, 3589231872, 3737984000, 3723647744, 3774837248, 3774838784, 3573048064, 3721602048, 1992694784, 29891584, 16777215, 16777215, 16777215, 3703051776, 2834519296, 3824509440, 3824509440, 3774376192, 3639232512, 3689367296, 3841088256, 3824509440, 3824640768, 3673580032, 3621598208, 2932481280, 449520128, 16777215, 16777215, 3686143232, 2884387584, 3874180608, 3874180608, 3790294528, 3773055232
Data.l 3840494848, 3857337600, 3857337600, 3874049280, 3840758784, 3655482112, 3536790016, 1254958592, 16777215, 3686341120, 2917150464, 3940564736, 3923853056, 3856678656, 3789437440, 3856611840, 3940563456, 3940563456, 3923720704, 3923720704, 3957341952, 3957473280, 3353097472, 3316973568, 2245072896, 3686341120, 3016362496, 4056621312, 4023197952, 3956155904, 3855689472, 3905692160, 4006355200, 4023198208, 4023197952, 4040041984, 3972998912, 3452838400, 2966496000, 3434614016, 1742020096, 3686472192, 3016362496, 4039909632, 4023329280, 3922733056, 3738314496, 3670940928, 3939312128, 4023329280
Data.l 3872401408, 3218088704, 3100844800, 3401129472, 718746368, 16777215, 3669760512, 2983138048, 4023461632, 3973327872, 3587450880, 3201640704, 3654559744, 4040305920, 4006882560, 3688114176, 3016958976, 3369676288, 2813730304, 131609344, 16777215, 16777215, 3653181184, 2949978368, 3940036096, 3436654080, 3050909184, 3554424064, 3923193344, 3973459200, 3419811072, 3017353472, 3619758080, 2074744832, 16777215, 16777215, 16777215, 16777215, 3670156288, 2883200000, 3235525632, 3151836160, 3284149504, 3403758080, 2816025856, 3252237312, 3151836160, 3267372288, 652230400, 16777215
Data.l 16777215, 16777215, 16777215, 3485672704, 2329812736, 3586269184, 2713395968, 132464896, 3267437568, 2212369664, 3303160576, 2713395968, 98779136, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 3872002816, 3284468992, 1323846656, 16777215, 48778240, 3653769216, 3119057920, 1991056384, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 2562526720, 569000448, 16777215, 16777215, 48975360, 2142442752, 1419054336, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215
couper:
Data.l 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 276659581, 2944236925, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 276659581, 3481107837, 1618836861, 276659581, 1618836861, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2675801469, 3749543293, 1350401405, 4017978749, 1618836861, 0, 0, 0
Data.l 0, 0, 0, 0, 0, 0, 2155707773, 4287664272, 4018241921, 4286414205, 1618836861, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1350401405, 4287993237, 4287598479, 4019097230, 1350401405, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 813530493, 4019031437, 4287927444, 4018241921, 813530493, 0, 0, 0, 0, 0, 1079589378, 1079589378, 542718466, 0
Data.l 1081371742, 4018176128, 4290032820, 4017978749, 813530493, 0, 0, 0, 0, 811153922, 3747824132, 4285549063, 4285942792, 4017704971, 3197657620, 3210886917, 4284629516, 4286412653, 4018373507, 813530493, 0, 0, 0, 0, 0, 3480177671, 4016785670, 1079589378, 1348024834, 4289031704, 4290278942, 4286796559, 3210295810, 4284629516, 1618044756, 0, 0, 0, 0, 0, 0, 4286404618, 2153331202, 0, 2673424898, 4289163288, 3748875017, 1079589378, 4017047305, 3749202956
Data.l 0, 0, 0, 0, 0, 0, 4017509387, 4018100490, 3749466377, 4285877256, 2942583301, 274283010, 2404989442, 4290213150, 3479322629, 0, 0, 0, 0, 0, 0, 0, 811153922, 2404989442, 2404989442, 1079589378, 0, 1079589378, 4287586579, 4290215975, 4288046101, 2153331202, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3747758340, 4017443344, 1348024834, 3210886916, 3212333066, 0, 0
Data.l 0, 0, 0, 0, 0, 0, 0, 811153922, 4286338831, 1348024834, 0, 3211018757, 3211676168, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 811153922, 4286996753, 2404989442, 2941860354, 4285746696, 1348024834, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2674411528, 4287588627, 4286471185, 2153331202, 0, 0, 0, 0, 0, 0
copier:
Data.l 4292927712, 4292927712, 4292927712, 4292927712, 4292927712, 4292927712, 4292927712, 3487621344, 283173088, 8421504, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 4292927712, 4294967295, 4294901502, 4294967295, 4294967295, 4294901502, 4294901502, 4293322470, 3487621344, 283173088, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 4292927712, 4294901502, 4294309365, 4294243572, 4294243572, 4294243572, 4294177779, 4293519849, 4293190884, 3487621344, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 4292861919, 4294901502
Data.l 4292927712, 4292927712, 4292927712, 4292927712, 4292927712, 4292927712, 4292927712, 3487621344, 283173088, 8421504, 16777215, 16777215, 16777215, 4292861919, 4294901502, 4294111986, 4292927712, 4294967295, 4294901502, 4294967295, 4294967295, 4294901502, 4293388263, 4293322470, 3487621344, 283173088, 16777215, 16777215, 16777215, 4292796126, 4294835709, 4294046193, 4292927712, 4294901502, 4294835709, 4294901502, 4294901502, 4294835709, 4293717228, 4294638330, 4293585642, 3487621344, 16777215, 16777215, 16777215, 4292730333, 4294835709, 4293980400, 4292861919, 4294901502
Data.l 4294835709, 4294835709, 4294835709, 4292664540, 4293388263, 4293519849, 4292861919, 16777215, 16777215, 16777215, 4292598747, 4294769916, 4293914607, 4292861919, 4294901502, 4294769916, 4294769916, 4294769916, 4294769916, 4294769916, 4294704123, 4294835709, 4292861919, 16777215, 16777215, 16777215, 4292401368, 4294704123, 4293848814, 4292796126, 4294835709, 4294704123, 4294769916, 4294769916, 4294704123, 4294704123, 4294638330, 4294769916, 4292796126, 16777215, 16777215, 16777215, 4292138196, 4294704123, 4293783021, 4292730333, 4294835709, 4294638330, 4294638330, 4294638330
Data.l 4294638330, 4294572537, 4294769916, 4292664540, 16777215, 16777215, 16777215, 4291809231, 4294638330, 4293651435, 4292598747, 4294769916, 4294572537, 4294572537, 4294572537, 4294572537, 4294572537, 4294506744, 4294704123, 4292532954, 16777215, 16777215, 16777215, 4291414473, 4294769916, 4293914607, 4292401368, 4294704123, 4294506744, 4294506744, 4294506744, 4294506744, 4294440951, 4294440951, 4294704123, 4292335575, 16777215, 16777215, 16777215, 4290953922, 4290953922, 4290690750, 4292138196, 4294704123, 4294375158, 4294375158, 4294375158, 4294375158, 4294375158, 4294309365
Data.l 4292072403, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 4291809231, 4294638330, 4294243572, 4294309365, 4294309365, 4294243572, 4294243572, 4294177779, 4294572537, 4291677645, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 4291414473, 4294769916, 4294572537, 4294572537, 4294572537, 4294572537, 4294572537, 4294572537, 4294769916, 4291282887, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 4290953922, 4290953922, 4290888129, 4290888129, 4290822336, 4290822336, 4290822336, 4290756543, 4290756543, 4290756543, 16777215
coller:
Data.l 4283802565, 4283802565, 4283868358, 4283594375, 4283989646, 4285168000, 4285300099, 4283528838, 4283660680, 4284000715, 4283146437, 4282488508, 16777215, 16777215, 16777215, 16777215, 4283736260, 4285057766, 4285189351, 4285493360, 4289573556, 4288915882, 4290298564, 4289770934, 4285032809, 4285915639, 4286047224, 4281830325, 16777215, 16777215, 16777215, 16777215, 4283670466, 4284925666, 4284983226, 4285164652, 4285690997, 4287073422, 4287600793, 4285954425, 4285164396, 4287993237, 4289703855, 4286226095, 0, 0, 16777215, 16777215, 4283604674, 4284793568
Data.l 4286152062, 4285691254, 4285164910, 4285164910, 4284704359, 4284704359, 4284704359, 4293059298, 4290493371, 2679091119, 0, 16777215, 16777215, 4283538881, 4284661725, 4284727774, 4289703855, 4294769916, 4294638330, 4294638330, 4294704123, 4294638330, 4294638330, 4290559164, 4293519849, 4290427578, 2679091119, 16777215, 16777215, 4283472576, 4284464089, 4284530140, 4289703855, 4294704123, 4294506744, 4294638330, 4294638330, 4294638330, 4294506744, 4290164406, 4290032820, 4290756543, 4289572269, 16777215, 16777215, 4282945976, 4284266455, 4284398297, 4289572269, 4294704123
Data.l 4294506744, 4294506744, 4294506744, 4294440951, 4294375158, 4294177779, 4294506744, 4289572269, 16777215, 16777215, 4282616498, 4284134612, 4284266199, 4289506476, 4294638330, 4294375158, 4294375158, 4294375158, 4294375158, 4294243572, 4294177779, 4294111986, 4294440951, 4289440683, 16777215, 16777215, 4282221485, 4284002512, 4284134099, 4289309097, 4294506744, 4294177779, 4294177779, 4294243572, 4294177779, 4294177779, 4294111986, 4293914607, 4294375158, 4289177511, 16777215, 16777215, 4281694372, 4283870412, 4283936719, 4289111718, 4294440951, 4293980400, 4293980400, 4293980400
Data.l 4293914607, 4293848814, 4293783021, 4294243572, 4288980132, 16777215, 16777215, 4281365407, 4283738570, 4283804620, 4288716960, 4294375158, 4293783021, 4293848814, 4293848814, 4293848814, 4293783021, 4293651435, 4293585642, 4294177779, 4288585374, 16777215, 16777215, 4280970393, 4283606215, 4283672521, 4288256409, 4294243572, 4293585642, 4293585642, 4293585642, 4293585642, 4293519849, 4293519849, 4293322470, 4294111986, 4288124823, 16777215, 16777215, 4280641173, 4283408581, 4283540422, 4287730065, 4294111986, 4293322470, 4293322470, 4293322470, 4293322470, 4293322470, 4293256677
Data.l 4293980400, 4287401100, 16777215, 16777215, 4280641173, 4283276737, 4283408324, 4287006342, 4293914607, 4292993505, 4293059298, 4293059298, 4293059298, 4292993505, 4292927712, 4292796126, 4293848814, 4286677377, 16777215, 16777215, 4280641173, 4280641173, 4280641173, 4286151033, 4294440951, 4293848814, 4293914607, 4293914607, 4293914607, 4293848814, 4293848814, 4293848814, 4294375158, 4285756275, 16777215, 16777215, 16777215, 16777215, 16777215, 4285098345, 4285098345, 4285032552, 4285032552, 4284966759, 4284900966, 4284900966, 4284835173, 4284769380, 4284769380, 4284769380
supprimer:
Data.l 0, 0, 0, 811425117, 2541254776, 3649537937, 4185487766, 4185487766, 3649537937, 2541320569, 811556703, 0, 0, 0, 0, 0, 0, 155863626, 2574743415, 4252465060, 4285953225, 4286808282, 4288781544, 4289110505, 4287202779, 4285887432, 4252333476, 2591586424, 156192591, 0, 0, 0, 155797833, 3229515393, 4285163963, 4288321259, 4289636856, 4289307896, 4289176056, 4289241848, 4289505272, 4290031352, 4288123882, 4284703418, 3246358402, 156192591, 0, 0, 2591520631, 4285032378
Data.l 4291676387, 4289833958, 4287465721, 4287268345, 4287334137, 4287663352, 4290886884, 4291150052, 4289044722, 4285098170, 2591586424, 0, 811227738, 4252399268, 4287334121, 4291808228, 4294046709, 4293849073, 4288518374, 4285295098, 4285426681, 4290097380, 4293980916, 4293980916, 4290886884, 4288321005, 4252925608, 811556703, 2541254776, 4285295305, 4288057846, 4291742694, 4294046709, 4294046709, 4293849073, 4287400166, 4289242341, 4293980916, 4293915122, 4293651951, 4287597791, 4283058167, 4283979470, 2541320569, 3649537936, 4285492188, 4287202809, 4286018548, 4291413736, 4294046709
Data.l 4293783536, 4293586158, 4293257192, 4293059813, 4287268570, 4278387702, 4278190330, 4278256093, 3649537937, 4185421974, 4287071214, 4286742266, 4285163771, 4284110838, 4290953448, 4293454571, 4293125606, 4292928227, 4292796641, 4287136985, 4278321912, 4278190331, 4278190330, 4278190309, 4185421974, 4185421974, 4287268335, 4286742266, 4284702970, 4281150709, 4287268827, 4292796641, 4292665055, 4292533469, 4292335833, 4283979229, 4278190330, 4278190323, 4278190314, 4278190293, 4185421974, 3649537936, 4280624341, 4281150706, 4278650864, 4286610904, 4292533469, 4292401883, 4292336090, 4292204504
Data.l 4291941075, 4283781589, 4278190305, 4278190295, 4278256063, 3649537937, 2541254776, 4281348294, 4278321906, 4286479319, 4292336090, 4292270297, 4292204247, 4287005653, 4288980181, 4291941075, 4291875281, 4291677646, 4283649988, 4278190277, 4281282483, 2541254776, 811030359, 4252201892, 4278650598, 4290427606, 4292138454, 4292072661, 4286808016, 4278321897, 4278979550, 4288782539, 4291612109, 4291546316, 4287531707, 4278190256, 4252136098, 811425117, 0, 2574743415, 4282795707, 4279966444, 4290229969, 4286676684, 4278321888, 4278190296, 4278190287, 4278979524, 4288519362, 4288058298
Data.l 4282729898, 2591586424, 0, 0, 155468868, 3229515393, 4282795704, 4278650581, 4278256088, 4278190287, 4278190278, 4278190269, 4278190259, 4278453161, 4278387616, 4282729896, 3246292610, 155863626, 0, 0, 0, 155468868, 2574743415, 4252136099, 4281282487, 4278256052, 4278190256, 4278190249, 4278256033, 4281282470, 4252136097, 2591520631, 155797833, 0, 0, 0, 0, 0, 0, 811030359, 2541254776, 3649472144, 4185421974, 4185421974, 3649472144, 2541254776, 811227738, 0, 0, 0
selectionner_tous:
Data.l 0, 0, 0, 0, 0, 0, 0, 2751464195, 2130709262, 1493174541, 436209422, 1845495306, 1610612740, 1426065423, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2063600143, 244449280, 942538752, 2550595584, 929103872, 503250944, 3020226560, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1207959554, 2819360000, 1997602816, 419364864, 2801991936, 3088188928, 2786986496, 0, 2735932928, 2735932928, 2735932928
Data.l 2735932928, 2735932928, 2735932928, 2735932928, 2803107328, 3088451584, 2181562368, 980025344, 3256223488, 2770275072, 2735932928, 2686716928, 2735932928, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 103415808, 321391872, 2114715648, 1064632320, 3021473792, 16777215, 2887059200, 2720468480, 2735932928, 16777215, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 16777215, 2114715648, 1149239296, 2954299136, 16777215, 2836727808, 2754022656, 2735932928, 16777215, 4256117760, 4256117760, 4256117760, 4256117760
Data.l 4256117760, 4256117760, 16777215, 2148532736, 1233649664, 2920679168, 16777215, 2819884544, 2754088448, 2735932928, 16777215, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 16777215, 2165441024, 1301151744, 2920679168, 16777215, 2819885056, 2754088448, 2735932928, 16777215, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 16777215, 2182217728, 1368653824, 2920679168, 16777215, 2819885056, 2754088448, 2735932928, 16777215, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760, 4256117760
Data.l 2199060480, 1452933120, 2920679168, 16777215, 2819885056, 2737311232, 2735932928, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 16777215, 2266300416, 1520369664, 3105228544, 16777215, 2819885056, 2653425152, 0, 2737311232, 2737311232, 2737311232, 2737311232, 2737311232, 2737311232, 2737311232, 2737311232, 2737311232, 2400715264, 1621426176, 3608742144, 2720534016, 2737179904, 2418544128, 0, 505941504, 505941504, 505941504, 505941504, 505941504, 505941504, 505941504, 505941504, 706086656, 2149122048, 1622278144
Data.l 1797130752, 824445952, 472059392, 0, 0, 0, 0, 0, 0, 0, 0, 2483290116, 2469986304, 1523515392, 1425997824, 2271739904, 2837053440, 1778385157, 320866816, 0, 0, 0, 0, 0, 0, 0, 0, 2869166080, 1804664832, 2252341248, 2266366464, 2404515840, 2008416256, 3053846784, 1511655680, 0, 0, 0, 0, 0, 0, 0, 0, 1191182595, 2635663360, 2653293824, 2569473024, 2401176320, 2903901952, 2702969088
EndDataSection
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
Global ErreurCompilation = 0
Global MessageErreur$ = ""
Global Sortie$ = ""
Global ModeSortieResultat$ = "Str"
Global Resultat$ = ""
;}
Procedure.l IsMouseOverGadget(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
EndProcedure
Procedure.b AppelCompilateur()
If CreateFile(1, "CodeSource.pb")
Select ModeSortieResultat$
Case "Str"
WriteString(1, "CreateFile(1, " + Chr(34) + "Resultat.txt" + Chr(34) + "): WriteString(1, Str(" + GetGadgetText(#Editeur_Expression) + ")): CloseFile(1)")
Case "StrU"
WriteString(1, "CreateFile(1, " + Chr(34) + "Resultat.txt" + Chr(34) + "): WriteString(1, StrU(" + GetGadgetText(#Editeur_Expression) + ")): CloseFile(1)")
Case "StrF"
WriteString(1, "CreateFile(1, " + Chr(34) + "Resultat.txt" + Chr(34) + "): WriteString(1, StrF(" + GetGadgetText(#Editeur_Expression) + ")): CloseFile(1)")
Case "StrD"
WriteString(1, "CreateFile(1, " + Chr(34) + "Resultat.txt" + Chr(34) + "): WriteString(1, StrD(" + GetGadgetText(#Editeur_Expression) + ")): CloseFile(1)")
Case "Hex"
WriteString(1, "CreateFile(1, " + Chr(34) + "Resultat.txt" + Chr(34) + "): WriteString(1, Hex(" + GetGadgetText(#Editeur_Expression) + ")): CloseFile(1)")
Case "Bin"
WriteString(1, "CreateFile(1, " + Chr(34) + "Resultat.txt" + Chr(34) + "): WriteString(1, Bin(" + GetGadgetText(#Editeur_Expression) + ")): CloseFile(1)")
EndSelect
CloseFile(1)
Else
MessageRequester("Erreur !", "Impossible d'écrire le code source !", 16)
EndIf
Delay(10) ; Histoire de laisser souffler un peu le fichier.
Compilateur = RunProgram(#PB_Compiler_Home + "/Compilers/pbcompiler", "CodeSource.pb", GetCurrentDirectory(), #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide)
Sortie$ = ""
MessageErreur$ = ""
Resultat$ = ""
If Compilateur
While ProgramRunning(Compilateur)
If AvailableProgramOutput(Compilateur)
Sortie$ = ReadProgramString(Compilateur)
If FindString(Sortie$, "Line")
MessageErreur$ = Sortie$ + Chr(13)
Else
MessageErreur$ = "Pas d'erreurs !"
EndIf
EndIf
Wend
ErreurCompilation = ProgramExitCode(Compilateur)
CloseProgram(Compilateur) ; Ferme la connection vers le programme
Delay(10) ; Histoire de laisser souffler un peu le programme.
DeleteFile(GetCurrentDirectory() + "CodeSource.pb")
DeleteFile(GetCurrentDirectory() + "PureBasic.exe")
If Bool(Not ErreurCompilation) ; Not, inversion de valeur, 0 = 1 et 1 = 0. 0 = pas d'erreurs, 1 = erreurs
If ReadFile(1, GetCurrentDirectory() + "Resultat.txt")
While Eof(1) = 0 ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File')
Resultat$ + ReadString(1) ; Affiche du fichier
Wend
CloseFile(1)
Else
MessageRequester("Erreur !", "Impossible d'afficher le résultat !", 16)
EndIf
EndIf
Delay(10) ; Histoire de laisser souffler un peu le fichier.
DeleteFile(GetCurrentDirectory() + "Resultat.txt")
ProcedureReturn Bool(Not ErreurCompilation) ; Not, inversion de valeur, 0 = 1 et 1 = 0. 0 = pas d'erreurs, 1 = erreurs
EndIf
EndProcedure
Procedure OpenWindow_FenetreEditeurExpression()
If OpenWindow(#FenetreEditeurExpression, 400, 159, 500, 625, "Editeur D'expression 1.40", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
; Création des Gadgets:
TextGadget(#Texte_Info_Editeur_Expression, 10, 6, 480, 17, "Entrez votre Expression Mathématique:", #PB_Text_Center)
SetGadgetFont(#Texte_Info_Editeur_Expression, LoadFont(#Font_Texte_Info_Editeur_Expression, "Times New Roman", 12, #PB_Font_Bold|#PB_Font_HighQuality))
SetGadgetColor(#Texte_Info_Editeur_Expression, #PB_Gadget_FrontColor, RGB(0, 0, 200))
EditorGadget(#Editeur_Expression, 10, 27, 480, 215, #PB_Editor_WordWrap)
SetGadgetFont(#Editeur_Expression, LoadFont(#Font_Editeur_Expression, "Microsoft Sans Serif", 8, #PB_Font_HighQuality))
SetGadgetColor(#Editeur_Expression, #PB_Gadget_FrontColor, RGB(0, 0, 0))
CreatePopupImageMenu(#MenuPopup_Editeur_Expression, #PB_Menu_ModernLook)
MenuItem(#MenuPopup_Editeur_Expression_Annuler, "Annuler" + Chr(9) + "Ctrl+Z", CatchImage(#Icone_MenuPopup_Editeur_Expression_Annuler, ?annuler))
MenuItem(#MenuPopup_Editeur_Expression_Restaurer, "Restaurer" + Chr(9) + "Ctrl+Y", CatchImage(#Icone_MenuPopup_Editeur_Expression_Restaurer, ?restaurer))
MenuBar()
MenuItem(#MenuPopup_Editeur_Expression_Couper, "Couper" + Chr(9) + "Ctrl+X", CatchImage(#Icone_MenuPopup_Editeur_Expression_Couper, ?couper))
MenuItem(#MenuPopup_Editeur_Expression_Copier, "Copier" + Chr(9) + "Ctrl+C", CatchImage(#Icone_MenuPopup_Editeur_Expression_Copier, ?copier))
MenuItem(#MenuPopup_Editeur_Expression_Coller, "Coller" + Chr(9) + "Ctrl+V", CatchImage(#Icone_MenuPopup_Editeur_Expression_Coller, ?coller))
MenuBar()
MenuItem(#MenuPopup_Editeur_Expression_Supprimer, "Supprimer" + Chr(9) + "Supp", CatchImage(#Icone_MenuPopup_Editeur_Expression_Supprimer, ?supprimer))
MenuBar()
MenuItem(#MenuPopup_Editeur_Expression_SelectionnerTous, "Selectionner Tous" + Chr(9) + "Ctrl+A", CatchImage(#Icone_MenuPopup_Editeur_Expression_SelectionnerTous, ?selectionner_tous))
TextGadget(#Texte_Info_Sortie_Editeur_Expression, 10, 250, 40, 17, "Sortie:", #PB_Text_Center)
SetGadgetFont(#Texte_Info_Sortie_Editeur_Expression, LoadFont(#Font_Texte_Info_Sortie_Editeur_Expression, "Times New Roman", 9, #PB_Font_Bold|#PB_Font_HighQuality))
SetGadgetColor(#Texte_Info_Sortie_Editeur_Expression, #PB_Gadget_FrontColor, RGB(0, 0, 200))
Font_OptionGadget = LoadFont(#Font_OptionGadget, "Times New Roman", 9, #PB_Font_HighQuality)
OptionGadget(#OptionGadget_Sortie_Entier_Signe, 100, 250, 80, 15, "- Entier Signé")
SetGadgetFont(#OptionGadget_Sortie_Entier_Signe, Font_OptionGadget)
OptionGadget(#OptionGadget_Sortie_Entier_Non_Signe, 215, 250, 110, 15, "- Entier Non Signé")
SetGadgetFont(#OptionGadget_Sortie_Entier_Non_Signe, Font_OptionGadget)
OptionGadget(#OptionGadget_Sortie_Float, 365, 250, 50, 15, "- Float")
SetGadgetFont(#OptionGadget_Sortie_Float, Font_OptionGadget)
OptionGadget(#OptionGadget_Sortie_Double, 100, 270, 60, 15, "- Double")
SetGadgetFont(#OptionGadget_Sortie_Double, Font_OptionGadget)
OptionGadget(#OptionGadget_Sortie_Hexadecimale, 215, 270, 95, 15, "- Hexadecimale")
SetGadgetFont(#OptionGadget_Sortie_Hexadecimale, Font_OptionGadget)
OptionGadget(#OptionGadget_Sortie_Binaire, 365, 270, 60, 15, "- Binaire")
SetGadgetFont(#OptionGadget_Sortie_Binaire, Font_OptionGadget)
SetGadgetState(#OptionGadget_Sortie_Entier_Signe, #True)
TextGadget(#Texte_Info_Editeur_Resultat, 10, 300, 480, 17, "Résultat de sortie:", #PB_Text_Center)
SetGadgetFont(#Texte_Info_Editeur_Resultat, LoadFont(#Font_Texte_Info_Editeur_Resultat, "Times New Roman", 12, #PB_Font_Bold|#PB_Font_HighQuality))
SetGadgetColor(#Texte_Info_Editeur_Resultat, #PB_Gadget_FrontColor, RGB(255, 150, 0))
EditorGadget(#Editeur_Resultat, 10, 320, 480, 17, #PB_Editor_ReadOnly)
SetGadgetFont(#Editeur_Resultat, LoadFont(#Font_Editeur_Resultat, "Microsoft Sans Serif", 8, #PB_Font_HighQuality))
SetGadgetColor(#Editeur_Resultat, #PB_Gadget_FrontColor, RGB(0, 150, 0))
TextGadget(#Texte_Info_Panel, 10, 355, 480, 17, "Panel des commandes:", #PB_Text_Center)
SetGadgetFont(#Texte_Info_Panel, LoadFont(#Font_Texte_Info_Panel, "Times New Roman", 12, #PB_Font_Bold|#PB_Font_HighQuality))
SetGadgetColor(#Texte_Info_Panel, #PB_Gadget_FrontColor, RGB(200, 50, 0))
PanelGadget(#Panel, 10, 375, 480, 200)
SetGadgetFont(#Panel, LoadFont(#Font_Panel, "Microsoft Sans Serif", 8, #PB_Font_HighQuality))
AddGadgetItem(#Panel, -1, "Basique")
ButtonGadget(#Boutton_0, 25, 115, 70, 30, "0")
GadgetToolTip(#Boutton_0, "0")
ButtonGadget(#Boutton_Point, 95, 115, 35, 30, ".")
GadgetToolTip(#Boutton_Point, ".")
ButtonGadget(#Boutton_1, 25, 85, 35, 30, "1")
GadgetToolTip(#Boutton_1, "1")
ButtonGadget(#Boutton_2, 60, 85, 35, 30, "2")
GadgetToolTip(#Boutton_2, "2")
ButtonGadget(#Boutton_3, 95, 85, 35, 30, "3")
GadgetToolTip(#Boutton_3, "3")
ButtonGadget(#Boutton_4, 25, 55, 35, 30, "4")
GadgetToolTip(#Boutton_4, "4")
ButtonGadget(#Boutton_5, 60, 55, 35, 30, "5")
GadgetToolTip(#Boutton_5, "5")
ButtonGadget(#Boutton_6, 95, 55, 35, 30, "6")
GadgetToolTip(#Boutton_6, "6")
ButtonGadget(#Boutton_7, 25, 25, 35, 30, "7")
GadgetToolTip(#Boutton_7, "7")
ButtonGadget(#Boutton_8, 60, 25, 35, 30, "8")
GadgetToolTip(#Boutton_8, "8")
ButtonGadget(#Boutton_9, 95, 25, 35, 30, "9")
GadgetToolTip(#Boutton_9, "9")
ButtonGadget(#Boutton_Plus, 145, 115, 35, 30, "+")
GadgetToolTip(#Boutton_Plus, "Addition")
ButtonGadget(#Boutton_Moins, 145, 85, 35, 30, "-")
GadgetToolTip(#Boutton_Moins, "Soustraction")
ButtonGadget(#Boutton_Multiplie, 180, 115, 35, 30, "*")
GadgetToolTip(#Boutton_Multiplie, "Multiplication")
ButtonGadget(#Boutton_Divise, 180, 85, 35, 30, "/")
GadgetToolTip(#Boutton_Divise, "Division")
ButtonGadget(#Boutton_Parenthese_Ouvrante, 145, 25, 35, 30, "(")
GadgetToolTip(#Boutton_Parenthese_Ouvrante, "Parentheses Ouvrante")
ButtonGadget(#Boutton_Parenthese_Fermente, 180, 25, 35, 30, ")")
GadgetToolTip(#Boutton_Parenthese_Fermente, "Parenthese Fermente")
ButtonGadget(#Boutton_Hexadecimal, 180, 55, 35, 30, "$")
GadgetToolTip(#Boutton_Hexadecimal, "Hexadecimal")
ButtonGadget(#Boutton_Modulo_Binaire, 145, 55, 35, 30, "%")
GadgetToolTip(#Boutton_Modulo_Binaire, "Modulo / Binaire")
CloseGadgetList()
ButtonGadget(#Boutton_Verifier, 100, 585, 100, 30, "Verifier")
ButtonGadget(#Boutton_Valider, 200, 585, 100, 30, "Valider")
ButtonGadget(#Boutton_Annuler, 300, 585, 100, 30, "Annuler")
SetActiveGadget(#Editeur_Expression)
EndIf
EndProcedure
OpenWindow_FenetreEditeurExpression()
;{- Event loop
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 ou 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
If IsMouseOverGadget(#Editeur_Expression) And Event = 516
InterupteurCliqueDroitListViewGadget = 1
ElseIf IsMouseOverGadget(#Editeur_Expression) And (Event = 517 And InterupteurCliqueDroitListViewGadget = 1)
InterupteurCliqueDroitListViewGadget = 0
DisplayPopupMenu(#MenuPopup_Editeur_Expression, WindowID(#FenetreEditeurExpression))
ElseIf Not IsMouseOverGadget(#Editeur_Expression) And (Event = 517 And InterupteurCliqueDroitListViewGadget = 1)
InterupteurCliqueDroitListViewGadget = 0
EndIf
Select Event
Case #PB_Event_Gadget
Select EventGadget
Case #Boutton_0
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "0")
Case #Boutton_1
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "1")
Case #Boutton_2
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "2")
Case #Boutton_3
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "3")
Case #Boutton_4
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "4")
Case #Boutton_5
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "5")
Case #Boutton_6
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "6")
Case #Boutton_7
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "7")
Case #Boutton_8
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "8")
Case #Boutton_9
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "9")
Case #Boutton_Point
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, ".")
Case #Boutton_Parenthese_Ouvrante
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "(")
Case #Boutton_Parenthese_Fermente
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, ")")
Case #Boutton_Plus
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "+")
Case #Boutton_Moins
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "-")
Case #Boutton_Multiplie
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "*")
Case #Boutton_Divise
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "/")
Case #Boutton_Modulo_Binaire
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "%")
Case #Boutton_Hexadecimal
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "$")
Case #Boutton_Exponentiel
SendMessage_(GadgetID(#Editeur_Expression), #EM_REPLACESEL, 0, "Pow(Nombre, Puissance)")
Case #Editeur_Expression
If FindString(GetGadgetText(#Editeur_Expression), Chr(10)) Or FindString(GetGadgetText(#Editeur_Expression), Chr(13))
SetGadgetText(#Editeur_Expression, ReplaceString(ReplaceString(GetGadgetText(#Editeur_Expression), Chr(10), ""), Chr(13), ""))
keybd_event_(#VK_END,0,0,0)
keybd_event_(#VK_END,0,2,0)
EndIf
Case #OptionGadget_Sortie_Entier_Signe
ModeSortieResultat$ = "Str"
Case #OptionGadget_Sortie_Entier_Non_Signe
ModeSortieResultat$ = "StrU"
Case #OptionGadget_Sortie_Float
ModeSortieResultat$ = "StrF"
Case #OptionGadget_Sortie_Double
ModeSortieResultat$ = "StrD"
Case #OptionGadget_Sortie_Hexadecimale
ModeSortieResultat$ = "Hex"
Case #OptionGadget_Sortie_Binaire
ModeSortieResultat$ = "Bin"
Case #Boutton_Verifier
If GetGadgetText(#Editeur_Expression) > ""
If AppelCompilateur()
MessageRequester("Résultat...", MessageErreur$, 64)
SetGadgetText(#Editeur_Resultat, Resultat$)
Else
MessageRequester("Résultat...", MessageErreur$, 16)
SetGadgetText(#Editeur_Resultat, "Opperation non valide !")
EndIf
EndIf
Case #Boutton_Valider
If GetGadgetText(#Editeur_Expression) > ""
If AppelCompilateur()
MessageRequester("Sortie...", "Le resultat de sortie est: " + Resultat$, 64)
CloseWindow(#FenetreEditeurExpression)
Break
Else
ClearGadgetItems(#Editeur_Resultat)
SetGadgetText(#Editeur_Resultat, "Opperation non valide !")
MessageRequester("Résultat...", MessageErreur$, 16)
EndIf
EndIf
Case #Boutton_Annuler
Event = #PB_Event_CloseWindow
CloseWindow(#FenetreEditeurExpression)
Break
EndSelect
Case #PB_Event_Menu
Select EventMenu
Case 0
EndSelect
Case #PB_Event_CloseWindow
EndSelect
Until Event = #PB_Event_CloseWindow ; Fin des évènements de boucle
;
;}