Ibarre

venom · Message par **venom** » dim. 24/févr./2008 18:56

bonjour,

voila j'ai eu l'idée de crée une barre de raccourci qui reste en 1er plan mais avec un taux de transparence modifiable.

dont vous pourriez y mètre 9 raccourcis différants, sa peut aller d'une image a un logiciel en passant par une musique etc...

fin je pense qu'avec un peut plus de customisation ont pourrai avoir un résultat encore plus convainquant

.
mais voici la V1.0 de ce projet.

son utilisation est plus que facile avec un onglet pour chaque raccourci comme sa pas de problème de compréhension.

Ibarre

voila pour tout amelioration ou suggestion me le faire part.

@++

@++

poshu · Message par **poshu** » dim. 24/févr./2008 19:38

Ne marche pas chez moi, même si l'idée est sympa :3
Peux tu partager les sources?

venom · Message par **venom** » dim. 24/févr./2008 20:54

biensur, sa fait quoi chez toi quand tu le lance ?

Ibarre option

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Panel_0
  #Button_1
  #String_1
  #Button_2
  #String_2
  #Button_3
  #String_3
  #Button_4
  #String_4
  #Button_5
  #String_5
  #Button_6
  #String_6
  #Button_7
  #String_7
  #Button_8
  #String_8
  #Button_9
  #String_9
  #Button_10
  #String_10
  #Button_11
  #String_11
  #Button_12
  #String_12
  #Button_13
  #String_13
  #Button_14
  #String_14
  #Button_15
  #String_15
  #Button_16
  #String_16
  #Button_17
  #String_17
  #Button_18
  #String_18
EndEnumeration
chemain$ = Left(GetHomeDirectory(), 3)

  If OpenWindow(#Window_0, 0, 0, 510, 115, "Ibarre | option",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
     OpenPreferences(chemain$+"WINDOWS\Ibarre.ini")
     
      ;- Panel0
      PanelGadget(#Panel_0, 10, 5, 490, 100)
      
      AddGadgetItem(#Panel_0, 1, "bouton 1")
      ButtonGadget(#Button_1, 13, 13, 100, 20, "choisir une image")
       String_1$ = ReadPreferenceString("1", "")
      StringGadget(#String_1, 123, 13, 350, 20, String_1$, #PB_String_ReadOnly)
      ButtonGadget(#Button_2, 13, 43, 100, 20, "choisir un logiciel")
       String_2$ = ReadPreferenceString("2", String_2$)
      StringGadget(#String_2, 123, 43, 350, 20, "", #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 2, "bouton 2")
      ButtonGadget(#Button_3, 13, 13, 100, 20, "choisir une image")
       String_3$ = ReadPreferenceString("3", "")
      StringGadget(#String_3, 123, 13, 350, 20, String_3$, #PB_String_ReadOnly)
      ButtonGadget(#Button_4, 13, 43, 100, 20, "choisir un logiciel")
       String_4$ = ReadPreferenceString("4", "")
      StringGadget(#String_4, 123, 43, 350, 20, String_4$, #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 3, "bouton 3")
      ButtonGadget(#Button_5, 13, 13, 100, 20, "choisir une image")
       String_5$ = ReadPreferenceString("5", "")
      StringGadget(#String_5, 123, 13, 350, 20, String_5$, #PB_String_ReadOnly)
      ButtonGadget(#Button_6, 13, 43, 100, 20, "choisir un logiciel")
       String_6$ = ReadPreferenceString("6", "")
      StringGadget(#String_6, 123, 43, 350, 20, String_6$, #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 4, "bouton 4")
      ButtonGadget(#Button_7, 13, 13, 100, 20, "choisir une image")
       String_7$ = ReadPreferenceString("7", "")
      StringGadget(#String_7, 123, 13, 350, 20, String_7$, #PB_String_ReadOnly)
      ButtonGadget(#Button_8, 13, 43, 100, 20, "choisir un logiciel")
       String_8$ = ReadPreferenceString("8", "")
      StringGadget(#String_8, 123, 43, 350, 20, String_8$, #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 5, "bouton 5")
      ButtonGadget(#Button_9, 13, 13, 100, 20, "choisir une image")
       String_9$ = ReadPreferenceString("9", "")
      StringGadget(#String_9, 123, 13, 350, 20, String_9$, #PB_String_ReadOnly)
      ButtonGadget(#Button_10, 13, 43, 100, 20, "choisir un logiciel")
       String_10$ = ReadPreferenceString("10", "")
      StringGadget(#String_10, 123, 43, 350, 20, String_10$, #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 6, "bouton 6")
      ButtonGadget(#Button_11, 13, 13, 100, 20, "choisir une image")
       String_11$ = ReadPreferenceString("11", "")
      StringGadget(#String_11, 123, 13, 350, 20, String_11$, #PB_String_ReadOnly)
      ButtonGadget(#Button_12, 13, 43, 100, 20, "choisir un logiciel")
       String_12$ = ReadPreferenceString("12", "")
      StringGadget(#String_12, 123, 43, 350, 20, String_12$, #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 7, "bouton 7")
      ButtonGadget(#Button_13, 13, 13, 100, 20, "choisir une image")
       String_13$ = ReadPreferenceString("13", "")
      StringGadget(#String_13, 123, 13, 350, 20, String_13$, #PB_String_ReadOnly)
      ButtonGadget(#Button_14, 13, 43, 100, 20, "choisir un logiciel")
       String_14$ = ReadPreferenceString("14", "")
      StringGadget(#String_14, 123, 43, 350, 20, String_14$, #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 8, "bouton 8")
      ButtonGadget(#Button_15, 13, 13, 100, 20, "choisir une image")
       String_15$ = ReadPreferenceString("15", "")
      StringGadget(#String_15, 123, 13, 350, 20, String_15$, #PB_String_ReadOnly)
      ButtonGadget(#Button_16, 13, 43, 100, 20, "choisir un logiciel")
       String_16$ = ReadPreferenceString("16", "")
      StringGadget(#String_16, 123, 43, 350, 20, String_16$, #PB_String_ReadOnly)
      
      AddGadgetItem(#Panel_0, 9, "bouton 9")
      ButtonGadget(#Button_17, 13, 13, 100, 20, "choisir une image")
       String_17$ = ReadPreferenceString("17", "")
      StringGadget(#String_17, 123, 13, 350, 20, String_17$, #PB_String_ReadOnly)
      ButtonGadget(#Button_18, 13, 43, 100, 20, "choisir un logiciel")
       String_18$ = ReadPreferenceString("18", "")
      StringGadget(#String_18, 123, 43, 350, 20, String_18$, #PB_String_ReadOnly)
      CloseGadgetList()

    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
       Case #Button_1
        String_1$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_1, String_1$)

       Case #Button_2
        String_2$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_2, String_2$)
       
       Case #Button_3
        String_3$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_3, String_3$)
       
       Case #Button_4
        String_4$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_4, String_4$)
       
       Case #Button_5
        String_5$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_5, String_5$)

       Case #Button_6
        String_6$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_6, String_6$)

       Case #Button_7
        String_7$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_7, String_7$)

       Case #Button_8
        String_8$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_8, String_8$)

       Case #Button_9
        String_9$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_9, String_9$)

       Case #Button_10
        String_10$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_10, String_10$)

       Case #Button_11
        String_11$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_11, String_11$)

       Case #Button_12
        String_12$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_12, String_12$)

       Case #Button_13
        String_13$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_13, String_13$)

       Case #Button_14
        String_14$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_14, String_14$)

       Case #Button_15
        String_15$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_15, String_15$)

       Case #Button_16
        String_16$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_16, String_16$)

       Case #Button_17
        String_17$ = OpenFileRequester("ouvrir une image", "",  "image|*.bmp;*.jpg;*.png" , 0)
         SetGadgetText(#String_17, String_17$)

       Case #Button_18
        String_18$ = OpenFileRequester("choisir un fichier", "",  "fichier|*.*" , 0)
         SetGadgetText(#String_18, String_18$)

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
 CreatePreferences(chemain$+"WINDOWS\Ibarre.ini")
  WritePreferenceString("1", String_1$)
  WritePreferenceString("2", String_2$)
  WritePreferenceString("3", String_3$)
  WritePreferenceString("4", String_4$)
  WritePreferenceString("5", String_5$)
  WritePreferenceString("6", String_6$)
  WritePreferenceString("7", String_7$)
  WritePreferenceString("8", String_8$)
  WritePreferenceString("9", String_9$)
  WritePreferenceString("10", String_10$)
  WritePreferenceString("11", String_11$)
  WritePreferenceString("12", String_12$)
  WritePreferenceString("13", String_13$)
  WritePreferenceString("14", String_14$)
  WritePreferenceString("15", String_15$)
  WritePreferenceString("16", String_16$)
  WritePreferenceString("17", String_17$)
  WritePreferenceString("18", String_18$)
ClosePreferences()
ClosePreferences()

Ibarre

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #stop
  #Image_barre
  #Image_fermer
  #Image_0
  #Image_1
  #Image_2
  #Image_3
  #Image_4
  #Image_5
  #Image_6
  #Image_7
  #Image_8
  #TrackBar_0
EndEnumeration
UseJPEGImageDecoder()
UsePNGImageDecoder()

chemain$ = Left(GetHomeDirectory(), 3)    
OpenPreferences(chemain$+"WINDOWS\Ibarre1.ini") 
posx$ = ReadPreferenceString("x", "")
posy$ = ReadPreferenceString("y", "")
Procedure SetWinTransparency (WinHandle.l, Transparency_Level.l)
 SetWindowLong_(WinHandle, #GWL_EXSTYLE, $00080000) ; #WS_EX_LAYERED = $00080000
  SetLayeredWindowAttributes_(WinHandle, 0, Transparency_Level, 2) ;
EndProcedure 

  If OpenWindow(#Window_0, Val(posx$), Val(posy$), 595, 85, "Ibarre",  #PB_Window_BorderLess)
   StickyWindow(#Window_0, 1) 
    SetWindowColor(#Window_0, RGB(0, 0,200))
     trans$ = ReadPreferenceString("1_1", "")
     SetWinTransparency(WindowID(#Window_0), Val(trans$))
      AddKeyboardShortcut(#Window_0,#PB_Shortcut_Escape, #stop)
    If CreateGadgetList(WindowID(#Window_0))

     If LoadImage(#Image_barre, "c:/barre.bmp")
      ImageGadget(#Image_barre, 0, 0, 585, 10, ImageID(#Image_barre))
     EndIf 
     
     If LoadImage(#Image_fermer, "c:/fermer.bmp")
      ImageGadget(#Image_fermer, 585, 0, 10, 10, ImageID(#Image_fermer))
     EndIf
     
     ProgressBarGadget(#TrackBar_0, 0, 10, 595, 10, 0, 255, #PB_ProgressBar_Smooth) 
      SetGadgetState(#TrackBar_0, Val(trans$))
       SetGadgetColor(#TrackBar_0, #PB_Gadget_BackColor, RGB(0,0,200))
        SetGadgetColor(#TrackBar_0, #PB_Gadget_FrontColor, RGB(0,255,0))
ClosePreferences()

OpenPreferences(chemain$+"WINDOWS\Ibarre.ini")     
    Image_1$ = ReadPreferenceString("1", "")
    Image_1_1$ = ReadPreferenceString("2", "")
     If LoadImage(#Image_0, Image_1$)
      ResizeImage(#Image_0, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_0, 5, 20, 64, 64, ImageID(#Image_0))
      GadgetToolTip(#Image_0, GetFilePart(Image_1_1$))
     EndIf 
     
    Image_2$ = ReadPreferenceString("3", "")
    Image_2_2$ = ReadPreferenceString("4", "")
     If LoadImage(#Image_1, Image_2$)
      ResizeImage(#Image_1, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_1, 70, 20, 64, 64, ImageID(#Image_1))
      GadgetToolTip(#Image_1, GetFilePart(Image_2_2$))
     EndIf
    
    Image_3$ = ReadPreferenceString("5", "")
    Image_3_3$ = ReadPreferenceString("6", "")
     If LoadImage(#Image_2, Image_3$)
      ResizeImage(#Image_2, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_2, 135, 20, 64, 64, ImageID(#Image_2))
      GadgetToolTip(#Image_2, GetFilePart(Image_3_3$))
     EndIf 
    
    Image_4$ = ReadPreferenceString("7", "")
    Image_4_4$ = ReadPreferenceString("8", "")
     If LoadImage(#Image_3, Image_4$)
      ResizeImage(#Image_3, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_3, 200, 20, 64, 64, ImageID(#Image_3))
      GadgetToolTip(#Image_3, GetFilePart(Image_4_4$))
     EndIf 
    
    Image_5$ = ReadPreferenceString("9", "")
    Image_5_5$ = ReadPreferenceString("10", "")
     If LoadImage(#Image_4, Image_5$)
      ResizeImage(#Image_4, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_4, 265, 20, 64, 64, ImageID(#Image_4))
      GadgetToolTip(#Image_4, GetFilePart(Image_5_5$))
     EndIf
     
    Image_6$ = ReadPreferenceString("11", "")
    Image_6_6$ = ReadPreferenceString("12", "")
     If LoadImage(#Image_5, Image_6$)
      ResizeImage(#Image_5, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_5, 330, 20, 64, 64, ImageID(#Image_5))
      GadgetToolTip(#Image_5, GetFilePart(Image_6_6$))
     EndIf
    
    Image_7$ = ReadPreferenceString("13", "")
    Image_7_7$ = ReadPreferenceString("14", "")
     If LoadImage(#Image_6, Image_7$)
      ResizeImage(#Image_6, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_6, 395, 20, 64, 64, ImageID(#Image_6))
      GadgetToolTip(#Image_6, GetFilePart(Image_7_7$))
     EndIf
     
    Image_8$ = ReadPreferenceString("15", "")
    Image_8_8$ = ReadPreferenceString("16", "")
     If LoadImage(#Image_7, Image_8$)
      ResizeImage(#Image_7, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_7, 460, 20, 64, 64, ImageID(#Image_7))
      GadgetToolTip(#Image_7, GetFilePart(Image_8_8$))
     EndIf
    
    Image_9$ = ReadPreferenceString("17", "")
    Image_9_9$ = ReadPreferenceString("18", "")
     If LoadImage(#Image_8, Image_9$)
      ResizeImage(#Image_8, 64, 64, #PB_Image_Smooth)
      ImageGadget(#Image_8, 525, 20, 64, 64, ImageID(#Image_8))
      GadgetToolTip(#Image_8, GetFilePart(Image_9_9$))
     EndIf
     
    EndIf
   EndIf 

  Repeat
   EventID = WaitWindowEvent()

  Select EventID
    Case #WM_LBUTTONDOWN
      Select WindowFromPoint_(DesktopMouseX(), DesktopMouseY()) ; On regarde le gadget qui est sous la souris
        Case GadgetID(#TrackBar_0)
          distance = 255 * (WindowMouseX(#Window_0) - GadgetX(#TrackBar_0)) / GadgetWidth(#TrackBar_0) ; On calcul la position de la Pogressbar
          SetGadgetState(#TrackBar_0, distance)
           SetWinTransparency(WindowID(#Window_0), distance)
          ProgressBar = #True
      EndSelect
  EndSelect 

    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
       Case #Image_barre
        SendMessage_(WindowID(#Window_0), #WM_NCLBUTTONDOWN, #HTCAPTION ,0)
       
       Case #Image_fermer
        x = WindowX(#Window_0) 
        y = WindowY(#Window_0) 
         CreatePreferences(chemain$+"WINDOWS\Ibarre1.ini")
          WritePreferenceString("1_1", Str(GetGadgetState(#TrackBar_0)))
          WritePreferenceString("x", Str(x))
          WritePreferenceString("y", Str(y))
         ClosePreferences()
        End 
        
       Case #Image_0
        Executable_0$ = ReadPreferenceString("2", "")
         RunProgram(Executable_0$, "","", 0, 0)
       
       Case #Image_1
        Executable_1$ = ReadPreferenceString("4", "")
         RunProgram(Executable_1$, "","", 0, 0)
       
       Case #Image_2
        Executable_2$ = ReadPreferenceString("6", "")
         RunProgram(Executable_2$, "","", 0, 0)
       
       Case #Image_3
        Executable_3$ = ReadPreferenceString("8", "")
         RunProgram(Executable_3$, "","", 0, 0)
       
       Case #Image_4
        Executable_4$ = ReadPreferenceString("10", "")
         RunProgram(Executable_4$, "","", 0, 0)
       
       Case #Image_5
        Executable_5$ = ReadPreferenceString("12", "")
         RunProgram(Executable_5$, "","", 0, 0)
       
       Case #Image_6
        Executable_6$ = ReadPreferenceString("14", "")
         RunProgram(Executable_6$, "","", 0, 0)
       
       Case #Image_7
        Executable_7$ = ReadPreferenceString("16", "")
         RunProgram(Executable_7$, "","", 0, 0)
       
       Case #Image_8
        Executable_8$ = ReadPreferenceString("18", "")
         RunProgram(Executable_8$, "","", 0, 0)

      EndSelect
    EndIf

  Until EventID = #PB_Event_CloseWindow

voila

@++

poshu · Message par **poshu** » dim. 24/févr./2008 21:09

Quand je le lance, ça fait juste rien :/
je regarde un peu pour essayer de trouver ce qui cloche ^^;

wolfjeremy · Message par **wolfjeremy** » dim. 24/févr./2008 21:38

également, le processus est bien lancé mais rien ne s'affiche

venom · Message par **venom** » dim. 24/févr./2008 21:42

c'est bon j'ai vu pourquoi j'avais mie le niveau de transparence a 0

.
re telecharger le svp sa devrez fonctionner

.
désolé du probleme

voici un aperçu :
screenshoot

@++

poshu · Message par **poshu** » mar. 26/févr./2008 9:54

bon, j'ai enfin un peu de temps pour programmer, je vais poster une version améliorée de Ibarre dans quelques heures, le temps de la coder.

poshu · Message par **poshu** » mar. 26/févr./2008 11:59

Hum...
Bon, je me suis encore laissé emporter. Au départ, je voulais juste modifier quelques morceaux de ton programme pour faire une 1.1, au final j'ai tout refait

Nouveautés apportées par iBar (ma version d'Ibarre donc) V0.1:
_Réunion des deux exécutables, et intégration des media (clique droit > Options)
_Systray (c'était mon premier systray!)
_Possibilité de cacher/afficher la fenetre iBar (clique droit > afficher ou double click sur l'icone du systray)
_Code un poil meilleur.

La version compilée ou bien Les sources

Vala, ça fait un peu double emploi avec la barre de lancement rapide de Windows, mais c'était amusant à faire. Merci pour l'idée.

Neosis · Message par **Neosis** » mar. 26/févr./2008 12:11

Moi j'ai un petit probléme avec ta version...
lorsque je veut choisir une image icone pour un programme il me mes " L'image doit avoir une résolution de 50*50 " ... pourtant l'image que j'ai choisi était en dessous de ces résolution....

poshu · Message par **poshu** » mar. 26/févr./2008 12:23

il n'y a pas écrit que l'image doit être sous 50*50, mais à 50*50. J'ai pas mis de fonction de resize par flemme et surtout par ce que le résultat est laid en général.
Voilà un exemple d'image tel quelle doive être pour fonctionner avec iBar:

Neosis · Message par **Neosis** » mar. 26/févr./2008 13:47

Effectivement ça marche en 50*50
Mais si on a des image en dessous c'est chiant ... encore des amélioration a faire, mais c'est pas mal quand même tous ça

venom · Message par **venom** » mar. 26/févr./2008 16:55

salut poshu,

j'aime bien ton idée de systray

.
fin je continue a amélioré ma version quand même je vous tien au courant

.
merci aussi pour les sources.

@++

Neosis · Message par **Neosis** » mar. 26/févr./2008 17:08

Moi je vous encourage à continuez ... car ce petit programme est intéressant, reste à le rendre plus classe niveau esthétique.

poshu · Message par **poshu** » mer. 27/févr./2008 1:15

En fait, j'ai trouvé très agréable de coder ce petit truc, ça a été très vite, c'était très simple et je ne me suis pas pris la tête une seule seconde. En général, quand je code quelque chose, c'est plus une usine à gaz :/.

Du coup, n'ayant rien à faire ce soir, j'en ai profité pour mettre une fonction de resize (on peut donc charger des images de n'importe quelle taille en tant que raccourci), ajouter des tooltips, corriger quelques bugs... Et surtout réduire un peu le code, qui est maintenant plus court avec ces quelques ajouts que dans la V0.1 :3

Vala donc la version 0.2 (source ou binaire), j'ai pas vraiment d'idée supplémentaire, je crois que le code est clair... je vais donc m'arrêter là, libre à vous d'ajouter des features si ça vous chante.

venom · Message par **venom** » jeu. 28/févr./2008 22:05

bonsoir,
nouvelle mise a jours qui gène le redimentionnement au passage de la souris pour plus de discrétions et moin de gène.
(merci a nico et Octavius )

.

téléchargeable a mon 1er post ou ci-dessous :

Ibarre

ps: j'atend aussi la nouvelle version de poshu

.

@++