Le 24/06/2014 23:04, herberth guzman a écrit : > ' Gambas module file > > M_SYSTRAY(MODULE) > > Public process_nm As Process > > Public Sub Start_SysTray() > process_nm = Shell "nm-applet > /dev/null 2>/dev/null" > > X11Systray.Show(f_panel.draSystemTray.Handle) > End > > > Public Sub ArrangeTray() > > Dim I As Integer > Dim X, Y, H As Integer > > X = 2 > Y = 2 > For I = 0 To X11Systray.Count - 1 > With X11Systray[I] > If (X + .IconW) >= (f_panel.draSystemTray.W - 2) Then > X = 2 > Y += H + 2 > H = 0 > Endif > .Move(X, Y, .IconW, .IconH) > H = Max(H, .IconH) > X += .IconW + 2 > > End With > > Next > > End > > > Public Sub X11Systray_Arrange() > > f_panel.ArrangeTray > > End > > > ' Gambas class file > FORM_PANEL > > Public id_win_active As Integer > Public Language As String = M_Var.Language_System > Public HPanel_app As Panel > Public hToggle As ToggleButton > Public cx As Connection > Public rs As Result > > Public Sub Init() > Dim desk_w As Integer = Desktop.W > Desktop.Count = 2 > m_kernel.ATOM_PANEL > M_Systemtray.Start_SysTray > > End > > Public Sub _new() > > Me.TopOnly = True > M_Global.Add(Me) > m_kernel.Show_Img_Launcher > m_kernel.init_img_start > m_kernel.Show_Appearance_Taskbar > > > End > > Public Sub Form_Open() > Init > Desktop_Windows > > draSystemTray_Arrange > > End > > > Public Sub draSystemTray_Arrange() > > Dim DH As Integer > > Paint.Begin(draSystemTray) > DH = 1 + draSystemTray.H / 16 > Paint.End > M_Systemtray.ArrangeTray > > End > Static Public Sub X11Systray_Arrange() > > M_Systemtray.ArrangeTray > > End > > regards > > Herberth Guzman
Please send the full project! I have to debug exactly what you have done. -- Benoît Minisini ------------------------------------------------------------------------------ Open source business process management suite built on Java and Eclipse Turn processes into business applications with Bonita BPM Community Edition Quickly connect people, data, and systems into organized workflows Winner of BOSSIE, CODIE, OW2 and Gartner awards http://p.sf.net/sfu/Bonitasoft _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
