Icon dans programme

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Icon dans programme

Message par Fortix »

Bonsoirs à tous, j'ais récuperé un code de je sais plus qui, mais ce code à la particularitée de recréer une icone stocké en Hexadécimal dans SectionData, 8O ,,

mais le Hic :?: :?: , c'est qu'il n'y a absolument aucune procedure et aucun code qui parcours cette SectionData pour récuperer un à un les valeurs Hexa de cette section :?: :?:


Code : Tout sélectionner

#TB_SETIMAGELIST = 1072 
#TB_GETIMAGELIST = 1073 

Macro SetToolBarIconSize(ToolBar, IconSize) 
    
   SendMessage_(ToolBarID(ToolBar), #TB_SETBITMAPSIZE, 0, (IconSize << 16) + IconSize) 
   ImageList_SetIconSize_(SendMessage_(ToolBarID(ToolBar), #TB_GETIMAGELIST, 0, 0) , IconSize , IconSize) 
   SendMessage_(ToolBarID(ToolBar), #TB_AUTOSIZE, 0, 0) 
    
EndMacro 

Enumeration 
    
   #Fenetre 
   #Menu 
   #BarreOutil 
   #TBtn_Alpha 
   #TBtn_Beta 
   #TBtn_Delta1 
   #TBtn_Delta2 
    
EndEnumeration 

;CHARGER DES ICONES 
Global Image0,Image1 
;Image0 = CatchImage(0, ?Image0) 
Image1 = CatchImage(1, ?Image1) 

If OpenWindow(#Fenetre, 0, 0, 400, 300, "SetToolBarIconSize", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    
   If CreateMenu(#Menu, WindowID(#Fenetre)) 
      MenuTitle("File") 
      MenuItem(1, "Open"   +Chr(9)+"Ctrl+O") 
      MenuItem(2, "Save"   +Chr(9)+"Ctrl+S") 
      MenuItem(3, "Save as"+Chr(9)+"F12") 
      MenuItem(4, "Quit"  +Chr(9)+"Alt+F4") 
      
   EndIf 
    
   IconSize = 48 
    
   If CreateToolBar(#BarreOutil, WindowID(#Fenetre)) 
      SetToolBarIconSize(#BarreOutil, IconSize) 
      
      If CreateImage(#TBtn_Alpha,IconSize,IconSize) 
         StartDrawing(ImageOutput(#TBtn_Alpha));> 
            Box(0,0,IconSize,IconSize,RGB(255,255,255)) 
            Box(4,4,IconSize-8, IconSize-8,RGB(255,0,0)) 
         StopDrawing();< 
      EndIf 
      
      If CreateImage(#TBtn_Beta,IconSize,IconSize) 
         StartDrawing(ImageOutput(#TBtn_Beta));> 
            Box(0,0,IconSize,IconSize,RGB(0,255,0)) 
            Box(4,4,IconSize-8,IconSize-8,RGB(125,255,125)) 
         StopDrawing();< 
      EndIf 
      
      ToolBarImageButton(#TBtn_Alpha , ImageID(#TBtn_Alpha)) 
      ToolBarSeparator() 
      ToolBarImageButton(#TBtn_Beta , ImageID(#TBtn_Beta)) 
      ToolBarSeparator() 
      ToolBarImageButton(#TBtn_Delta1 , Image1) ; l'icône en 32x32 est mise à la taille mais ça pixellise 
      ToolBarImageButton(#TBtn_Delta2 , Image0) 
      
   EndIf 
    
   Repeat 
      
      EventID = WindowEvent() 
      
      Select EventID 
          
         Case #PB_Event_Menu 
            
            Select EventMenu() 
                
                
                
            EndSelect 
            
         Case #PB_Event_Gadget 
            
            Select EventGadget() 
                
            EndSelect 
            
      EndSelect 
      
   Until EventID = #PB_Event_CloseWindow 
    
EndIf 

End 

DataSection 

;Image0 : IncludeBinary "C:\ICONES\Run01.ico"; 48x48 

Image1 : ; 32x32.ico 
Data.l $00010000, $20200001, $00010000, $0CA80018, $00160000, $00280000 
Data.l $00200000, $00400000, $00010000, $00000018, $08800000, $00000000 
Data.l $00000000, $00000000, $00000000, $F4F80000, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F2F4F8F3, $F7F1F3F7, $EEF5EFF1, $E5EAF3EC, $ECDDE3F0 
Data.l $D4E8D3DC, $C2CFE6C9, $E0BBCAE3, $BEDDB4C4, $A4B8DAAB, $D89FB4D8 
Data.l $B2D79DB3, $9CB2D79C, $DA9EB3D8, $BEDDA4B8, $B6C6E1AC, $E8BFCDE4 
Data.l $DAEBC7D3, $DAE1EED0, $F4E2E7F2, $F4F8EAED, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F1F3F7F2, $F6F0F2F7, $ECF4EDEF, $E0E5F1E8, $E7D4DDEC 
Data.l $C9E3C7D2, $8C918DBA, $D9A8BBDC, $B0D6A1B6, $92AAD399, $6B8398BA 
Data.l $A4D15E67, $8BA5D18A, $D48DA7D2, $B1D792AB, $A4B8DA9B, $E1ADBFDE 
Data.l $CFE6B7C6, $CFD9EBC2, $F3DBE2EF, $F4F8E4E9, $F3F4F8F3, $F8F3F4F8 
Data.l $F3F8F2F4, $F0F2F7F2, $F4EDF0F6, $E7F2E9ED, $D7DFEEE2, $E3CAD5E9 
Data.l $AEC4BAC9, $2C23009F, $D37B8AA2, $A4D090A9, $84A0CE8A, $2B2F3538 
Data.l $9BCC292B, $7E9BCC7E, $CE809DCD, $A5D184A0, $92ABD48B, $DB9BB1D7 
Data.l $C4E0A7BA, $C3D0E6B4, $F0D1DAEB, $F4F8DDE3, $F3F4F8F3, $F8F2F4F8 
Data.l $F2F7F2F4, $EFF1F6F1, $B7EAEDF5, $E1EED3CF, $CDD7EADA, $DEBECCE4 
Data.l $8897AEC0, $1914017C, $B61B1A12, $9BCC768E, $4251697D, $02070602 
Data.l $8DBF0706, $7695C970, $CB7796CA, $9CCC7A98, $839CC47F, $D68DA7D2 
Data.l $BADB98AF, $B6C6E1A7, $ECC6D2E7, $F4F8D3DC, $F3F4F8F3, $F8F2F4F8 
Data.l $F2F7F2F3, $EDEFF6F0, $5CE6EAF3, $7C3DAC9D, $AFB6BD8A, $D9B1C2DF 
Data.l $646CA1B6, $1813015C, $2A110F01, $739A2127, $0707045C, $04050604 
Data.l $5F810404, $7192C74A, $987393C8, $2D2A5C73, $6D84A72A, $D1829ECE 
Data.l $B0D68CA6, $A9BCDC99, $E8B8C7E2, $F4F8C7D3, $F3F4F8F3, $F7F2F4F8 
Data.l $F1F7F1F3, $EBEEF5EF, $96E2E7F2, $5500B8B3, $5544006A, $CA707162 
Data.l $443791A6, $251E0144, $041E1902, $14061A16, $11100716, $070D0D07 
Data.l $3C51090A, $6988BC2E, $022E3B50, $14110504, $7695C911, $CE7A98CB 
Data.l $A7D2839F, $9CB2D78E, $E4ACBEDD, $F4F8BDCB, $F3F4F8F3, $F7F2F4F8 
Data.l $F0F6F1F2, $E9ECF4EE, $C2DFE5F1, $5800C4C6, $5F4C006E, $12534300 
Data.l $3F115145, $4034024A, $063A2F04, $2909362D, $27240B2F, $0C1E1D0C 
Data.l $1B1B1617, $13171916, $04050607, $32430204, $7292C828, $CB7695C9 
Data.l $A0CF7C99, $92AAD385, $E0A2B6DA, $F4F8B4C4, $F2F4F8F3, $F7F2F3F8 
Data.l $EFF6F0F2, $E6EAF3ED, $E9DBE2EF, $6A10CCD6, $735C0080, $016D5700 
Data.l $53016A55, $65520367, $09625005, $470C5B4D, $49401053, $143B3713 
Data.l $21132D2C, $1417101F, $090B0E0C, $56750608, $6F90C742, $CA7293C8 
Data.l $9CCC7796, $8BA5D17F, $DE9BB1D7, $F4F8ADBF, $F2F3F8F3, $CAF1F3F7 
Data.l $DBBAECE5, $D8D3B8E3, $AFCAC8B3, $832CBBBC, $8C700097, $018C7000 
Data.l $73018F72, $9075048F, $0B8D7307, $6A108770, $7062167E, $1C5E551A 
Data.l $381C4C47, $28291939, $0F181B14, $56760E11, $556E9942, $98576F98 
Data.l $7A9A5C73, $7E95B865, $DC95ADD5, $F4F8A8BB, $F2F3F8F3, $CAF1F2F7 
Data.l $A711EBE5, $B99400CC, $00AF8C00, $8600A887, $AA8800A7, $01AE8B00 
Data.l $9301B490, $B79304B7, $0CB49307, $8A14AE90, $94801BA3, $26807321 
Data.l $54276B64, $3F412455, $182B2E1F, $1111191D, $06090C0D, $04050607 
Data.l $2C2B0809, $7D98C328, $DA90A9D3, $F4F8A2B6, $F2F3F8F3, $F6F0F2F7 
Data.l $D29AEDF0, $C69E00DF, $00C09A00, $9B00BF99, $C7A000C2, $01CEA500 
Data.l $AC01D2A9, $D5AC04D6, $0DD2AB07, $A115CBA7, $B0991FC0, $2F9B8C28 
Data.l $6C32867D, $57583170, $243E432C, $1D1C272D, $0B111417, $23070A0D 
Data.l $8DBE161B, $7F9CCD70, $D88CA7D2, $F4F89FB4, $F2F3F8F3, $F6F1F2F7 
Data.l $EBF4EEF0, $DBC56BE8, $00D4AA00, $B000D7AC, $E2B500DD, $01E8BA00 
Data.l $B201EABC, $EB8203EC, $0EE5BA07, $B017DCB6, $C1A821D2, $37AE9C2D 
Data.l $7F3E988F, $6B6D3F81, $3351583B, $2C293941, $131B1F22, $A6131B23 
Data.l $94C85B78, $7D9BCC73, $D88CA5D2, $F4F89DB3, $F2F3F8F3, $F6F1F2F7 
Data.l $ECF4EEF0, $E0E3E3E9, $00E6BF1F, $C400EEBE, $FAC800F5, $01FCC900 
Data.l $C701FBC9, $F16402F8, $0EEA7C05, $BA17E7BE, $CDB123DC, $3EB7A531 
Data.l $8C49A29A, $757B4D8B, $445E684B, $3B394652, $1B282D2F, $C5425C7F 
Data.l $93C86B8E, $7D9ACC72, $D98BA6D1, $F4F89DB3, $F2F4F8F3, $9DF3F2EA 
Data.l $D54FF6E5, $F9C700F6, $00FCC900, $D400FFCF, $FFD600FF, $01FFD500 
Data.l $CE01FED1, $FBBF04FD, $06DB0E00, $BC18D24B, $D0B525E0, $45BCAB35 
Data.l $9252A59F, $79835A8F, $5665735C, $4B4B5061, $25353E3A, $2F16242F 
Data.l $455B1621, $576A8634, $D887A0C6, $F4F89EB4, $F6EEBCF3, $00FEDD11 
Data.l $D400FFD7, $FFD500FF, $00FFD900, $E100FFDE, $FFE100FF, $01FFDD00 
Data.l $D101FED8, $FBCD04FD, $00E56604, $490AB500, $D0B629B4, $4CBBAC3A 
Data.l $945CA4A0, $7787678C, $67647A6C, $575E536A, $2C425040, $2F1E303F 
Data.l $1A211321, $171B1610, $D95D6972, $F4F89EB4, $F2F4F8F3, $5EF3F3EA 
Data.l $E000F9E8, $FFE100FF, $00FFE600, $EE00FFEB, $FFEA00FF, $01FFE500 
Data.l $D502FDDC, $FACE05FD, $01F3BE09, $0000B30E, $812F0B88, $54B1A13D 
Data.l $93669FA0, $71877486, $78617C79, $606F5370, $334E6143, $3E243B50 
Data.l $3E55182C, $6F8CB72B, $DA8CA7D2, $F4F8A1B7, $F2F4F8F3, $F7F2F3F8 
Data.l $EFC9F0F2, $F9EC3FF0, $00FFF100, $F700FFF6, $FFF300FF, $01FFEB00 
Data.l $D703FDE1, $F9D106FC, $0AF3CA0C, $0000CB64, $5B000082, $5752210D 
Data.l $91709295, $6B867E7F, $855C7D86, $667E5073, $37577044, $9F304D6C 
Data.l $92C74C70, $7C9CCD6C, $DC90ABD4, $F4F8A5BB, $F2F4F8F3, $F7F2F3F8 
Data.l $F0F6F0F2, $F2F19BEE, $00FFFB00, $FF00FFFF, $FFFB00FF, $01FFF300 
Data.l $DD03FDE7, $F8D407FC, $17F1CB0D, $0D03E4BA, $5B00008A, $0D360000 
Data.l $75622E15, $64848767, $8F567C8F, $6A874C74, $395C7A44, $9B2C4C68 
Data.l $93C8496E, $80A0CE6D, $DE95AFD6, $F4F8ACC0, $F2F4F8F3, $EAF2F4F8 
Data.l $F85EF3F4, $FFFD00F9, $00FFFF00, $FF00FFFF, $FFFF00FF, $01FFFB00 
Data.l $E403FDF0, $F8DA07FC, $19F0D00E, $6014E5C7, $640000B1, $003D0000 
Data.l $0A081F00, $516B7418, $95537B95, $6C8D4A75, $3A5F7F43, $582F506D 
Data.l $5C782741, $85A4D143, $E19CB4D8, $F4F8B4C5, $F3F4F8F3, $30F5F6CB 
Data.l $FF00FDFD, $FFFF00FF, $00FFFF00, $FF00FFFF, $FFFF00FF, $01FFFF00 
Data.l $EE03FDF9, $F8E207FC, $18F1D80D, $B726E5CC, $7D0D04D2, $004E0000 
Data.l $00002C00, $110A0A14, $963C5668, $6D8E4A75, $3C618044, $5934536D 
Data.l $3D442C45, $4E5B5B2C, $E4A0B4D1, $F4F8BBCB, $F4F5E9F3, $7DF8F98C 
Data.l $FA6EF9F9, $FCFC40FA, $20FBFC3F, $FF00FDFD, $FFFF00FF, $01FFFF00 
Data.l $F802FDFE, $FCB405FD, $11F3AB09, $981CE4A1, $A23C13D0, $00690000 
Data.l $00004000, $0E000021, $5E080000, $6D8D3449, $436A8B45, $74436482 
Data.l $768A445E, $7180845E, $E798A3A4, $F4F8C3D2, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F1F3F7F2, $5EEFF1F6, $FF00F8FA, $FFFF00FF, $01FFFF00 
Data.l $FD02FEFE, $FF4001FD, $00FF0000, $0000EE00, $B60000D7, $008C0000 
Data.l $00005D00, $18000034, $000B0000, $37450A00, $4C739730, $CF6993C9 
Data.l $AED57CA0, $A6BDDD91, $EABACBE4, $F4F8CCD8, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F2F3F8F2, $00F3F4DA, $FF00FFFF, $FFFF00FF, $01FFFF00 
Data.l $FE01FEFE, $FDAF03FD, $00FF0000, $0000FF00, $DD0000F7, $00B50000 
Data.l $00008100, $2800004F, $00120000, $00000D00, $39272C15, $D36F94C0 
Data.l $B8DA88A9, $B3C7E29E, $EDC7D4E9, $F4F8D5DF, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F2F4F8F3, $00FAFB5F, $FF00FFFF, $FFFF00FF, $00FFFF00 
Data.l $FE01FFFF, $FDFD02FE, $00FF2201, $0000FF00, $FF0000FF, $00DF0000 
Data.l $140DA800, $4A221D73, $2030201F, $1D1F241F, $381C1C27, $D75F5057 
Data.l $C1DF94B2, $BECFE6AA, $F0CFDBEC, $F4F8DDE4, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F4F5DBF3, $00FFFF00, $FB5FFFFF, $F3F4BAFB, $00FBFC3F 
Data.l $FE01FFFF, $FDFE01FE, $00FE9003, $0000FF00, $FF0000FF, $00FF0000 
Data.l $0B06CD00, $7878538F, $A46F8A8F, $7B7E6C8D, $5C6F6162, $CA616E54 
Data.l $C9E39CB3, $C9D6E9B5, $F2D7E1EE, $F4F8E2E8, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $FAFA6DF3, $DBF9F97D, $F3F7F4F5, $F0F2F7F1, $00FBFC40 
Data.l $FF00FFFF, $FDFE01FF, $00FCEA13, $0000FF11, $FF0000FF, $00FF0000 
Data.l $0000EB00, $751C0EAB, $D583918E, $AED68CAD, $92ADC98F, $9A90A09C 
Data.l $D1E79FAA, $D1DCECC1, $F3DDE5F1, $F4F8E6EB, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F4F8F3F4, $F2F3F8F2, $00FCFC40 
Data.l $FF00FFFF, $F2F49BFF, $01F3F07B, $0000FE59, $FF0000FF, $00FF0000 
Data.l $0000FF00, $890000C5, $DE764037, $C1DFA7C0, $AFC4E1A9, $E7B7CAE3 
Data.l $D9EBC1D2, $D8E2EFCD, $F5E2E9F2, $F4F8E9EE, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F4F8F3F4, $F2F4F8F3, $00FCFC41 
Data.l $F89DFFFF, $EEF1F6F7, $11EEF1E8, $0000FDCF, $FF0000FF, $00FF0000 
Data.l $0000FF00, $A10000DA, $85740000, $D1E79678, $C5D4E8C1, $EDCAD8EA 
Data.l $E2EFD1DD, $E1E8F2D9, $F6E7EDF4, $F4F8ECF0, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F4F8F3F4, $F3F4F8F3, $9DFCFC41 
Data.l $F3F8F7F8, $F1F3F7F2, $7DF0F2F7, $3A01F7EE, $FF0000FF, $00FF0000 
Data.l $0000FF00, $B60000E9, $008C0000, $A9B47300, $D6E0EEBA, $F1D9E3EF 
Data.l $E8F3DEE5, $E7EDF4E2, $F7ECEFF6, $F4F8EFF1, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F4F8F3F4, $F3F4F8F3, $F8F5F6CA 
Data.l $F4F8F3F4, $F2F4F8F2, $EAF2F4F8, $A10DF3F4, $FF0000FE, $00FF0000 
Data.l $0000FF00, $C50000F5, $009D0000, $10118400, $D7CDD684, $F4E3EAF3 
Data.l $EDF5E5EB, $ECEFF6E9, $F7EEF1F6, $F4F8F0F2, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F4F8F3F4, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F2ACF2F4, $F0F3F7F6, $F6EEF2F7 
Data.l $EEF6EDF0, $E9EDF5EB, $F4E6ECF4, $EBF4E6EC, $E6EBF4E5, $F5E7ECF4 
Data.l $EFF5E9ED, $EDF0F6EB, $F7EFF2F7, $F4F8F1F3, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F4F8F3F4, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $F4F8F3F4, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F2F4, $F2F4F8F2, $F8F3F4F8, $F4F8F3F4, $F3F4F8F3, $F8F3F4F8 
Data.l $F4F8F3F4, $F3F4F8F3, $F8F3F4F8, $0000F3F4, $00000000, $00000000 
Data.l $00000000, $00000000, $00000000, $00000000, $00000000, $00000000 
Data.l $00000000, $00000000, $00000000, $00000000, $00000000, $00000000 
Data.l $00000000, $00000000, $00000000, $00000000, $00000000, $00000000 
Data.l $00000000, $00000000, $00000000, $00000000, $00000000, $00000000 
Data.b  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 

EndDataSection

merci pour vos réponses :D
Haut
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

Si il y a CatchImage
Haut
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Message par Fortix »

Ce que je voulais dire c'est que contrairement au code de Mr Dobro (que je salut d'ailleur!), il a eu recourt à une procedure complète pour :

-parcourir toute la SectionData et en parallèle reconstituer l'image avec les deux points de coordonnés (x,y)

mais là, se que je trouve de spétaculaire dans ce code, le seul élement qui permet de reconstituer cette image est trois fois rien!!: (CatchImage)
et en plus de façon instantané :?: :?:
Haut
gnozal
Messages : 832
Inscription : mar. 07/déc./2004 17:35
Localisation : France
Contact :
Contacter gnozal

Message par gnozal »

Fortix a écrit :mais là, se que je trouve de spétaculaire dans ce code, le seul élement qui permet de reconstituer cette image est trois fois rien!!: (CatchImage) et en plus de façon instantané :?: :?:
CatchImage à partir de l'adresse mémoire des data, à savoir ?Image1 qui correspond au label 'Image1:' avant le premier 'Data' ...
Il y a une différence entre tracer une image point par point (parcourir les data) et récupérer une image déjà tracée.
Haut
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Message par Fortix »

Pour celui à qui ça interesse j'ai créé un petit programme pour convertir une image en un ensemble de valeurs Hexa, j'ai un doute concernant le model ou le format des valeurs en sortis :?: :?:

ce petit programme ne demande qu'a être soigné ou amélioré :wink:

Code : Tout sélectionner

Enumeration
  #Editor_0 
  #Button_0
  #Button_1
  #Button_2
EndEnumeration


UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()


Global FontID1
FontID1 = LoadFont(1, "Courier New", 9, #PB_Font_Bold)


Procedure Open_Editor_0()

    If OpenWindow(#Editor_0, 344, 172, 256, 250, "Fortix_Convertor_DATA",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget  | #PB_Window_TitleBar )
    
        If CreateGadgetList(WindowID(#Editor_0))
        
            EditorGadget(#Editor_0, 5, 40, 245, 150,#PB_Editor_ReadOnly)
            SetGadgetFont(#Editor_0, FontID1)
            SetGadgetColor(#Editor_0, #PB_Gadget_BackColor, RGB(0,0,0))
            SetGadgetColor(#Editor_0, #PB_Gadget_FrontColor, RGB(0,128,255))
            SetWindowColor(#Editor_0, RGB(0,0,128))
            GadgetToolTip(#Editor_0, "Une fois la liste DATA établit, copier son contenu puis introduisez le en SectionData dans le code en cour d'édition")      
          
            ButtonGadget(#Button_0, 5, 10, 245, 20, "OUVRIR IMAGE")
          
            ButtonGadget(#Button_1, 5, 195, 245, 20, "NOUVELLE IMAGE ?")
            GadgetToolTip(#Button_1, "Appuyer ici pour ouvrir une nouvelle image")
          
            ButtonGadget(#Button_2, 5, 220, 245, 20, "ENREGISTRER IMAGE DATA")
            GadgetToolTip(#Button_2, "Appuyer ici pour enregistrer votre image  DATA  en format texte (*.txt)")  
            ;PureCOLOR_SetButtonColor(#Button_2, RGB(128,128,64), RGB(0,128,182))
            
        EndIf
            
    EndIf
  
EndProcedure



Open_Editor_0()

 


DisableGadget(#Button_0,0)
DisableGadget(#Editor_0,1)
DisableGadget(#Button_1,1)
DisableGadget(#Button_2,1)


Repeat

    EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Gadget

        Select EventGadget()
      
            Case #Button_0
    
                Nm_File_$ = OpenFileRequester("Ouverture de l'image à convertir", Nm_File_$, "Fichiers Image|*.jpg;*.jpeg;*.tga;*.bmp;*.png;*.tiff", 0 )
            
                If Nm_File_$
                    DisableGadget(#Button_0,1)
                    DisableGadget(#Editor_0,0)
                                                       
                    If LoadImage(0, Nm_File_$) 
                        Hauteur = ImageHeight(0) 
                        Largeur = ImageWidth(0) 
                  
                        For i =0 To  Largeur -1    
                               
                            ligne$="data.l "  
                    
                            For j = 0 To Hauteur-1      
                                StartDrawing(ImageOutput(0) ) 
                                    v1$=Hex(Point(i, j))
                                    v2$=RSet(v1$,4,"0")
                                    v3$=LSet(v2$,6,"0")
                            
                                    ligne$=ligne$+"$"+ v3$ +", "
                                StopDrawing()
                            Next j 
                            
                            ligne$=Left(ligne$, Len(ligne$)-2) 
                          
                            AddGadgetItem(#Editor_0, i, ligne$)
                            
                        Next i 
                        
                  
                        AddGadgetItem(#Editor_0, j, " ") 
                      
                        AddGadgetItem(#Editor_0, -1, "Hauteur: "+Str(Hauteur)+" px")
                        AddGadgetItem(#Editor_0, -1, "Largeur: "+Str(Largeur)+" px")
                      
                        DisableGadget(#Button_1,0)
                        DisableGadget(#Button_2,0)
                        
                    EndIf
                
                EndIf 
                
    
            Case #Button_1
            
                ClearGadgetItemList(#Editor_0)
                
                DisableGadget(#Button_0,0)
                DisableGadget(#Editor_0,1)
                DisableGadget(#Button_1,1)
                DisableGadget(#Button_2,1)
    
            Case #Button_2
    
                
                Datalist$ = GetGadgetText(#Editor_0)
                DestiFichier$ = SaveFileRequester("Enregistrement du fichier à convertir", Nm_File_$+"_VData.txt", "*.txt", 0 )
                
                CreateFile(2,DestiFichier$+"_VData.txt")
                    WriteStringN(2,Datalist$)
                CloseFile(2) 
                
                ClearGadgetItemList(#Editor_0)
                
                DisableGadget(#Button_0,0)
                DisableGadget(#Editor_0,1)
                DisableGadget(#Button_1,1)
                DisableGadget(#Button_2,1)
 
        EndSelect
     
    EndIf

Until EventID = #PB_Event_CloseWindow

CloseWindow(#Editor_0)

End
vous m'en direz des nouvelles :wink:
Haut
Avatar de l’utilisateur
Fortix
Messages : 559
Inscription : mar. 30/mai/2006 17:03

Message par Fortix »

Bonsoirs, j'ai un blocage:

je n'arrive pas à zoomer une image que je viens de créer point/point

Code : Tout sélectionner


; Global Image0 
; Image0 = CatchImage(0, ?Image0)
; 
; 
; Enumeration 
; #Image_0
; EndEnumeration

; #TB_SETIMAGELIST = 1072 
; #TB_GETIMAGELIST = 1073 



Procedure Recreate_Picture_(Image,Largeur,Hauteur)

    If CreateImage(Image,Largeur,Hauteur) 
    
        StartDrawing(ImageOutput(Image))
            
        For y=0 To Hauteur -1        
                For x=0 To Largeur -1               
                    Read a.l
                    Plot(x, y ,a.l)
                Next x         
        Next Y   
        StopDrawing() 
    EndIf
    
EndProcedure


; Macro SetToolBarIconSize(ToolBar, IconSize) 
;     
;    SendMessage_(WindowID(ToolBar), #TB_SETBITMAPSIZE, 0, (IconSize << 16) + IconSize) 
;    ImageList_SetIconSize_(SendMessage_(ToolBarID(ToolBar), #TB_GETIMAGELIST, 0, 0) , IconSize , IconSize) 
;    SendMessage_(ToolBarID(ToolBar), #TB_AUTOSIZE, 0, 0) 
;     
; EndMacro 
; 
; 

If OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")


    Recreate_Picture_(0,16,16)


    CreateGadgetList(WindowID(0))
;     SetToolBarIconSize(0, 48) 
     
    ImageGadget(0, 0, 0, 0, 0, ImageID(0))
    ;SetToolBarIconSize(0, 48) 
      
 
  
    Repeat
        EventID = WaitWindowEvent() 
    Until EventID = #PB_Event_CloseWindow 
  
EndIf

End 



; DataSection
; 
;     Image0 :
;     Data.l  255, 255, 255, 255, 255, 000, 000, 000, 000, 000, 000, 255, 255, 255, 255, 255
;     Data.l  255, 255, 255, 255, 000, 000, 000, 000, 000, 000, 000, 000, 255, 255, 255, 255
;     Data.l  255, 255, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255, 255
;     Data.l  255, 255, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255, 255
;     Data.l  255, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255
;     Data.l  000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
;     Data.l  000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
;     Data.l  000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
;     Data.l  000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
;     Data.l  000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
;     Data.l  000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
;     Data.l  255, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255
;     Data.l  255, 255, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255, 255
;     Data.l  255, 255, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255, 255
;     Data.l  255, 255, 255, 255, 000, 000, 000, 000, 000, 000, 000, 000, 255, 255, 255, 255
;     Data.l  255, 255, 255, 255, 255, 000, 000, 000, 000, 000, 000, 255, 255, 255, 255, 255
;   
; EndDataSection

DataSection
Image0 :
Data.l $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000
Data.l $000000, $000000, $FF7348, $FF7348, $FF7348, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000
Data.l $000000, $FF7348, $FF7348, $FF7348, $FF7348, $FF7348, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000
Data.l $000000, $FF7348, $FF7348, $000000, $000000, $FF7348, $000000, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000, $000000, $000000, $000000
Data.l $000000, $FF7348, $FF7348, $000000, $000000, $FF7348, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000, $000000
Data.l $000000, $FF7348, $FF7348, $FF7348, $FF7348, $FF7348, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $FF7348, $FF7348, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $000000, $000000, $55FF00, $55FF00, $55FF00, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $55FF00, $55FF00, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $55FF00, $55FF00, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $000000, $000000, $000000, $55FF00, $55FF00, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $FF7348, $FF7348, $FF7348, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000, $000000
Data.l $000000, $000000, $FF7348, $000000, $000000, $FF7348, $FF7348, $000000, $55FF00, $55FF00, $55FF00, $55FF00, $000000, $000000, $000000, $000000
Data.l $000000, $000000, $FF7348, $000000, $000000, $FF7348, $FF7348, $000000, $55FF00, $55FF00, $000000, $000000, $000000, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $FF7348, $FF7348, $FF7348, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000
Data.l $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000, $000000
 

EndDataSection

je souhaiterais zoomer 2fois l'image ainsi obtenut, y aurait il une fonction prévue à cet éffet???

merci pour vos réponses :D
Haut
Répondre

Revenir à « Débutants »